Как заблокировать или перенаправить автоответ?

Question

Мой макрос отправляет письма в список получателей из какого-либо почтового ящика. Некоторые получатели отправят автоответ.

Я хочу заблокировать вариант автоответчика. Автоответчик на другой почтовый ящик также будет хорошо для меня.

Sub SendEmail( what_address As String, _ 
       subject_line As String, _ 
       mailbox_name As String, _ 
       mail_body As String) 

    Dim olApp As Outlook.Application 
    Dim olMail As Outlook.MailItem 

    Set olApp = CreateObject("Outlook.Application") 
    Set olMail = olApp.CreateItem(olMailItem) 

    olMail.To = what_address 
    olMail.Subject = subject_line 
    olMail.SentOnBehalfOfName = mailbox_name 
    olMail.BodyFormat = olFormatHTML 
    olMail.HTMLBody = mail_body 
    olMail.Send 
End Sub 

Answer 1

Объектная модель Outlook не предоставляет ничего для этого. Кроме того, вы говорите о функции клиента, которую невозможно настроить или настроить в письме.

Единственное свойство, которое вы можете установить, это ReplyRecipients, возвращает коллекцию получателей, которая представляет все объекты-получатели ответа для элемента Outlook.