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     = "tom.watt.vulpes@gmail.com"  
oMsg.To       = "tom.watt.vulpes@gmail.com"    
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")     = "tom.watt.vulpes@gmail.com" 
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可能是一些不同的东西，具体取决于具体情况。以下链接应指导您正确的方向...

Overflowing Stack

MSDN

Answer 2

我发现可能与此有关的一点是，我想要使用此脚本的域有一个附加了硬故障的SPF记录，因此只有他们的特定电子邮件服务器可以使用此在我的情况下是Office 365但在测试时我正在使用他们的ISP并尝试通过它们中继未经身份验证。

因此，请检查SPF，希望这有帮助。

Cozzie

从VBScript发送电子邮件时出错

2 个答案: