Простой макрос в Outlook - VB

Формулировка задачи:

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

Решение задачи: «Простой макрос в Outlook»

textual
                            Листинг программы 
                        

                            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

                        