VBA를 사용하여 MSAccess에서 이메일 보내기

Question

현재 CDO를 사용하여 SMTP를 사용하여 VBA로 Access에서 전자 메일을 보내고 있는데 제대로 작동합니다.

내 문제는 SMTP를 사용할 때 내가 사용하는 사서함의 보낸 항목에 보낸 전자 메일이 표시되지 않는다는 것입니다. 이메일이 실제로 전송되었음을 수신자에게 증명할 수 있도록 이 정보가 필요합니다. 이 문제를 어떻게 해결할 수 있는지 아는 사람이 있나요? VB.NET, 또는 (위와 같이) 의 모든 솔루션을 C#환영 합니다. 아래는 내 스크립트입니다 .VBScriptVBAVBA

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