Makro Outlook
20.12.2018 14:47:11
Peter
habt ihr eine Idee was ich bei diesem Code falsch mache?
Sub ReplywithTemplateW7()
Dim origEmail As MailItem
Dim replyEmail As MailItem
Set origEmail = Application.ActiveWindow.Selection.Item(1)
Set replyEmail = Applicaton.CreateItemFromtemplate("C:\Users\{user}\Documents\Templates _
Kunden_Outlook\{filename}.oft")
replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.Display
End Sub
Anzeige