当发送收据请求时，CDO消息不会发送

Question

我正在使用Google Mail发送电子邮件的经典ASP（是的，请原谅我）编写应用程序。我有它工作得很好这样的：

Dim ObjSendMail 
Set ObjSendMail = CreateObject("CDO.Message") 

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = SendUsername 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SendPassword 
ObjSendMail.Configuration.Fields.Update 

ObjSendMail.To = "[email protected]" 
ObjSendMail.From = "[email protected]" 
ObjSendMail.Subject = "subject here..." 
ObjSendMail.HTMLBody = "body here..." 

'ObjSendMail.Fields("urn:schemas:mailheader:disposition-notification-to") = SendUsername 
'ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = SendUsername 
'ObjSendMail.Fields.Update 
'ObjSendMail.DSNOptions = 14 
ObjSendMail.Send 
Set ObjSendMail = Nothing 

当我去掉了下面几行：

'ObjSendMail.Fields("urn:schemas:mailheader:disposition-notification-to") = SendUsername 
'ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = SendUsername 
'ObjSendMail.Fields.Update 
'ObjSendMail.DSNOptions = 14 

电子邮件无法发送。没有错误，只是没有电子邮件，没有送货单。我无法弄清楚我的生活如何做这项工作。 “SendUsername”是一个有效的电子邮件地址。任何帮助，将不胜感激。

Answer 1

它可能不起作用，因为Gmail不希望你这样做。这类事情通常由垃圾邮件发送者指出。