Als Antwort auf diesen Beitrag
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