Как перехватить отправляющееся письмо?

[natalyapb]

  Прошу помочь

  Такой трабл: Outlook + Exchange 2003; два ящика - Вася Пупкин и info; отправленное с info письмо сохраняется в Sent Items Васи Пупкина; а надо, чтобы в Отправленных info.

  Значит, я перебрала кучу вариантов, пришла в итоге к тому, чтобы перехватывать письмо при отправке, и в случае если оно с info, то присваивать ему определенную категорию, т.к. в Outlook есть возможноть создать правило, которое письмо с определенной категорией будет перемещать в нужную папку.

  Не пойму, как мне выцепить письмо от определенного адресата!!! Нашла такие свойства Mailitem: SenderEmailAddress - Read-only, SenderName - Read-only, SendUsingAccount -Read/write, но не понятно как правильно записать имя аккаунта  , SentOnBehalfOfName - тоже Read/write, но опять таки не понятно, как записать имя мейлбокса. Свойство для задания категории нашла, так и называется Categories.

  Помогите, пожалуйста! Может я вообще не по тому пути иду?

[RXL]

natalyapb, причем тут Visual Basic?
Перененес в Windows.

[natalyapb]

RXL, а как решить это в Windows?

[RXL]

natalyapb, наверно я что-то не допонял. Судя по тишине - многие тоже не поняли. Попробуй рассказать еще  раз и подробно.

[natalyapb]

RXL, проблема в том, что когда я (или кто-то другой) отправляю письмо и в поле ОТ указываю не свой адрес natalyapb@domain.ru, а общий info@domain.ru, то письмо это сохраняется в моем почтовом ящике, а надо - чтобы в общем.

[Вад]

А сортировщик для исходящих писем в Аутлуке разве не работает? Если работает, то непонятно, чем он не устраивает. Где находится "общий ящик" - другая локальная папка, другой аккаунт?

[natalyapb]

Вад, если Вы имеете в виду мастер создания правил, то нет, там нет условия для отбора писем, отправленных с определенного ящика MS Exchange.

[doublebug]

А решение должно быть локальное или серверное?

Если локальное то в принципе можно попробовать простой трюк.
Для отправленных писем есть свойство которое определяет в какую папку складывать письмо после отправки.
Для решени надо создать плагин к Аутлуку и перехватить OnSend событие.

В событии проанализировать письмо и поменять это свойство (SaveSentMessageFolder или через MAPI PR_SENTMAIL_ENTRYID)

[natalyapb]

Всем спасибо, проблему я свою решила, все у меня работает.
ЗЫ. Решила с помощью VBA 

[RXL]

natalyapb, расскажешь как?

[natalyapb]

Пожалуйста, вот код:

Код:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

      Mailb = "ИмяПочтовогоЯщика"
    
On Error Resume Next
      If Item.SentOnBehalfOfName = Mailb Then
        '    MsgBox "Yes"
        Item.Categories = "НазваниеКатегории"
      End If

End Sub

Теперь в Outlook надо создать правило, которое бы помещало копию письма, отправленного с этой категорией, в нужную папку в нужном ящике.
Воть.