Mail-Aufbereitung mit anderer Signatur
18.10.2021 17:04:03
flo4711
ich hätte da eine Anfrage zu einem Makro, das eine Mail auf Basis eines ".msg-Templates" erstellt und die aktuelle Excel-Datei als Anhang mit dranhängt.
Das funktioniert auch (fast) wie gewünscht.
Im folgenden erstmal das Makro:
Sub Mail_aufbereiten_mit_Anlage()
Dim strDatum As String
Dim strPathName As String
Dim objMailItem As Object
Dim objMailOLApp As Object
Dim objAttachments As Object
Dim strAnlage As String
On Error Resume Next
strDatum = Format(Now(), "dd.mm.yyyy")
'Pfade für die Anlagen aufbereiten
strAnlage = ThisWorkbook.Path & "\" & ThisWorkbook.Name
' E-Mail aufbereiten
strPathName = "J:\Gruppen\Controlling\Mail-Vorlagen\Lieferrückstand.msg"
Set objMailOLApp = CreateObject("Outlook.Application")
Set objMailItem = objMailOLApp.CreateItemFromTemplate(strPathName)
Set objAttachments = objMailItem.Attachments
With objMailItem
.Display
.Subject = .Subject & " " & strDatum
objAttachments.Add strAnlage
End With
Set objAttachments = Nothing
Set objMailItem = Nothing
Set objMailOLApp = Nothing
End Sub
Das Mail in diesem Bsp. wird auf Basis der "Lieferrückstand.msg" ein E-Mail erstellt und zwar mit dem dort hinterlegten Body-Text, allen Empfängern und meiner eingestellten Standard Mail-Signatur.
Hier komme ich zum Problem:
Ich würde gerne eine andere Signatur hierfür verwenden.
Signature = Environ("appdata") & "\Microsoft\Signatures\intern2.htm"
Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream(1, -2).ReadAll
Meine Frage also: kann ich ein E-Mail-Template verwenden OHNE dass hier automatisch meine Standard-Signatur mit erstellt wird?
Gruß
Gode