使用电子邮件正文中的按钮调用Outlook宏“全部答复”

如何解决使用电子邮件正文中的按钮调用Outlook宏“全部答复”

致谢。

我正在尝试从Outlook发送电子邮件，但是此电子邮件必须具有执行“全部答复”的按钮。

目前，我已经设法通过宏进行“全部答复”，但这是通过您选择的电子邮件来完成的。这是我设法找到的宏：

Sub ReplyAll（）

Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply
Dim olRecip As Recipient ' Add Recipient


For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
        olReply.HTMLBody = "Hello,Thank you. " & vbCrLf & olReply.HTMLBody
    olReply.display
    olReply.Send
Next olItem

结束子

我想对宏进行更正，以便它只发送按下按钮的邮件，该按钮应位于邮件正文中。

作为补充说明，我还想问一下，如何在上面的按钮中插入该宏，以便通过按下该宏才能起作用。

非常感谢您的帮助。

致谢。

P.S。对不起，我对VB和HTML还是很陌生。

P.S。 2.对不起，我的英语不太好。