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

时间:2010-11-01 16:58:20

标签: email vbscript exchange-server

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

就我的谷歌搜索来说,有一种方法可以使用CDO(只有SMTP?),它可以使用当前用户进行身份验证或明文用户名&密码。

编辑: 或者我错了,只有SMTP通过Exchange Server发送电子邮件?此外,只有明文/使用当前凭证的身份验证?

干杯, 格里

2 个答案:

答案 0 :(得分:1)

如果您使用带有SMTP的CDO并使用Windows身份验证(NTLM)。

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

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

答案 1 :(得分:1)

还有其他方法。

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

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

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

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

EWS脚本示例:http://blogs.msdn.com/b/vikas/archive/2007/11/22/howto-ews-call-exchange-web-service-from-vbscript.aspx