Я пытаюсь автоматически распечатать все вложения из любого входящего письма.Проблема в том, что когда я получаю электронное письмо, оно не содержит никаких вложений, и даже тело остается пустым.
Sub LSPrint(Item As Outlook.MailItem)
MsgBox Item.Attachments.Count
Dim oAtt As Attachment
For Each oAtt In Item.Attachments
'code for print
next oAtt
End Sub
Проблема в Item.Attachments.Count по какой-то причине 0.Но всякий раз, когда я пытался использовать:
Dim MItem As Outlook.MailItem
Set MItem = ActiveExplorer.Selection.Item(1)
MsgBox MItem.Attachments.Count
, я получаю MItem.Attachments.Count = 1, поэтому он работает, но печатает только вложения из выбранной в данный момент почты.Поэтому мне придется вручную выбирать только что полученное письмо, что не очень приятно.Мне нужно распечатать вложения из новых входящих электронных писем автоматически, не выбирая вручную последнее электронное письмо.
Я также пытался отобразить электронную почту, находясь внутри функции.
Item.Display
Электронная почтапоказывает только субъект с пустым телом и без вложений.Но после завершения функции электронное письмо показывает тело и вложения.