Работа с текущей открытой электронной почтой
Я хотел бы получить активный открытый MailItem (будь тоs новая почта или полученная почта). Мне нужно добавить контент к этому письму, когда пользователь запускает мой макрос. Я'м с помощью Outlook 2003 и VBA.
Я нашел это:Как получить ссылку на почтовый элемент в текущем открытом окне в Outlook, используя VBA? Это нет работать однако, потому чтоTypeName(Application.ActiveWindow)
ничего не установлено. Я тоже пробовалSet Mail = Application.ActiveInspector.currentItem
но это нетоже не работает.
Там должно быть что-то, что я нене понимаю оActiveInspector вещь.
По запросу это процедура / макрос, расположенный в выделенном модуле, вызываемый, когда пользователь нажимает на кнопку меню, добавленную вApplication_Startup()
метод:
Sub myMacro()
Dim NewMail As Outlook.MailItem
Set NewMail = Application.ActiveInspector.currentItem
End Sub