1

電子メールで送信しようとしている一連のレコードがMicrosoftAccessにあります。メール機能はうまく機能します。ただし、メッセージを送信する準備ができるたびに警告メッセージがポップアップ表示され、ユーザーは送信されるすべての電子メールに対して[許可]または[拒否]をクリックする必要があります。回避策を調べて、そのチュートリアルに従っています：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)
4

1 に答える 1

0

解決しました。Microsoft Outlook のトラスト センターで、マクロのセキュリティ チェックを無効にする必要がありました。

于 2012-06-18T16:21:25.860 に答える