Ich verwende derzeit CDO, um E-Mails aus Access mit VBA über SMTP zu senden, und es funktioniert einwandfrei.
Mein Problem ist, dass ich bei Verwendung von SMTP die gesendeten E-Mails nicht in den gesendeten Elementen in dem von mir verwendeten Postfach sehe. Ich brauche dies, damit ich dem Empfänger nachweisen kann, dass die E-Mail tatsächlich gesendet wurde. Hat jemand eine Idee, wie ich das beheben kann? Jede Lösung in VB.NET, C#, VBScriptoder VBA(wie oben) ist willkommen. Unten ist mein Skript in 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 protected]"
.From = "[email protected]"
.Subject = "EmailSubject"
.HTMLBody = strBody
.AddAttachment myfile
.Fields("urn:schemas:mailheader:disposition-notification-to") = "[email protected]"
.DSNOptions = cdoDSNSuccessFailOrDelay
.Fields.Update
.Send
If Err.Number <> 0 Then
Debug.Print Err.Description
End If