Outlook粘贴到剪贴板

Question

MikeD亲切地发布下面的宏来将电子邮件的正文复制到剪贴板，但是，我无法让它工作，我已经搜索了剪贴板的所有内容并设置了我所建议的所有参考资料，但遗憾的是没有用，任何人都可以帮忙，非常感谢。亲切的问候Coxie

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

设置M = ActiveExplorer.Selection.Item（1）