email - 通过VBS脚本发送电子邮件

我正在尝试通过VBS发送电子邮件，但我不断收到错误消息。我希望它发送电子邮件尽可能简单。
不起作用，出现以下错误:

        Set objEmail = CreateObject("CDO.Message")
        objEmail.From = "[email protected]"
        objEmail.To = "[email protected]"
        objEmail.Subject = "thisisasubject"
        objEmail.Textbody = "Here is the message"
        objEmail.Send

错误:

最佳答案

Set emailObj      = CreateObject("CDO.Message")

emailObj.From     = "[email protected]"
emailObj.To       = "[email protected]"

emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "YourUserName"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password1"

emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

关于email - 通过VBS脚本发送电子邮件，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/21973581/