Atualmente estou usando o CDO para enviar e-mails do Access com VBA usando SMTP e funciona bem.
Meu problema é quando utilizo SMTP não vejo os e-mails enviados nos itens enviados na caixa de correio que estou utilizando. Preciso disso para poder provar ao destinatário que o e-mail foi realmente enviado. Alguém tem uma ideia de como posso consertar isso? Qualquer solução em VB.NET, C#ou VBScript( VBAcomo acima) será bem-vinda. Abaixo está meu script em 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