Ответить на коллекцию писем в пакете с помощью Outlook

Question

Я получил большое количество писем. Я хочу ответить на них одним и тем же сообщением, чтобы получатели не знали о других получателях. Любые рекомендации о том, как этого добиться?

Answer 1

Используйте bcc (слепая копия). Добавьте всех получателей в это поле, и они не будут знать обо всех других людях, которым вы также отправили письмо.

Answer 2

Самый быстрый способ, которым я могу придумать, - это макрос outba 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".