Ich versuche schon länger aus einem Excel-Makro eine Outlook-Mail anhand einer auf der Festplatte abgelegten Mail-vorlage zu erstellen und direkt an die in Excel hinterlegten/ausgewählten Empfänger zu senden. soweit funktioniert das Ganze auch bereits. Das Einzige Problem ist derzeit noch, dass Outlook meint bei jeder Mail die Standard-Signatur anhängen zu müssen. Komischerweise ist das nicht der Fall, wenn die Mail direkt versendet wird (ohne Anzeigen der Mail). Wenn die Mail angezeigt wird scheitere ich jedoch an der eingefügten Signatur. Die Mail sollte aber in jedem Fall genau 1:1 wie gespeichert versendet/angezeigt werden (z.B. für Testzwecke oder als Vorschau vor einer Massenversendung).
Folgenden Code hab ich derzeit als "beste Variante" in Verwendung:
Code:
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItemfromtemplate(TextBox_MailPfad) '"TextBox_MailPfad" ist der Pfad der "Vorlage-Mail"
.To = Range(CONST_ColumnMail & i) 'Empfänger aus der Excelliste einfügen
.Display 'Anzeigen der erstellten Mail --> Wenn das aktiv, wird eine Signatur eingefügt. Ansonsten nicht.
.send 'Versenden
End With
Set olApp = Nothing
Hoffe es hat jemand eine Idee. Wäre für jeden Input dankbar!