Jak uzyskać listę informacji o załącznikach w wybranej poczcie w Outlooku?

W przypadku otrzymanych wiadomości e-mail z załącznikami czasami może być konieczne podanie szczegółowych informacji o załącznikach, takich jak nazwa wyświetlana, nazwa pliku itp. W rzeczywistości kod VBA może pomóc w łatwym uzyskaniu listy informacji o załącznikach w aktualnie wybranej wiadomości e-mail w Outlooku. Więcej informacji znajdziesz w poniższym samouczku.

Pobierz listę informacji o załącznikach w wybranej poczcie w Outlooku

Pobierz listę informacji o załącznikach w wybranej poczcie w Outlooku

1. Wybierz wiadomość e-mail z załącznikami, o której chcesz uzyskać informacje.

2. wciśnij inny + F11 klawisze na klawiaturze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. Następnie kliknij dwukrotnie plik Project1 > Obiekt programu Microsoft Outlook > Ta sesja programu Outlook otworzyć Project1 - ThisOutlookSession okno. Zobacz zrzut ekranu:

4. Następnie skopiuj i wklej poniższy kod VBA do okna Project1 - ThisOutlookSession.

Kod VBA: pobierz listę informacji o załącznikach

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub 

5. naciśnij F5 klawisz na klawiaturze, aby uruchomić kod VBA.

6. Teraz a Makra pojawi się okno dialogowe, kliknij run przycisk.

7. Po kliknięciu przycisku run przycisk w Makra W oknie dialogowym zostanie utworzone nowe okno wiadomości ze wszystkimi informacjami o załącznikach wybranej wiadomości e-mail wymienionymi w treści wiadomości e-mail. Zobacz zrzut ekranu:

Note: Ten kod VBA można zastosować w programach Outlook 2007, 2010 i 2013

---

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki Pro: Zapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

Czytaj więcej       Darmowe pobieranie      Zakup