Question

这是我的环境：Windows Server 2003，Microsoft Access 2003，Microsoft VB 6.5 尝试使用CDO.Message从Access发送电子邮件。这是我的代码部分：

Private Sub btnTestEmail_Click()

On Error GoTo SendMail_Error:

Dim Mailmsg As Object
Dim mailconf As Object
Dim McFields As Object
Dim strSchemas As String

Set Mailmsg = CreateObject("CDO.Message")
Set mailconf = CreateObject("CDO.Configuration")
Set McFields = mailconf.Fields

strSchemas = "http://schemas.microsoft.com/cdo/configuration/"
With McFields
    .Item(strSchemas & "sendusing") = 2
    .Item(strSchemas & "smtpserver") = "smtp.gmail.com"
    .Item(strSchemas & "smtpserverport") = 465
    .Item(strSchemas & "smtpauthenticate") = 1
    .Item(strSchemas & "sendusername") = "my_email@gmail.com"
    .Item(strSchemas & "sendpassword") = "my_gmail_password"
    .Item(strSchemas & "smtpconnectiontimeout") = 60
    .Item(strSchemas & "smtpusessl") = 1
    .Update
End With

Set Mailmsg.Configuration = mailconf

With Mailmsg
    .TextBody = "Test email body text"
    .Subject = "Test email subject"
    .To = "target_email@gmail.com"
    .from = "my_email@gmail.com"
    '.AddAttachment "D:\test.pdf"

    .Fields("urn:schemas:mailheader:disposition-notification-to") = "my_email@gmail.com"
    .Fields("urn:schemas:mailheader:return-receipt-to") = "my_email@gmail.com"

    ' Set delivery status notification (DSN)
    '  Name                      Value   Description
    '  cdoDSNDefault             0       No DSN commands are issued.
    '  cdoDSNNever               1       No DSN commands are issued.
    '  cdoDSNFailure             2       Return a DSN if delivery fails.
    '  cdoDSNSuccess             4       Return a DSN if delivery succeeds.
    '  cdoDSNDelay               8       Return a DSN if delivery is delayed.
    '  cdoDSNSuccessFailOrDelay  14      Return a DSN if delivery succeeds, fails, or is

    .DSNOptions = 0

    .Fields.Update
    .Send
End With

MsgBox "Message Sent", vbOKOnly

Set Mailmsg = Nothing
Set mailconf = Nothing
Set McFields = Nothing

Exit Sub

SendMail_Error:
MsgBox Err.Description, vbOKOnly

End Sub

使用DSNOptions = 0效果很好，但我想收到送达通知（不是阅读通知）。如果我将DSNOptions设置为任何允许的非零值，则电子邮件甚至不会到达目标电子邮件，我也不会收到任何通知。奇怪的是，如果我设置了未发送的目标电子邮件（故意），即使DSNOptions = 0，我也会收到传递失败的通知。我在代码中遗漏了什么吗？在多个其他网站上找到人们声称此代码可以使用但使用其他smtp服务器。任何帮助表示赞赏。

CDO.Message传递通知失败

0 个答案: