Как я могу прочитать специальный тип почты в сетевой папке

Question

Почтовый элемент, выбранный из папки сетевого ресурса, имеет странный значок, отличающийся от обычного типа (прикрепленное изображение).Это может быть связано с сообщением о прочтении / непрочитанном статусе полученной почты.Может быть, другой класс в целом.

Как читать этот тип почты в VBA?

Dim oSel As Outlook.Selection

Set oSel = Outlook.Application.ActiveExplorer.Selection

Dim oEmail As Outlook.mailitem

Set oEmail = oSel.Item(1)    ' getting a 13 compile error in this line

Answer 1

У вас есть ReportItem объект, а не MailItem.Объявите oEmail как универсальный объект и либо используйте функцию TypeName(), чтобы выяснить фактический тип объекта, либо прочитайте свойство Class (все объекты Outlook предоставляют его) - для объектов MailItem это будет 43 (olMail).).