Электронная почта от MSAccess с VBA

221
Manie Verster

В настоящее время я использую 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
1
Посмотри в логах сервера smtp DavidPostill 7 лет назад 1
Да, Дэвид, я знаю об этом, но у меня нет легкого доступа к нему, потому что там есть электронные письма всей компании, и они не дадут мне доступ к этому. Поэтому я хочу это в моих отправленных товарах. Manie Verster 7 лет назад 0

0 ответов на вопрос

Похожие вопросы