Я предполагаю, что причина, по которой вы получаете ошибку, заключается в том, что у вас больше нет ссылки на библиотеку объектов outlook, и поэтому MailItem
- это неизвестный тип.
Вместо использования TypeOf
If TypeOf olMail Is MailItem Then
используйте функцию TypeName
для сравнения имени типа объекта со строкой ...
If TypeName(olMail) = "MailItem" Then
(заметьте, я предполагаю, что имя типа будет MailItem
,но вы всегда можете добавить MsgBox TypeName(olMail)
просто чтобы быть уверенным!)