excel - 从 Excel 回复 Outlook 邮件

Question

我正在尝试使用正文中的给定格式“回复所有”。

我使用以下代码来搜索和显示邮件。

Sub Test()

Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
i = 1

For Each olMail In Fldr.Items
If InStr(olMail.Subject, "Application for Privilege Leave - Leave ID - Dev-PL-45252-4") <> 0 Then
olMail.Display

i = i + 1
End If
Next olMail
End Sub

我需要用相同的主题和规定的正文和签名全部回复。

这类似于我们在 Outlook 中打开邮件并单击“全部回复”按钮。

我希望它从 Excel 触发。

Answer 1

由于您使用的是早期绑定(bind)，因此更改

Dim olMail As Variant

至

Dim olMail As Outlook.MailItem

然后您将能够访问 olMail 的所有属性。元素。其中之一是 .ReplyAll
截图

If InStr(olMail.Subject, "Blah Blah") <> 0 Then
    olMail.Display
    olMail.ReplyAll

    DoEvents

    '
    '~~> Rest of the code
    '

    i = i + 1
End If