Sut i gael rhestr o wybodaeth atodiadau mewn post dethol yn Outlook?
Ar gyfer yr e-byst a dderbynnir sy'n atodi gydag atodiadau, weithiau efallai y bydd angen i chi wybod gwybodaeth fanwl yr atodiadau, fel enw'r arddangos, enw'r ffeil ac ati. Mewn gwirionedd, gall cod VBA eich helpu chi i gael y rhestr o wybodaeth atodiadau yn hawdd mewn e-bost dethol cyfredol yn Outlook. Porwch y tiwtorial isod i gael mwy o fanylion.
Sicrhewch restr o wybodaeth atodiadau mewn post dethol yn Outlook
- Awtomeiddio e-bostio gyda Auto CC / BCC, Auto Ymlaen gan reolau; anfon Ymateb Auto (Allan o'r Swyddfa) heb fod angen gweinydd cyfnewid...
- Cael nodiadau atgoffa fel Rhybudd BCC wrth ymateb i bawb tra'ch bod ar restr BCC, a Atgoffwch Wrth Ymlyniadau ar Goll am atodiadau anghofiedig...
- Gwella effeithlonrwydd e-bost gyda Ateb (Pawb) Gydag Atodiadau, Ychwanegu Cyfarchiad neu Dyddiad ac Amser yn Awtomatig i'r Llofnod neu'r Pwnc, Ateb E-byst Lluosog...
- Symleiddio e-bostio gyda E-byst Dwyn i gof, Offer Ymlyniad (Cywasgu Pawb, Auto Save All...), Tynnwch y Dyblygion, a Adroddiad Cyflym...
Sicrhewch restr o wybodaeth atodiadau mewn post dethol yn Outlook
1. Dewiswch yr e-bost gydag atodiadau yr ydych am gael y wybodaeth amdanynt.
2. Gwasgwch y Alt + F11 allweddi ar y bysellfwrdd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Yna cliciwch ddwywaith ar y Project1 > Gwrthrych Microsoft Outlook > SesiwnOutlook i agor y Prosiect1 - ThisOutlookSession ffenestr. Gweler y screenshot:
4. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr Project1 - ThisOutlookSession.
Cod VBA: mynnwch restr o wybodaeth atodiadau
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. Gwasgwch F5 allwedd ar y bysellfwrdd i redeg y cod VBA.
6. Nawr a Macros blwch deialog yn ymddangos, cliciwch ar y Run botwm.
7. Ar ôl clicio Run botwm yn y Macros blwch deialog, bydd ffenestr neges newydd yn cael ei chreu gyda'r holl wybodaeth atodiadau o e-bost dethol wedi'i rhestru y tu mewn i'r corff e-bost. Gweler y screenshot:
Nodyn: Gellir cymhwyso'r cod VBA hwn i Outlook 2007, 2010 a 2013
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.