Outloook VBA macro to reply all with oft template
问题 I have a macro built for VBA Outlook where I can reply all, using an attachment. This is the code: Sub Estimate() Dim origEmail As MailItem Dim replyEmail As MailItem Dim s() As String Dim add As String Set origEmail = Application.ActiveWindow.Selection.Item(1) Set replyEmail = Application.CreateItemFromTemplate("C:\template.oft") s = Split(origEmail.CC & ";" & replyEmail.CC, ";") replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody replyEmail.Subject = "RE: " + origEmail