В настоящее время я использую CDO для отправки электронной почты из Access с VBA, используя SMTP, и он работает нормально.
Моя проблема в том, что при использовании SMTP я не вижу отправленные электронные письма в отправленных элементах в почтовом ящике, который я использую. Мне нужно это, чтобы я мог доказать получателю, что электронное письмо действительно было отправлено. Кто-нибудь есть идеи, как я могу это исправить? Любое решение в VB.NET
, C#
, VBScript
или VBA
(как указано выше) будет приветствоваться. Ниже мой сценарий в VBA
.
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
Const cdoNTLM = 2 'NTLM
'Delivery Status Notifications
Const cdoDSNDefault = 0 'None
Const cdoDSNNever = 1 'None
Const cdoDSNFailure = 2 'Failure
Const cdoDSNSuccess = 4 'Success
Const cdoDSNDelay = 8 'Delay
Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay
Set objmsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
With objFlds
''http://schemas.microsoft.com/cdo/configuration/ the .Items must pe prefixed with this
.Item("sendusing'") = cdoSendUsingPort
.Item("smtpserver'") = "1.1.1.1"
.Item("smtpauthenticate") = cdoBasic
.Item("sendusername") = Username
.Item("sendpassword") = Password
.Item("smtpserverport") = 25
.Update
End With
strbody = "Message here"
With objmsg
Set .Configuration = objConf
.To = "email@domain.com"
.From = "me@domain.com"
.Subject = "EmailSubject"
.HTMLBody = strBody
.AddAttachment myfile
.Fields("urn:schemas:mailheader:disposition-notification-to") = "me@domain.com"
.DSNOptions = cdoDSNSuccessFailOrDelay
.Fields.Update
.Send
If Err.Number <> 0 Then
Debug.Print Err.Description
End If