Vba 避免Microsoft Outlook';s电子邮件警告
我在Microsoft Access中有一组记录,我正试图通过电子邮件发送这些记录。电子邮件功能非常有效。除非每次准备发送邮件时都会弹出一条警告消息,并且用户必须为发送的每封邮件单击“允许”或“拒绝”。我查找了一个变通方法,并一直遵循教程: .Vba 避免Microsoft Outlook';s电子邮件警告,vba,outlook,ms-access-2007,Vba,Outlook,Ms Access 2007,我在Microsoft Access中有一组记录,我正试图通过电子邮件发送这些记录。电子邮件功能非常有效。除非每次准备发送邮件时都会弹出一条警告消息,并且用户必须为发送的每封邮件单击“允许”或“拒绝”。我查找了一个变通方法,并一直遵循教程: . 我的问题是,当我将消息放入函数时,它总是返回false,消息失败。任何帮助都将不胜感激 Dim sendMail As Boolean Dim strMessage As String strMessage = Some Message sendMail
我的问题是,当我将消息放入函数时,它总是返回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)
决心。我不得不在Microsoft Outlook的信任中心禁用宏的安全检查