Envío de correo electrónico desde MSAccess con VBA

Question

Actualmente estoy usando CDO para enviar correos electrónicos desde Access con VBA usando SMTP y funciona bien.

Mi problema es que cuando uso SMTP no veo los correos electrónicos enviados en los elementos enviados en el buzón que estoy usando. Necesito esto para poder demostrarle al destinatario que el correo electrónico efectivamente se envió. ¿Alguien tiene una idea de cómo puedo solucionar este problema? Cualquier solución en VB.NET, C#o VBScript( VBAcomo arriba) será bienvenida. A continuación se muestra mi script en 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