Если вы хотите создать новое электронное письмо и добавить все вложения из нескольких других электронных писем в новое письмо, вы можете использовать метод, представленный в этой статье. Это научит вас использовать VBA, чтобы получить его как ветер.
Иногда вам может потребоваться скопировать все вложения из нескольких электронных писем в новое электронное письмо. Конечно, вы можете сделать это вручную, просто сначала сохранив их на локальном диске, а затем прикрепив их к вновь созданному электронному письму один за другим. Однако, судя по всему, таким образом, это будет довольно утомительная задача. Поэтому, почему бы вам не использовать VBA, чтобы быстро реализовать это? Далее мы представим вам сложные операции и соответствующие коды VBA.
Пакетное копирование всех вложений из нескольких электронных писем в новое электронное письмо
- В самом начале сtart вашу программу Outlook, как обычно.
- Затем в главном окне Outlook нажмите клавиши «Alt + F11».
- В следующем окне «Microsoft Visual Basic для приложений» вставьте новый модуль или откройте модуль, который не используется.
- Затем скопируйте и вставьте в такой модуль следующие коды VBA.
Sub NewEmailwithAttachmentsinSeveralEmails() Dim objSelection As Outlook.Selection Dim objMail As Outlook.MailItem Dim objAttachment As Outlook.Attachment Dim objFileSystem As Object Dim strFilePath As String Dim objNewMail As Outlook.MailItem Set objSelection = Outlook.Application.ActiveExplorer.Selection Set objNewMail = Outlook .Application.CreateItem(olMailItem) При ошибке Возобновить Далее Для каждого objMail В objSelection Для каждого objAttachment В objMail.attachments 'Сохранить все вложения в temporary folder Set objFileSystem = CreateObject("Scripting.FileSystemObject") strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename objAttachment.SaveAsFile (strFilePath) 'Добавить вложения в новое электронное письмо objNewMail.attachments.Add (strFilePath) 'Удалить темпrary файлы objFileSystem.DeleteFile (strFilePath) Next Next 'Показать новый адрес электронной почты objNewMail.Display End Sub
- После этого вы должны приступить к добавлению нового проекта VBA на панель быстрого доступа. Вы можете заполнить его в «Параметры Outlook».
- Позже вам следует изменить уровень безопасности макросов Outlook на низкий.
- Наконец-то можно попробовать.
- Во-первых, нажмите клавишу «Ctrl» и выберите несколько писем, вложения которых вы хотите скопировать.
- Затем нажмите кнопку нового макроса на панели быстрого доступа.
- Сразу же появится новое электронное письмо со всеми прикрепленными вложениями.
Вызовите частые проблемы Outlook PST
Поскольку проблемы с Outlook PST могут возникать время от времени, вам следует приложить много усилий для защиты ваших данных PST. Например, вам лучше регулярно создавать резервные копии данных PST, чтобы вы могли поврежденный Outlook данные из резервных копий без особых усилий. Кроме того, вы должны держать поблизости надежный инструмент, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com