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

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 对象模型不提供任何内容。此外，您正在谈论无法在电子邮件中管理或设置的客户功能。

唯一可以设置的属性是 答复收件人 ，返回一个收件人集合，该集合表示 Outlook 项目的所有答复收件人对象。