使用 Outlook 批量回复一组电子邮件

使用 Outlook 批量回复一组电子邮件

我收到了很多电子邮件。我想用相同的消息回复所有邮件,但收件人不知道其他收件人是谁。有什么建议可以实现这一点吗?

答案1

我能想到的最快的方法是使用 Outlook vba 宏,只要你不介意 Outlook 因为你自动执行该操作而发脾气 - 它会警告你它可能是一种病毒。

类似以下内容

Public Sub test()
    Dim ns As NameSpace
    Set ns = Application.GetNamespace("MAPI")
    Dim outlookFolder As Object, innerFolder As MAPIFolder
    Set outlookFolder = ns.Folders("Mailbox - Your mailbox name")
    Debug.Print outlookFolder.Name
    Set innerFolder = outlookFolder.Folders("Inbox")
    Debug.Print vbTab & innerFolder.Name
    Dim emailItem As MailItem
    For Each emailItem In innerFolder.Items
        If emailItem.Subject = "Test" Then
            Dim replyEmail As MailItem
            Set replyEmail = emailItem.Reply
            replyEmail.Body = "Test 2"
            replyEmail.Display
            replyEmail.Send
        End If

    Next it
End Sub

因此对于上述情况,对于它在您的收件箱中找到的每封主题为“测试”的电子邮件,它都会向原始发件人发送正文为“测试 2”的回复。

答案2

使用密件抄送(密件抄送)。将所有收件人添加到该字段,他们就不会知道您还向其他所有人发送了邮件。

相关内容