Добрый день!
Подскажите, пожалуйста, есть возможность написать в OUTLOOK вот такой макрос.
Есть 2 почтовых ящика – один личный, другой общий. Иногда рука может дрогнуть и письмо в место личного ящика пишется с общего.
Хотелось бы чтобы при попытке отправить письмо (а лучше вообще на этапе создания) в общего ящика, выводилось предупреждение.

Макросы в Excel пишу, но об Outlook не знаю ровным счетом ничего.
Спасибо.

Nik_Kurta[src vba]
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMail As Object
Set strMail = Application.Session.Accounts.Item(2)
If strMail = "adress@mail.ru" Then
MsgBox "Ñîîáùåíèå"
Cancel = True
End If
End Sub



Спасибо.
Но что-то не работает. Я одного не поняла. Почему Item(2). Это же видимо порядковый номер письма? И он может быть разным.
Почту есстественно поменяла на свою. Вставила в стандартный модуль.
Не работает.

И еще вопрос. Есть ли аналогичное событие, но на создание письма. А не на отправку.

Спасибо большое!

Nik_KurtaВсё работает!
Item(2) - это не порядковый номер письма!

А что это?
Я тестирую на пока личном ящике. Может в этом проблема?
Перенесла код в ThisOutlookSession, но по-прежнему письма отправляюся без подтверждения.

Nik_KurtaTakayavot, проверьте настройку параметров безопасности макросов в MS Outlook

изменила временно на "enable all macros" и все равно не помогло.