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

如何解决Outlook VBA 宏以经常模板回复所有内容

我有一个为 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 的电子邮件。在这种情况下，在回复电子邮件中，我会得到此人的姓名而不是电子邮件。 所以这里的问题是它从原始电子邮件中复制名称，而不是将这些名称放在回复电子邮件中。 如何更改代码，使其从原始电子邮件中复制真实电子邮件并将其放入回复电子邮件中？