Outlook VBA 宏以经常模板回复所有内容

编程问答 2022-05-28

问题描述

我有一个为 VBA Outlook 构建的宏，我可以在其中使用附件回复所有内容。 这是代码：

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.Subject
    replyEmail.To = origEmail.Sender
    replyEmail.display

End Sub

它可以正常工作，除非一个人拥有多个链接到 AD 的电子邮件。在这种情况下，在回复电子邮件中，我会得到此人的姓名而不是电子邮件。 所以这里的问题是它从原始电子邮件中复制名称，而不是将这些名称放在回复电子邮件中。 如何更改代码，使其从原始电子邮件中复制真实电子邮件并将其放入回复电子邮件中？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexceloftoutlookoutlook-2010vba