怎样屏蔽outlook的安全提示！

[SP12345678902]

怎样屏蔽outlook的安全提示！

其具体的提示信息如下 ：a program is trring to automatically send e-mail on your balf,
do you want to allow this?
if this is uunexpeted,it may be a virus and you should choose "no"

[dbcontrols]

无代码无真相
你哪句出的错总该贴一下吧？

[SP12345678902]

Public Function sendMail(strMailAddress As String, messageContent As String, strTitle As String)
Dim blnLogOn As Boolean
Dim arrMailAddress() As String
Dim i As Long

On Error GoTo ErrHandle
    
    '如果邮件地址没有的话，就不发送
    If strMailAddress = "" Then
        Exit Function
    Else
        '支持收件人地址以逗号或者以分号隔开的配置方法
        strMailAddress = Replace(strMailAddress, ",", ";")
        '支持多收件人地址发送
        arrMailAddress = Split(strMailAddress, ";")
    End If

    '邮件正文末尾加上必要的信息
    messageContent = messageContent & vbCrLf
    messageContent = messageContent & vbCrLf & "xxxx工具"
    messageContent = messageContent & vbCrLf & Format(Now, "yyyy-MM-dd")
    messageContent = messageContent & vbCrLf & "------------------------------------------------------------"
    messageContent = messageContent & vbCrLf & "本邮件为系统自动发送，请勿回复。"
    
    With frmMain.MAPISession
        .LogonUI = False
        .SignOn         '登录
    End With
    
    '支持多收件人地址发送
    For i = LBound(arrMailAddress) To UBound(arrMailAddress)
    '如果邮件地址不为空则发送
    If arrMailAddress(i) <> "" Then
            With frmMain.MAPIMessages
                .MsgIndex = -1
                .SessionID = frmMain.MAPISession.SessionID
                .RecipDisplayName = arrMailAddress(i)
                .MsgSubject = strTitle
                .MsgNoteText = messageContent
                .Send
            End With
        End If
    Next
    
    '退出登录
    With frmMain.MAPISession
        .SignOff
    End With
    '程序结束
    Exit Function
ErrHandle:
    '退出登录
    With frmMain.MAPISession
        .SignOff
    End With
End Function

[SP12345678902]

.send方法执行的时候出的outlook的安全提示