Thema Datum  Von Nutzer Rating
Antwort
Rot Officeumstellung auf 2019 (von 2010) nun Probleme - hier: E-Mail-Versand mittels Makro
11.05.2023 13:49:11 Alex P
NotSolved
11.05.2023 13:49:57 Gast73900
NotSolved
12.05.2023 11:43:48 ralf_b
NotSolved
12.05.2023 11:55:19 Mase
NotSolved
12.05.2023 13:46:12 Alex
NotSolved
12.05.2023 14:10:50 Mase
NotSolved
15.05.2023 12:46:02 Alex P.
NotSolved
15.05.2023 13:14:22 ralf_b
NotSolved
15.05.2023 13:27:05 Mase
NotSolved
15.05.2023 14:51:59 Alex P.
Solved
12.05.2023 13:41:23 Gast69434
NotSolved

Ansicht des Beitrags:
Von:
Alex P
Datum:
11.05.2023 13:49:11
Views:
413
Rating: Antwort:
  Ja
Thema:
Officeumstellung auf 2019 (von 2010) nun Probleme - hier: E-Mail-Versand mittels Makro

Liebe HelerInnen,

 

ich bitte euch um Hilfe, vielleicht kennt ihr euch besser aus. Meine Makros liefen bis zur Umstellung von Office2010 auf Office2019 (Windows) problemlos. Jetzt hängt es an einigen Stellen und ich finde leider keine Lösung im Netz.

 

Der folgende Code füttert sich mit einer Userform, die noch perfekt funktionert. Der Code läuft unproblematisch bis .HTMLBody, dann erhalte ich einen Laufzeit-Fehler: "438 Objekt unterstützt diese Eigenschaft oder Methode nicht."

 

(Bei .send ist das selbe, da kann ich aber mich aber mit .display retten und manuel losschicken...)

 

Wer weiß wie da Abhilfe geschaffen werden kann?

 

Vielen lieben Dank im Voraus!!!!

 

Alex

 

 

With objMail
   .getinspector
   .To = "empfänger@mail.de"
   .cc = "kopie@mail.de"
   .Subject = "Betreff "
   
   .HTMLBody = "Sehr geehrte Damen und Herren,<br><br>" _
   & "text" _
 & "<br><br><table width=""40%""><tr><td>Name: </td><td>" & TextBox2.Value & "</td></tr>" & _
    "<tr><td>Vorname: </td><td>" & TextBox3.Value & " </td></tr>" _
    & "<tr><td>Vorname2: </td><td>" & TextBox4.Value & "</td></tr>" & _
    "<tr><td>Geburtsdatum: </td><td>" & TextBox5.Value & "</td></tr>" _
   & "<tr><td>Geburtsort: </td><td>" & TextBox6.Value & "</td></tr>" & _
    "<tr><td>Anschrift: </td><td>" & TextBox7.Value & "</td></tr></table>" _
   & vbCrLf & vbCrLf & "<br><br>Text." & vbCrLf _
   & vbCrLf & "<br><br>Für Rückfragen stehe ich Ihnen gern zur Verfügung." & vbCrLf & vbCrLf _
   & "<br><br>Vielen Dank.<br><br>" _
   & vbCrLf & vbCrLf & .HTMLBody
   
   '.Display
   If CheckBox1.Value = False Then .Send Else .display        'Sendet die Email automatisch
End With


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen