1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft Outlook >> alle outlook >>

Hvordan komme listen over vedlegg informasjon i valgt post i Outlook?


Hvordan få listen over vedlegg 'informasjon i valgt post i Outlook?

For de mottatte e-poster som er festet med vedlegg, noen ganger må du kanskje å vite detaljert informasjon av vedlegg, for eksempel visningsnavn, filnavn og så videre. Egentlig kan VBA-kode hjelpe deg enkelt få listen over vedlegg 'informasjon i gjeldende valgte e-post i Outlook. Vennligst bla under opplæringen for flere detaljer.
2013.

Få listen over vedlegg 'informasjon i valgt post i Outlook
1. Velg e-post med vedlegg som du ønsker å få informasjon om dem.
To. Trykk Alt + F11 på tastaturet for å åpne Microsoft Visual Basic for Applications vinduet.
3. Deretter dobbeltklikker du Project1 > Microsoft Outlook Object > ThisOutlookSession å åpne Project1 - ThisOutlookSession vinduet. Se skjermbilde:
4. Deretter kopiere og lime inn nedenfor VBA koden i Project1 - ThisOutlookSession vindu
VBA-kode. Få listen over vedlegg informasjons
Option ExplicitPublic Sub GetAttachmentList () Dim selItem As Object Dim amail Som MailItem Dim AFest Som vedlegg Dim Rapporter Som String For Hver selItem I Application.ActiveExplorer.Selection Hvis selItem.Class = olMail Deretter Sett amail = selItem For Hver AFest I aMail.Attachments Rapporter = Rapport & vbCrLf & "------------------------------------------------- ----------------------- "& vbCrLf Rapporter = Rapport & GetAttachmentInfo (AFest) Neste Call CreateReportEmail ("Vedlegg Report", Rapport) End If NextEnd Sub Public Function GetAttachmentInfo (vedlegg Som vedlegg) Dim Rapporter GetAttachmentInfo = "" Report = Rapport & "Index:" & attachment.Index & vbCrLf Rapporter = Rapport & "Visningsnavn:" & attachment.DisplayName & vbCrLf Rapporter = Rapport & "File Name:" & attachment.FileName & vbCrLf Rapporter = Rapport & "Block nivå:" & attachment.BlockLevel & vbCrLf Rapporter = Rapport & "Sti Navn:" & attachment.PathName & vbCrLf Rapporter = Rapport & "Position:" & attachment.Position & vbCrLf Rapporter = Rapport & "Størrelse:" & attachment.Size & vbCrLf Rapporter = Rapport & "Type:" & attachment.Type & vbCrLf GetAttachmentInfo = ReportEnd FunctionSub CreateReportEmail (Tittel As String, Rapporter As String) Dim amail Som MailItem Set amail = Application.CreateItem (olMailItem) aMail.Subject = Tittel aMail.Body = Rapporter aMail.DisplayEnd Sub 5. Trykk F5-tasten på tastaturet å kjøre VBA-kode.
6. Nå er en makroer dialogboks åpnes, klikker du på Kjør-knappen.
7. Etter å ha klikket på knappen Kjør i dialogboksen Makroer, vil et nytt meldingsvindu lages med alle vedlegg informasjon om valgte e-posten oppført inne i e-postteksten. Se skjermbilde:
Merk: Dette VBA-kode kan brukes til Outlook 2007, 2010 og 2013

20 + kraftige verktøy og funksjoner for