2 Швидкі методи друку списків вкладень кількох електронних листів Outlook

Іноді вам потрібно буде витягти та роздрукувати списки вкладень з декількох електронних листів. У цій статті ми навчимо вас 2 методам його отримання.

Якщо ви отримуєте кілька електронних листів із декількома вкладеннями для своїх посилань, можливо, ви захочете роздрукувати ці імена вкладень. Як у цій ситуації отримати його навалом? Далі ми навчимо вас 2 способам швидкого друку списків вкладень лише з декількох електронних листів Outlook.

Спосіб 1: Друк та копіювання списку вкладень у форматі Rich Text

1. З самого початку відкрийте електронну пошту Outlook.
2. Потім у вікні Повідомлення натисніть «Дії» та виберіть «Редагувати повідомлення».
3. Далі перейдіть на вкладку «Форматування тексту», на якій виберіть формат «Розширений текст».
4. Одразу ви бачите, що вкладення електронної пошти переміщуються до основного.
5. Після цього натисніть кнопку «Відповісти» у групі «Відповісти» на вкладці «Повідомлення».
6. У наступному листі список вкладень вже містився в тексті, як на скріншоті нижче.
7. Тепер ви можете скопіювати список вкладень на новий електронний лист.
8. Пізніше використовуйте цей метод для копіювання списків вкладень інших електронних листів до нової пошти.
9. Нарешті, ви можете роздрукувати цю нову пошту як зазвичай.

Спосіб 2: Друк списків вкладень через Outlook VBA

1. Для початку натисніть «Alt + F11», щоб відкрити редактор VBA в Outlook.
2. Потім скопіюйте наступний код VBA в модуль.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Потім додайте цей макрос на панель швидкого доступу, звернувшись до статті - “Як запустити код VBA у своєму Outlook».
4. Зрештою, спробуйте цей макрос.

• Спочатку виберіть кілька електронних листів.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Одразу списки вкладень цих електронних листів мали бути роздруковані.

Зверніться до головного інструменту відновлення Outlook

Коли ви стикаєтесь з пошкодженнями файлів Outlook, мабуть, найкращою новиною є те, що у вас є недавня резервна копія даних Outlook. Це може дозволити вам позбутися складного виправлення файлів Outlook. Але іноді резервне копіювання не вдається відновити. У цей момент вам потрібно буде вдатися до більш зоряного та професійного інструменту виправлення, наприклад DataNumen Outlook Repair. Це можна відремонтувати корумпований PST протягом декількох хвилин.

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

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