vb6 msoutl.olb发送邮件

我正在使用msoutl.olb库发送邮件。

使用的代码如下:

Public Sub SendErrorLogToMailRecipients()
    Dim errorReportText As String

Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim txtStrm As TextStream

Set txtStrm = fso.OpenTextFile(frmMain.LogFileLocationFromRBT, ForReading, False, TristateTrue)
errorReportText = txtStrm.ReadAll
Call txtStrm.Close

If clsCom.IsStringEmpty(gstrErrorMailRecipients) Or clsCom.IsStringEmpty(errorReportText) Then
    Exit Sub
End If

Dim mItm As MailItem
On Error GoTo EH
Set mItm = outlApplication.CreateItem(olMailItem)
mItm.Save

With mItm
.To = gstrErrorMailRecipients
.Subject = "[[Express Claim Mail Process Error]]"
.Body = errorReportText
.BodyFormat = olFormatPlain
.Send
End With

Exit Sub
EH:
    Call frmMain.LogErrorAcrossUsingRBT("SendErrorLogToMailRecipients")
End Sub

我在Outlook中收到的下列邮件阻止我发送邮件的问题:

一个程序正试图代表您自动发送电子邮件。 你想允许这样做吗? 如果这是意外的,可能是病毒,您应该选择“否”。

我通过API访问邮箱时收到了类似的错误。我的解决方法是 ClickYes . 问题是我不想使用专业版。

谢谢。