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

Question

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

很像“主页>消息>回复>更多>作为附件转发”下的“作为附件转发”按钮，我想将当前邮件复制到剪贴板。这样我可以将对象添加到任何新的消息/约会/等。

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

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

不过，我想要完整的对象。

有没有人可以帮助我找到正确的表达式？ 我想如果我将下面代码中的“M.HTMLBody”更改为类似对象的东西，我会是金色的。

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 将任何消息附加到另一条消息。