2 быстрых метода печати списков вложений нескольких электронных писем Outlook

Иногда вам нужно извлечь и распечатать списки вложений нескольких электронных писем. В этой статье мы научим вас 2 методам его получения.

Если вы получаете несколько электронных писем с несколькими вложениями для ваших ссылок, вы можете распечатать эти имена вложений. В этой ситуации, как вы можете получить его оптом? После этого мы научим вас 2 способам быстрой печати списков вложений только для нескольких электронных писем Outlook.

Способ 1: распечатать и скопировать список вложений в формате RTF

1. В самом начале откройте электронную почту Outlook.
2. Затем в окне «Сообщение» нажмите «Действия» и выберите «Редактировать сообщение».
3. Далее перейдите на вкладку «Формат текста», на которой выберите формат «Rich Text».
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., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com