Как выполнить пакетное копирование всех вложений из нескольких электронных писем в новое электронное письмо в Outlook

Если вы хотите создать новое электронное письмо и добавить все вложения из нескольких других электронных писем в новое письмо, вы можете использовать метод, представленный в этой статье. Это научит вас использовать VBA, чтобы получить его как ветер.

Иногда вам может потребоваться скопировать все вложения из нескольких электронных писем в новое электронное письмо. Конечно, вы можете сделать это вручную, просто сначала сохранив их на локальном диске, а затем прикрепив их к вновь созданному электронному письму один за другим. Однако, судя по всему, таким образом, это будет довольно утомительная задача. Поэтому, почему бы вам не использовать VBA, чтобы быстро реализовать это? Далее мы представим вам сложные операции и соответствующие коды VBA.

Пакетное копирование всех вложений из нескольких электронных писем в новое электронное письмо

1. В самом начале сtart вашу программу Outlook, как обычно.
2. Затем в главном окне Outlook нажмите клавиши «Alt + F11».
3. В следующем окне «Microsoft Visual Basic для приложений» вставьте новый модуль или откройте модуль, который не используется.
4. Затем скопируйте и вставьте в такой модуль следующие коды 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)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. После этого вы должны приступить к добавлению нового проекта VBA на панель быстрого доступа. Вы можете заполнить его в «Параметры Outlook».
6. Позже вам следует изменить уровень безопасности макросов Outlook на низкий.
7. Наконец-то можно попробовать.

• Во-первых, нажмите клавишу «Ctrl» и выберите несколько писем, вложения которых вы хотите скопировать.
• Затем нажмите кнопку нового макроса на панели быстрого доступа.
• Сразу же появится новое электронное письмо со всеми прикрепленными вложениями.

Вызовите частые проблемы Outlook PST

Поскольку проблемы с Outlook PST могут возникать время от времени, вам следует приложить много усилий для защиты ваших данных PST. Например, вам лучше регулярно создавать резервные копии данных PST, чтобы вы могли поврежденный Outlook данные из резервных копий без особых усилий. Кроме того, вы должны держать поблизости надежный инструмент, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com