VBA Outlook Email aus Vorlage versenden

DerZock

Lieutenant
Registriert
Mai 2009
Beiträge
908
Ich krieg die Krise mit VBA. :rolleyes:
Ich versuche gerade mit VBA in Outlook eine Email aus einer Vorlage zu versenden. Es wird allerdings keine Email versendet. Hier der Code:

Code:
Dim VorlagePfad As String
VorlagePfad = "D:\Vorlage.oft"
Dim Nachricht As MailItem
Set Nachricht = Application.CreateItemFromTemplate(VorlagePfad) 
Nachricht.To = Adresse 'z.B. meineAdresse@mail.de
Nachricht.Send

Warum funktioniert das nicht? Oder klappts nur bei mir nicht? Jemand ne Idee?
In der Vorlage steht ein Betreff und die Nachricht. Der Empfänger wird im Code angegeben.

Wenn ichs ohne Vorlage versuche klappt es einwandfrei:
Code:
Dim Nachricht As MailItem
Set Nachricht = Application.CreateItem(olMailItem)
Nachricht.Subject = BetreffText
Nachricht.To = Adresse
Nachricht.Body = NachrichtText
Nachricht.Send
Ergänzung ()

Keine Ahnung warum, aber auf einmal funktioniert der Versand :confused_alt:
Der Outlook Neustart hat wohl geholfen..
 
Zurück
Oben