無法避免Microsoft Outlook的電子郵件警告

Question

我在Microsoft Access中有一組記錄，我試圖通過電子郵件發送。電子郵件功能很好。每當消息準備發送時，除了會彈出一條警告消息，並且用戶必須爲發送的每封電子郵件單擊「允許」或「拒絕」。我查了一個解決方法，並一直遵循教程： http://www.everythingaccess.com/tutorials.asp?ID=Outlook-Send-E-mail-Without-Security-Warning。
我的問題是，當我把我的消息放入函數時，它總是返回false，並且消息失敗。任何幫助，將不勝感激。

Dim sendMail As Boolean 
Dim strMessage As String 
strMessage = Some Message 
sendMail = FnSafeSendEmail(![Email Id], "Subject", strMessage) 

整個「FnSafeSendEmail」函數可以在提供的鏈接中找到。這些是參數。

Public Function FnSendMailSafe(strTo As String, _ 
          strCC As String, _ 
          strBCC As String, _ 
          strSubject As String, _ 
          strMessageBody As String, _ 
          Optional strAttachments As String) As Boolean 

錯誤，「對象不支持此屬性或方法」，引發該函數的這一行。

Dim blnSuccessful As Boolean 
blnSuccessful = objOutlook.FnSendMailSafe(strTo, strCC, strBCC, _ 
              strSubject, strMessageBody, _ 
              strAttachmentPaths) 

Answer 1

已解決。我必須禁用Microsoft Outlook信任中心的宏的安全檢查。