Exchange Server 2000 WorkFlow

[SAS]

Я использую Exchange Workflow Project Package SP1 для обработки событий, происходящих с документами в папках Exchange Server 2000 (например - получение нового сообщения, редактирование сообщения опред. пользователем, удаление и пр.).
Язык, который используется для обработки событий - VBScript. C помощью различных методов я программно могу прочитать заголовок или текст сообщения, адрес отправителя, список получателей, создать и отправить новое сообщение от имени администратора Exchange Server, добавить сообщение в базу данных sql сервера, но не могу понять:
1. возможно ли удалить сообщение, вызвавшее срабатывание триггера;
2. Как получить вложенные в сообщение файлы;
3. Возможно ли при получении сообщения перенаправить его по другому адресу (программно)

[Sebas]

Если сообщение есть CDO.Message
1. Нужно установить соответсвующий транспортный хидер
2. Соответственно Msg.Attachments
3. Msg.To="asd@asd.asd"

[SAS]

Пытался использовать CDO.Message, однако при выполнении следующего кода на адрес "to@myserver.ru" приходит сообщение об ошибке 429, ошибка происходит на строке

Код: Выделить всё

Set iMsg = createobject ("CDO.Message")

, больше негде:

Код: Выделить всё

Sub Create1_OnCreate
on error resume next
Dim iMsg
err.Clear
Set iMsg = createobject ("CDO.Message")
Set WFMsg = WorkflowSession.GetNewWorkflowMessage
With WFMsg
      .From = "from@myserver.ru"
      .To = "to@myserver.ru"
      .Subject =  "error number"
      .TextBody = err.number
      .SendWorkflowMessage cdowfStrict
End With
End Sub

вероятно надо как то установить настроить CDO, и что значит транспортный хидер?

Еще такая проблемка: пытался написать сообщение на русском языке:

Код: Выделить всё

Set WFMsg = WorkflowSession.GetNewWorkflowMessage
With WFMsg
      .From = "from@myserver.ru"
      .To = "to@myserver.ru"
      .Subject =  "error number"
      .TextBody = "сообщение на русском языке"
      .SendWorkflowMessage cdowfStrict
End With

на адрес "to@myserver.ru" иногда приходит сообщение на русском языке, а чаще - вопросительные знаки вместо текста.
Как исправить?

[alibek]

Поставь MS Outlook, CDO в него входит.

[Sebas]

Код: Выделить всё

        Public Sub Block(ByVal Msg As CDO.Message, ByRef EventStatus As CDO.CdoEventStatus)
        Dim objFields As ADODB.Fields

        objFields = Msg.EnvelopeFields
        objFields.Item("http://schemas.microsoft.com/cdo/SMTPenvelope/messagestatus").Value = 3
        objFields.Update()

        '       
        'cdoStatSuccess 0 Success.
        'cdoStatAbortDelivery 2 Do not deliver the message.
        'cdoStatBadMail 3 Do not deliver the message and place it in the bad mail location.

        EventStatus = CDO.CdoEventStatus.cdoSkipRemainingSinks

    End Sub


[SAS]

Поставь MS Outlook, CDO в него входит.

Outlook это ведь клиент, а мне нужно, чтобы код выполнялся на стороне сервера Exchange, при действии над сообщением в определенной папке сервера - например при получении письма, при редактировании, при удалении, при истечении определенного срока и пр.

Это ведь, я понимаю код на VBA, а мне подходит только VBS, он только выполняется на сервере
Попробую на виртуальной машине у себя поставить Exchange Server полностью, может, что и получится с объектами. На оригинальном сервере боязно что то доустанавливать

[SAS]

Кажется с удалением объекта, вызвавшего срабатывание триггера, проблема решена нужно использовать метод

Код: Выделить всё

WorkflowSession.DeleteWorkflowItem