如何从 vbs 脚本发送电子邮件 - 在无法连接到互联网的计算机上(位于我的非互联网区域)。
我通过谷歌搜索将以下内容整合在一起，但似乎需要调用微软的服务器。如果我无法访问 microsoft.com，该怎么办？
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ''cdoSendUsingPort
.Item(sch & "smtpserver") = "my_internal_mail_server"
.update
End With
Set objEmail = CreateObject("CDO.Message")
set objEmail.configuration = cdoConfig
objEmail.From = "<a href="https://stackoverflow.com/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="b3ded6f3d6cbd2dec3dfd69dd0dcde" rel="noreferrer noopener nofollow">[email protected]</a>"
objEmail.To = "<a href="https://stackoverflow.com/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="f59890b5908d9498859990db969a98" rel="noreferrer noopener nofollow">[email protected]</a>"
objEmail.Subject = "Server is down!"
objEmail.Textbody = "Run out the guns!!!"
objEmail.Send
MsgBox "Script Complete"
(我有一个内部 SMTP 服务器...问题是必须轮询 MS 服务器)
最佳答案
您需要一个可从运行脚本的位置访问的 SMTP 服务器，该服务器知道如何将电子邮件发送到需要发送的位置。您可以配置 IIS 或 Exchange 来执行 SMTP(或任意数量的开源项目)，但需要对其进行配置，以便它可以将电子邮件中继到需要发送的位置。
编辑:我的印象是架构只是配置字段的命名空间，而不是它实际尝试从微软服务器加载的东西。当你运行它时，给它你的内部 smtp 服务器名称，会发生什么？您收到错误了吗？
关于email - 如何从 vbs 脚本发送电子邮件，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/2390112/