从VBScript发送邮件错误

Question

当运行以下脚本时，我得到错误-2147220975和传输代码错误:0x80040217

on error resume next
Const schema   = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoBasic = 1
Const cdoSendUsingPort = 2
Dim oMsg, oConf
Set oMsg      = CreateObject("CDO.Message")
oMsg.From     = "[e-mail]"  
oMsg.To       = "[e-mail]"    
oMsg.Subject  = "Test from VBScript"
oMsg.TextBody = "If you can read this, the script worked!"
objMsg.AddAttachment "C:BLA_BLA.txt"
Set oConf = oMsg.Configuration
oConf.Fields(schema & "smtpserver")       = "smtp.gmail.com" 
oConf.Fields(schema & "smtpserverport")   = 465              
oConf.Fields(schema & "sendusing")        = cdoSendUsingPort
oConf.Fields(schema & "smtpauthenticate") = cdoBasic         
oConf.Fields(schema & "smtpusessl")       = True             
oConf.Fields(schema & "sendusername")     = "[e-mail]" 
oConf.Fields(schema & "sendpassword")     = "PASSWORD"      
oConf.Fields.Update()
oMsg.Send()

If Err Then
    resultMessage = "ERROR " & Err.Number & ": " & Err.Description
    Err.Clear()
Else
    resultMessage = "Message sent ok"
End If
Wscript.echo(resultMessage)

我试过无数的脚本从互联网上，但他们似乎没有一个工作。我做错了什么?谢谢,汤姆

编辑:我正在运行Windows 10

Answer 1

传输代码错误:0x80040217可以是一些不同的东西，这取决于情况。下面的链接应该会指引你正确的方向……

堆栈溢出

MSDN

Answer 2

我发现可能对这有帮助的是，我想使用这个脚本的域有一个带有硬故障的SPF记录，所以只有他们特定的电子邮件服务器才能使用这个，在我的情况下是Office 365，但在测试时，我使用他们的ISP并试图通过他们进行未经身份验证的中继。

所以也要检查SPF，希望这有帮助。

Cozzie