Hvordan får jeg en liste over vedhæftede oplysninger i valgt mail i Outlook?
For de modtagne e-mails, der vedhæftes vedhæftede filer, skal du nogle gange have brug for at kende de detaljerede oplysninger om vedhæftede filer, såsom displaynavnet, filnavnet og så videre. Faktisk kan VBA-kode hjælpe dig med let at få listen over vedhæftede filer i den aktuelle valgte e-mail i Outlook. Se nedenstående tutorial for flere detaljer.
Få en liste over vedhæftede oplysninger i valgt mail i Outlook
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
Få en liste over vedhæftede oplysninger i valgt mail i Outlook
1. Vælg e-mailen med vedhæftede filer, som du ønsker at få oplysningerne om.
2. Tryk på andre + F11 taster på tastaturet for at åbne Microsoft Visual Basic til applikationer vindue.
3. Dobbeltklik derefter på Project1 > Microsoft Outlook-objekt > Denne OutlookSession at åbne Project1 - ThisOutlookSession vindue. Se skærmbillede:
4. Kopier og indsæt derefter nedenstående VBA-kode i Project1 - ThisOutlookSession-vinduet.
VBA-kode: få en liste over vedhæftede oplysninger
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. Trykke F5 tasten på tastaturet for at køre VBA-koden.
6. Nu en Makroer dialogboksen vises, skal du klikke på Kør .
7. Efter at have klikket på Kør knappen i Makroer dialogboks oprettes et nyt meddelelsesvindue med alle oplysninger om vedhæftede filer for den valgte e-mail, der er angivet i e-mail-kroppen. Se skærmbillede:
Bemærk: Denne VBA-kode kan anvendes på Outlook 2007, 2010 og 2013
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.