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