Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot obtenir la llista de la informació dels fitxers adjunts al correu seleccionat a Outlook?

Per als correus electrònics rebuts que s'adjunten amb fitxers adjunts, de vegades necessiteu conèixer la informació detallada dels fitxers adjunts, com ara el nom de visualització, el nom del fitxer, etc. En realitat, el codi VBA us pot ajudar a obtenir fàcilment la llista d'informació dels fitxers adjunts al correu electrònic actual seleccionat a Outlook. Si us plau, exploreu el tutorial a continuació per obtenir més detalls.

Obteniu la llista de la informació dels fitxers adjunts al correu seleccionat a Outlook

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

fletxa blau dreta bombollaObteniu la llista de la informació dels fitxers adjunts al correu seleccionat a Outlook

1. Seleccioneu el correu electrònic amb els fitxers adjunts que voleu obtenir la informació d'ells.

2. Premeu el botó Alt + F11 tecles del teclat per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. A continuació, feu doble clic a la icona Project1 > Microsoft Outlook Object > ThisOutlookSession per obrir el Project1 - ThisOutlookSession finestra. Mostra la captura de pantalla:

4. A continuació, copieu i enganxeu el codi VBA a sota a la finestra Project1 - ThisOutlookSession.

Codi VBA: obteniu la llista d'informació dels fitxers adjunts

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. Premeu F5 tecla al teclat per executar el codi VBA.

6. Ara a Macros quadre de diàleg apareix, feu clic a la icona de diàleg Correr botó.

7. Després de fer clic a la icona Correr botó al Macros quadre de diàleg, es crearà una nova finestra de missatge amb tota la informació adjunta dels correus electrònics seleccionats que figuren dins del cos del correu electrònic. Mostra la captura de pantalla:

Nota: Aquest codi VBA es pot aplicar a Outlook 2007, 2010 i 2013



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Courtney Halstead · 1 years ago
    Hi - I'm trying to figure out a way to set an automatic response which lists all the attachments they have sent. If this can include a file index for folders that would also be brilliant.


    Basically - we receive emails with document submissions, I already have an automatic response set up to thank them for their submission but if this could now include "the documents you submitted are as below:... etc" that would help massively.


    If somebody could help with this that would be brilliant! Thanks!
  • To post as a guest, your comment is unpublished.
    Sandra.H.H · 3 years ago
    Hello. can you imagine any possibility to fetch/open a specific attachment directly from your list (e.g. a link embedded).

    Thank You in advance Sandra