HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
RaMa
25.06.2024 15:48:38
AW: E-Mail-Text wird nach Umstellung Windows 11 nicht angezeigt
Hallo JoWE,

vielen Dank.
Ich habe dein Makro in meine Datei kopiert und es funktioniert (bis jetzt ;-) reibungslos.
Text, Farben und Aufzählungszeichen etc. werden korrekt angezeigt.

Danke auch an volti, dass ihr mir in Zusammenarbeit geholfen habt.
War schon wieder am Verzweifeln.

Grüße
RaMa
auch Brotaufstrich genannt :-)
Als Antwort auf diesen Beitrag
JoWE
25.06.2024 12:47:55
AW: E-Mail-Text wird nach Umstellung Windows 11 nicht angezeigt
so passt's jetzt
- jedenfalls bei mir (Windows 11 64Bit Office 2021) mit Late Binding -
Option Explicit


Sub Mailneu()
'Outlook-Start Late Binding
Dim objOutlook As Object
Dim objMail As Object
Dim strSignatur As String
Dim strNameSignatur As String
Dim strAlterEMailInhalt As String
strNameSignatur = "Name Deiner Signatur"
strSignatur = Environ("appdata") & "\Microsoft\Signatures\" & strNameSignatur & ".htm"
strSignatur = CreateObject("Scripting.FileSystemObject") _
.GetFile(strSignatur).OpenAsTextStream(1, -2).ReadAll 'Signatur als String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "testserver.de"
.Subject = "Test"
.HTMLBody = "Hallo! Anbei gewünschte Informationen." & _
"Ihre Auftragsnummer lautet " & Range("A1") & vbNewLine & strSignatur
.Display
'.send
End With
End Sub
Folgenachrichten
  • Gerne - von JoWE am 25.06.2024 15:59:16
Antwort auf Beitrag erstellen

Beispieldatei hochladen