使用 VBScript 通过 MS Exchange 发送电子邮件的方法答案

【问题标题】：Ways to send E-Mails over MS Exchange with VBScript使用 VBScript 通过 MS Exchange 发送电子邮件的方法
【发布时间】：2021-11-12 14:48:32
【问题描述】：

我必须编写一个可以在 Windows Server 03 上运行的 VBScript（没有安装 Office、SMTP 等 - 就像是全新安装一样）。此脚本应通过 MS Exchange 服务器（在另一台服务器上）发送电子邮件。所以现在我要与管理这些服务器的团队负责人开会。为了做好准备，我想知道我必须通过哪些方式通过 MS Exchange 从 VBScript 发送电子邮件（还包括如何使用 Exchange Server 进行身份验证）？

就我的谷歌搜索而言，有一种方法可以使用 CDO（仅 SMTP？），它可以使用当前用户进行身份验证或明文用户名和密码。

编辑： 还是我弄错了，只有 SMTP 用于通过 Exchange Server 发送电子邮件？还有只有明文/使用当前凭据的身份验证？

干杯，格雷戈尔

【问题讨论】：

标签： email vbscript exchange-server

【解决方案1】：

还有其他方法。

对于以前版本的 Exchange 服务器，我更喜欢 Exchange WebDav

并将 Exchange WebServices 与最新版本的 Exchange 一起使用。

这些方法不需要安装客户端，因此可以在任何地方使用。

WebDav：http://www.msexchange.org/articles/Access-Exchange-2000-2003-Mailbox-WebDAV.html 网络服务：http://msdn.microsoft.com/en-us/library/aa563009(v=EXCHG.140).aspx

EWS 脚本示例：Link

【讨论】：

【解决方案2】：

如果您将 CDO 与 SMTP 一起使用并使用 Windows 身份验证 (NTLM)。

Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2

将该值设置为 0 使其不使用身份验证，将其设置为 1 使用基本身份验证，2 使其使用 NTLM。

【讨论】：