В этой теме нет ответов

[civil_nomad]

Столкнулся с такой проблемой.
Необходимо на Exchange Server'e "отлавливать" некоторые письма и закидывать их в MSSQL.
Аналогичный сервис уже работает и думал, что нужно поменять лишь пару строк...

Но в этом скрипте не могу получить текст сообщения "message body" (в уже работающем скрипте нужно было только "from", "subject")...

<script language=VBScript>
On Error Resume Next

Const cdoRunNextSink = 0

Const adCmdStoredProc = &H0004
Const adVarChar = 200
Const adWChar = 130
Const adParamInput = &H0001


Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

On Error Resume Next

Dim objConnection, objCommand, strConnection, intLen
Dim strBody, strToEmail, strFromEmail, strSubject

strToEmail = Msg.To
strFromEmail = Msg.From
strSubject = Msg.Subject
strBody = Msg.HTMLBody ' it's EMPTY!!!!!!!!!!!!


...здесь сохраняем в БД....

' continue with the next event sink
EventStatus = cdoRunNextSink

End Sub

</SCRIPT>