Як пакетно копіювати всі вкладення з декількох електронних листів на новий електронний лист в Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо ви хочете створити новий електронний лист і додати до нього нові вкладення в кількох інших електронних листах, ви можете скористатися методом, представленим у цій статті. Це навчить вас використовувати VBA, щоб отримати його як вітерець.

Іноді вам може знадобитися пакетне копіювання всіх вкладень з декількох електронних листів на новий електронний лист. Звичайно, ви можете зробити це вручну, просто спершу збереживши їх на локальний диск, а потім прикріпивши їх до новоствореної електронної пошти по одному. Однак, мабуть, цим способом це буде досить нудне завдання. Отже, чому б вам не використовувати VBA, щоб швидко це зрозуміти? Далі ми розповімо вам про складні операції та відповідні коди VBA.

Пакетне копіювання всіх вкладень з декількох електронних листів на новий електронний лист

Пакетне копіювання всіх вкладень з декількох електронних листів на новий електронний лист

  1. На самому початку запустіть програму Outlook як завжди.
  2. Потім у головному вікні Outlook натисніть клавіші “Alt + F11”.
  3. У наступному вікні “Microsoft Visual Basic for Applications” вставте новий модуль або відкрийте модуль, який не використовується.
  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

Код VBA - пакетне копіювання всіх вкладень з декількох електронних листів на новий електронний лист

  1. Після цього слід продовжити додавання нового проекту VBA на панель швидкого доступу. Ви можете заповнити його в "Параметри Outlook".
  2. Пізніше вам слід змінити рівень захисту макросів Outlook на низький.
  3. Нарешті можна спробувати.
  • По-перше, натисніть клавішу “Ctrl” і виберіть кілька листів, вкладення яких ви хочете скопіювати.
  • Потім натисніть нову кнопку макросу на панелі швидкого доступу.
  • Негайно з’явиться нове повідомлення електронної пошти з усіма вкладеннями.

Киньте виклик частим виданням PST в Outlook

Оскільки проблеми PST з Outlook можуть виникати час від часу, вам слід витратити багато зусиль, щоб захистити свої дані PST. Наприклад, вам краще регулярно створювати резервні копії даних PST, щоб можна було повернути файл корумпований Outlook дані з резервних копій, не потіючи піт. Більше того, ви повинні тримати поряд з собою поважний інструмент, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.