Я использую библиотеку 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 . Проблема в том, что я не хочу использовать Pro версию.
Спасибо.