如何防止不安全附件提示？

Question

在发送包含潜在不安全附件的电子邮件时，Outlook会弹出一个对话框。

​

​

我正在programmatically转发我的所有电子邮件到另一个帐户，而这个弹出消息正在阻止宏的执行。

似乎没有办法以编程方式阻止弹出窗口，因为mail.Send方法没有参数。

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then

        Dim oMail As Outlook.MailItem: Set oMail = Item

        If oMail.Permission = olDoNotForward Then
            GoTo for_continue
        End If
                    
        Set objMail = oMail.Forward
        objMail.To = emailTo

        ' this prompts user input in case of unsafe attachments
        objMail.Send 

    End If
for_continue:
Next

如何绕过这一点，使宏在没有持续干预的情况下运行？

Answer 1

如果可以选择使用Redemption，则可以按如下方式修改代码。更改线路

objMail.Send 

至

dim sItem As Object
sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = objMail
sItem.Send