Kako dobiti seznam informacij o prilogah v izbrani pošti v Outlooku?
Za prejeta e-poštna sporočila, ki so priložena s prilogami, boste včasih morda morali poznati podrobne informacije o prilogah, kot so prikazno ime, ime datoteke itd. Koda VBA vam lahko pomaga preprosto dobiti seznam informacij o prilogah v trenutnem izbranem e-poštnem sporočilu v Outlooku. Za več podrobnosti poglejte spodnjo vadnico.
Pridobite seznam informacij o prilogah v izbrani pošti v Outlooku
- Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
- Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
- Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
- Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...
Pridobite seznam informacij o prilogah v izbrani pošti v Outlooku
1. Izberite e-poštno sporočilo s prilogami, za katere želite dobiti informacije o njih.
2. Pritisnite druga + F11 tipke na tipkovnici, da odprete Microsoft Visual Basic za aplikacije okno.
3. Nato dvokliknite Project1 > Predmet Microsoft Outlook > Ta OutlookSession da odprete Project1 - ThisOutlookSession okno. Oglejte si posnetek zaslona:
4. Nato kopirajte in prilepite spodnjo kodo VBA v okno Project1 - ThisOutlookSession.
Koda VBA: pridobite seznam informacij o prilogah
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. Pritisnite F5 tipko na tipkovnici za zagon kode VBA.
6. Zdaj a Makri Pojavi se pogovorno okno, kliknite Run gumb.
7. Po kliku na Run gumb v Makri V pogovornem oknu bo ustvarjeno novo okno s sporočili z vsemi informacijami o prilogah izbranega e-poštnega sporočila, ki so navedene znotraj telesa e-pošte. Oglejte si posnetek zaslona:
Opombe: To kodo VBA lahko uporabite za Outlook 2007, 2010 in 2013
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.