将电子邮件对象复制到Outlook剪贴板

Question

当在Outlook 2013中打开电子邮件时（在阅读模式下）我希望将其作为嵌入式附件转发给其他人，我总是必须再次找到原始邮件才能将其附加到新的或现有的消息或约会或......

非常类似于＆＃39;转发为＆＃39;按钮＆＃39; home＆gt;消息＆gt;回复＆gt;更多＆gt;作为附件转发＆＃39;我想将当前邮件复制到剪贴板。这样我可以将对象添加到任何新的消息/约会/等。

其他论坛条目仅复制邮件正文，例如：

• Copy email to the clipboard with Outlook VBA
• https://www.experts-exchange.com/questions/24515660/outlook-script-to-copy-email-to-clipboard.html

我想要拥有完整的对象。

有没有人可以帮我找到正确的表达式？ 我想如果我改变＆＃34; M.HTMLBody＆＃34;在下面的代码中，对象就像对象一样，我是金色的。

Sub Test()
    Dim M As MailItem, Buf As MSForms.DataObject

    Set M = ActiveExplorer().Selection.item(1)
    Set Buf = New MSForms.DataObject
    Buf.SetText M.HTMLBody
    Buf.PutInClipboard

End Sub

提前多多感谢！

Answer 1

为什么要将任何内容复制到剪贴板？您可以通过调用MailItem.Attachments.Add将任何消息附加到其他消息。