如何阻止或重定向自动回复？

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，returns 代表 Outlook 项目的所有回复收件人对象的收件人集合。

如何阻止或重定向自动回复？

How to block or redirect an auto reply?

outlook

vba