如何用Outlook VBA将选中邮件作为附件添加到模板邮件中？

你当前代码中添加附件的写法有误，Attachments是集合对象，不能直接赋值，必须通过Add方法来添加附件。以下是修正后的完整代码：

Dim replyEmail As Outlook.MailItem
Dim actualEmail As Outlook.MailItem
 
Set actualEmail = ActiveExplorer.Selection.Item(1)
Set replyEmail = Application.CreateItemFromTemplate("U:\Template.oft")
    
replyEmail.To = actualEmail.To
replyEmail.CC = actualEmail.CC

' 将选中的原邮件作为嵌入项目附件添加
replyEmail.Attachments.Add actualEmail, olItemAttachment
    
replyEmail.Display

关键说明： #

• Attachments.Add方法的第一个参数传入选中的邮件对象actualEmail
• 第二个参数指定附件类型：
  • olItemAttachment（常量值5）：将原邮件作为嵌入的邮件项目添加，收件人可直接打开查看完整内容
  • olByValue（常量值1）：将原邮件保存为.msg文件作为普通附件添加

内容的提问来源于stack exchange，提问作者Thomas Antilles