Question

如何从vbs脚本发送电子邮件 - 在无法连接到互联网的计算机上（位于我的非互联网区域）。

我从google搜索中一起攻击了以下内容，但似乎需要调用Microsoft的服务器。那些我无法访问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 = "me@example.com"
objEmail.To = "me@example.com"
objEmail.Subject = "Server is down!"
objEmail.Textbody = "Run out the guns!!!"
objEmail.Send

MsgBox "Script Complete"

（我有一个内部SMTP服务器......问题是必须轮询MS服务器）

Answer 1

您需要一个可从脚本运行位置访问的SMTP服务器，该服务器知道如何将电子邮件发送到需要的位置。您可以将IIS或Exchange配置为执行SMTP（或任意数量的开源项目），但需要对其进行配置，以便将电子邮件中继到需要的位置。

编辑：我的印象是架构只是配置字段的命名空间，而不是它实际上试图从微软服务器加载的东西。当你运行它，给它你的内部smtp服务器名称，会发生什么？你有错误吗？

Answer 2

另一种选择，如果你想快速和脏是blat这是一个命令行实用程序，通过SMTP发送邮件。 http://www.blat.net

Answer 3

我正处于工作中的这种情况，我们只有一个可以进行邮件发送的SMTP服务器，但是在所有需要进行邮件发送的地方都有脚本。因此，我将邮件作为单行文本字符串附加到SMTP服务器上的文件中，其中安排了VBS脚本读取此文件并发送邮件。如果你有兴趣我明天在这里发表。希望它有所帮助..

如何从vbs脚本发送电子邮件

3 个答案: