如何从 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 = "[email protected] /cdn-cgi/l/email-protection"
objEmail.To = "[email protected] /cdn-cgi/l/email-protection"
objEmail.Subject = "Server is down!"
objEmail.Textbody = "Run out the guns!!!"
objEmail.Send
MsgBox "Script Complete"
（我有一个内部 SMTP 服务器...问题是必须轮询 MS 服务器）
您需要一个可从运行脚本的位置访问的 SMTP 服务器，该服务器知道如何将电子邮件发送到需要发送的位置。您可以配置 IIS 或 Exchange 来执行 SMTP（或任意数量的开源项目），但需要对其进行配置，以便它可以将电子邮件中继到需要发送的位置。
编辑：我的印象是架构只是配置字段的命名空间，而不是它实际尝试从微软服务器加载的东西。当你运行它时，给它你的内部 smtp 服务器名称，会发生什么？你有错误吗？
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
