Mit VBA eine Outlook-Nachricht mit benutzerdefinierter Signatur auf Basis einer Vorlage erstellen

Mit dieser Vorgehensweise haben sie eine Möglichkeit aus sämtlichen Office Applikationen die VBA unterstützen, eine E-Mail mit angepasster Signatur zu erstellen.

Schritt 1: Erstellen der Mail-Vorlagendatei

Wir erstellen zu aller erst eine Mail mit unserer eigenen Signatur ...

die wir dann im Format *.OFT abspeichern.

Schritt 2: Der VBA Code für die Office-Applikation (z.B. Excel)

Wir öffnen den VBA-Editor z.B. von Excel mit der Tastenkombination ALT-F11 .
Im Menü "Extras/Verweise" fügen wir einen Verweis zur Microsoft Outlook Object Library hinzu.

Jetzt erstellen wir eine Routine für das Aufrufen einer neuen Nachricht in Outlook mit folgendem Code:

Sub sendMailWithSignature()
    Dim BETREFF,BODY,EMPFAENGER as String   
    Dim objOL As New Outlook.Application
    Dim objMail As Outlook.MailItem
   
    BETREFF = "[IHR BETREF]"  
    BODY = "[IHRE NACHRICHT(Kann HTML enthalten)]"  
    EMPFAENGER = "[EMPFÄNGER E-MAIL ADRESSE]"  
 
    'Hier den Pfad zur Vorlagendatei anpassen  
    Set objMail = objOL.CreateItemFromTemplate("[PFAD ZUR OFT-DATEI]")  
    objMail.Subject = BETREFF
    objMail.HTMLBody = BODY & objMail.HTMLBody
    objMail.To = EMPFAENGER
    'Nachricht anzeigen  
    objMail.Display
End Sub

Die wichtigste Zeile ist folgende:

Set objMail = objOL.CreateItemFromTemplate("[PFAD ZUR OFT-DATEI]")

in dieser wird der Pfad der Vorlage die wir in Schritt 2 angelegt haben eingetragen.
Der Betreff und der eigentliche Inhalt ist mit den jeweiligen Variablen anpassbar.

Es wäre zwar auch möglich die Signatur direkt als HTML-Code in den VBA-Code einzubetten. Jedoch ist die Methode mit der Vorlage eleganter und schneller erledigt. So brauchen wir den bei Änderungen der Signatur nur die OFT-Vorlage zu ändern und nicht den VBA-Code.