全部回复 Microsoft Outlook 中打开的电子邮件

Question

我有一个 MS Access 数据库，其中有一个控制按钮，可以打开指向服务器上保存的 Outlook 电子邮件文件的超链接，供所有人使用和响应。

我希望在按下控制按钮时打开电子邮件，然后全部回复。

浏览网络我了解到

ActiveInspector.CurrentItem

应该完成开放部分。

我找到了一种使用

ActiveExplorer

回复全部邮件的方法，但这适用于 Outlook 窗格中突出显示的任何电子邮件，而不是当前打开的电子邮件。

我的 ActiveExplorer 代码。如何将其更改为

ActiveInspector

或者如何回复所有打开的电子邮件？

Private Sub Command302_Click()
Dim objApp As Outlook.Application
Dim oExp As Outlook.Explorer
Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply
Dim olRecip As Recipient ' Add Recipient

FollowHyperlink Me.Text276
Set objApp = GetObject(, "Outlook.Application")
Set oExp = objApp.ActiveExplorer
For Each olItem In objApp.Application.ActiveExplorer.Selection
    Set olReply = olItem.ReplyAll
    Set olRecip = olReply.Recipients.add("[email protected]") ' Recipient Address
    olRecip.Type = olCC
    olReply.HTMLBody = "Test Response " & vbCrLf & olReply.HTMLBody
    olReply.Display
Next olItem
End Sub

Answer 1

使用

Set olReply = Application.ActiveInspector.CurrentItem.ReplyAll

另请记住，像

olReply.HTMLBody = "Test Response " & vbCrLf & olReply.HTMLBody

这样的代码不可能生成格式良好的 HTML。两者必须合并。