email - CDO.メッセージ配信通知に失敗しました

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 でも、存在しないターゲット メールを (意図的に) 設定すると、配信失敗の通知が表示されます。コードに何か不足がありますか? 他の複数の Web サイトで、このコードは機能するが他の SMTP サーバーを使用していると主張する人がいます。どんな助けでも感謝します。