vba 转发带有附件的电子邮件

Question

我需要转发选定的电子邮件（我称之为 origEmail）及其附件，但我使用的代码忽略了 origEmail 的附件。在这种情况下，转发电子邮件的正文取自模板电子邮件，并与 origEmail 正文合并）。有人可以帮忙添加 origEmail 的附件吗？

Sub forwardemailwithattachment()

    Dim origEmail As MailItem
    Dim forwardEmail As MailItem

    Set origEmail = Application.ActiveWindow.Selection.Item(1)
    Set forwardEmail = Application.CreateItemFromTemplate("insert here template location")

    forwardEmail.To = "insert here email address of recipient"

    forwardEmail.Subject = forwardEmail.Subject & origEmail.Subject

    forwardEmail.HTMLBody = forwardEmail.HTMLBody & origEmail.Forward.HTMLBody

    forwardEmail.Display

End Sub

Answer 1

你可以试试这个：

pathto = "C:\YourPath\"
For i = 1 to origEmail.Attachments.Count
  origEmail.Attachments(i).SaveAsFile pathto & origEmail.Attachments(i).FileName
  forwardEmail.Attachments.Add pathto & origEmail.Attachments(i).FileName
  Kill pathto & origEmail.Attachments(i)
Next i