|
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
|