Способы отправки электронной почты через MS Exchange с VBScript

Question

Мне нужно написать VBScript, который будет работать на Windows Server 03 (без Office, SMTP и т. Д. - как будто это новая установка). Этот сценарий должен отправлять электронные письма через сервер MS Exchange (на другом сервере). Итак, сейчас у меня встреча с руководителем группы, управляющей этими серверами. Чтобы подготовиться, я хотел бы знать , каким образом я должен отправлять электронную почту из VBScript через MS Exchange (в том числе, как пройти аутентификацию на сервере Exchange)? Что касается моего поиска в Google, есть один способ с CDO (только SMTP?), Который может использовать текущего пользователя для аутентификации или открытого имени пользователя и пароля.

редактирование: Или я ошибаюсь и есть только SMTP для отправки электронной почты через Exchange Server? Кроме того, что существует только аутентификация с открытым текстом / с использованием текущих учетных данных?

Cheers, Грегор

Answer 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

Answer 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.