2 Szybkie metody drukowania list załączników wielu wiadomości e-mail programu Outlook

Czasami musisz wyodrębnić i wydrukować listy załączników wielu wiadomości e-mail. W tym artykule nauczymy Cię 2 metod, aby to osiągnąć.

Jeśli otrzymasz kilka e-maili z wieloma załącznikami do celów referencyjnych, możesz wydrukować te nazwy załączników. W tej sytuacji, jak możesz to zrobić hurtowo? Następnie nauczymy Cię 2 sposobów szybkiego drukowania list załączników tylko z wielu wiadomości e-mail programu Outlook.

Metoda 1: Wydrukuj i skopiuj listę załączników w formacie RTF

1. Na samym początku otwórz wiadomość e-mail programu Outlook.
2. Następnie w oknie wiadomości kliknij „Działania” i wybierz „Edytuj wiadomość”.
3. Następnie przejdź do zakładki „Formatuj tekst”, na której wybierz format „Tekst sformatowany”.
4. Od razu widać, że załączniki do wiadomości e-mail są przenoszone do treści.
5. Następnie kliknij przycisk „Odpowiedz” w grupie „Odpowiedz” w zakładce „Wiadomość”.
6. W kolejnym mailu lista załączników była już w treści, jak na poniższym zrzucie ekranu.
7. Teraz możesz skopiować listę załączników do nowej wiadomości e-mail.
8. Później użyj tej metody, aby skopiować listy załączników innych wiadomości e-mail do nowej wiadomości.
9. Na koniec możesz jak zwykle wydrukować tę nową wiadomość.

Metoda 2: Wydrukuj listy załączników za pośrednictwem programu Outlook VBA

1. Na początek naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Outlook.
2. Następnie skopiuj następujący kod VBA do modułu.

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. Następnie dodaj to makro do paska narzędzi szybkiego dostępu, korzystając z artykułu - „Jak uruchomić kod VBA w swoim Outlooku".
4. W końcu wypróbuj to makro.

• Najpierw wybierz kilka e-maili.
• Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
• Listy załączników do tych e-maili musiały zostać natychmiast wydrukowane.

Skorzystaj z najlepszego narzędzia do naprawy programu Outlook

Kiedy natkniesz się na uszkodzenie pliku Outlooka, najlepszą wiadomością musi być to, że masz pod ręką ostatnią kopię zapasową danych programu Outlook. Pozwala pozbyć się skomplikowanej poprawki pliku Outlook. Czasami jednak kopia zapasowa może nie zostać przywrócona. W tym momencie będziesz musiał skorzystać z bardziej gwiezdnego i profesjonalnego narzędzia naprawczego, takiego jak DataNumen Outlook Repair. Może naprawić uszkodzony plik PST w kilka minut.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com