Dim objOL As New Outlook.Application
    Dim objMail As Outlook.MailItem
    'Hier den Pfad zur Vorlagendatei anpassen
8   Set objMail = objOL.CreateItemFromTemplate(App.path & "\MeineSignatur.oft")
10  With objMail
12      .Subject = "Test"
16      .To = "info@abc.de"
        'Nachricht anzeigen
32      .Display
34  End With

    Dim i As Integer
    Dim olApp As Object
    Dim olMail As MailItem
 
2   Set olApp = CreateObject("Outlook.Application")
4   Set olMail = olApp.CreateItemFromTemplate(App.path & "\MeineSignatur.oft")
 
30  With olMail
32      .To = "info@abc.de"
38      .Subject = "Test"
40      .Body = ""
54      .Display    '.Send
56  End With
 
58  Set olMail = Nothing
60  Set olApp = Nothing