Пересылать вложения из нескольких сообщений в Microsoft Outlook

Question

Имея несколько сообщений электронной почты с одним или несколькими вложениями в каждом сообщении, как я могу переслать все такие только вложения (не сообщения, а только вложения)?Я ищу простое решение, которое не займет слишком много времени.

Answer 1

Делать это в VBA довольно просто.Используйте коллекцию объектов Explorer.Selection для перебора всех объектов MailItem и перебора каждой коллекции вложений каждого MailItem, используя Attachment.SaveAsFile, чтобы временно сохранить каждый файл на диск.Затем вы можете создать новый объект MailItem и использовать MailItem.Attachments.Add, чтобы добавить каждый из сохраненных файлов, а затем вызвать MailItem.Display, чтобы отобразить электронную почту.