Vbscript 邮件发送时出错

作为web设计项目的一部分，我一直在测试以下脚本，以便使用经典ASP中的VBScript将提交的表单作为电子邮件发送。如果启用了“访问不太安全的应用程序”，则在本地主机服务器（Windows 7上的IIS 7.5）上运行时，它会与我的个人Gmail帐户一起工作。但是，当我尝试在远程服务器（Windows server 2012上的IIS 8）上运行此代码时，在

Mail.Send上产生了错误80040211；这与禁用“不太安全的应用程序访问”时产生的错误相同，这一事实让我认为是Gmail身份验证造成了问题

Set Mail = CreateObject("CDO.Message")

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="******"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="******"

Mail.Configuration.Fields.Update

Mail.Subject="Form submission"
Mail.From="******"
Mail.To="******"
Mail.TextBody=""

For Each thisItem In Request.QueryString
    Mail.TextBody = Mail.TextBody & thisItem & ": " & Request.QueryString(thisItem) & vbNewLine
Next


Mail.Send
Set testMail=nothing

您知道IIS8服务器上正确配置了哪些ASP邮件组件（CDOSYS等）吗？这可能是一个问题。
您的远程服务器是否有自己的SMTP服务器，您可以尝试使用它？@John我在这台服务器上使用免费试用帐户，由于垃圾邮件问题，SMTP服务器不附带该帐户。