E-Mail-Text wird nach Umstellung Windows 11 nicht angezeigt
25.06.2024 10:51:24
RaMa
ich nutze seit langem ein Makro, das mir automatisierte E-Mails in Outlook erstellt.
Im Geschäft haben wir auf nun Windows 11 umgestellt.
Seit dem funktioniert das Makro nicht mehr korrekt.
Es öffnet sich die E-Mail und der Empfänger und Betreff wird korrekt angezeigt.
Allerdings wird der Text nicht mehr übernommen.
Ich habe durch suchen und ausprobieren mal herumexperimentiert und ".htmlBody" in ".body" geändert.
Der Text wird nun angezeigt, allerdings fehlt dann die Signatur.
Wenn ich es richtig verstehe, macht ".htmlBody" allerdings Sinn, da ich teilweise auch E-Mails mit farbiger Schrift und Aufzählungszeichen nutze.
Ich bin Laie und kann nur gut kopieren :)
Hat jemand eine Idee, warum Windows 11 mein Makro nicht mehr funktionieren lässt.
Vielen Dank vorab.
Private Sub CommandButton8_Click()
Dim xOutApp As Object
Dim xOutMail As Object
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
With xOutMail
.GetInspector
.To = "TEST@TEST.de"
.CC = ""
.BCC = ""
.Subject = "" & Range("A1") & ""
.HTMLBody = "" & _
"Hallo zusammen,
" & _
"anbei übersende ich euch den ...." & .HTMLBody
.Display 'or use .Send
End With
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
End Sub
Anzeige