Skip i'r prif gynnwys

Sut i gyfrif cyfanswm nifer yr atodiadau mewn e-byst dethol yn Outlook?

Rwy'n aml yn derbyn e-byst gydag atodiadau sy'n cymryd lle enfawr yn Microsoft Outlook. Ac yn awr rwyf am gyfrif cyfanswm yr atodiadau ar gyfer metrigau a'u hadolygu. Unrhyw syniadau da? Rwy'n darganfod dau gylch gwaith i ddatrys y broblem hon:

Cyfrif cyfanswm yr atodiadau mewn sawl e-bost gan arbed yr atodiadau hyn yn gyntaf yn Outlook

Fel rheol gallwn arbed atodiadau o un e-bost trwy actifadu'r Offer Ymlyniad a chymhwyso'r Arbedwch yr holl Atodiadau nodwedd yn Outlook. Ond, beth os arbed atodiadau o negeseuon e-bost lluosog, neu o'r ffolder post cyfan yn Outlook? Rhowch gynnig ar Kutools ar gyfer Outlook's Detach All (Atodiadau) nodwedd. Cliciwch am dreial am ddim 60 diwrnod heb gyfyngiad!

arbed atodiadau mewn sawl e-bost 2

Tab Office - Galluogi Golygu a Phori Tabiau yn Microsoft Office, Gwneud Gwaith yn Awel
Kutools ar gyfer Outlook - Hwb Outlook gyda 100 + Nodweddion Uwch ar gyfer Effeithlonrwydd Superior
Rhowch hwb i'ch Outlook 2021 - 2010 neu Outlook 365 gyda'r nodweddion uwch hyn. Mwynhewch dreial cynhwysfawr am ddim 60 diwrnod a dyrchafwch eich profiad e-bost!

swigen dde glas saeth Cyfrif cyfanswm yr atodiadau mewn e-byst dethol gyda VBA

Bydd y dull hwn yn cyflwyno VBA i gyfrif cyfanswm nifer yr atodiadau mewn e-byst dethol yn Outlook. Gwnewch fel a ganlyn:

1. Dewiswch yr e-byst y byddwch chi'n cyfrif eu hatodiadau, a gwasgwch y Alt + F11 allwedd ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl agoriadol.

VBA: Cyfrif nifer yr atodiadau mewn e-byst dethol

Sub CountAttachmentsMulti()
Dim oItem As Object
Dim iAttachments As Integer

For Each oItem In ActiveExplorer.Selection
iAttachments = oItem.Attachments.Count + iAttachments
Next
MsgBox "Selected " & ActiveExplorer.Selection.Count & " messages with " & iAttachments & " attachements"

End Sub

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

Ac yn awr mae blwch deialog yn dod allan ac yn dangos faint o atodiadau sydd yn yr e-byst a ddewiswyd. Gweler y screenshot:


swigen dde glas saeth Allforio a chyfrif atodiadau mewn negeseuon e-bost dethol gyda Kutools ar gyfer Outlook

Os oes gennych chi Kutools ar gyfer Outlook wedi'i osod, gallwch chi gymhwyso'r Datgysylltwch Bawb Nodwedd (Atodiadau) i allforio pob atodiad o sawl e-bost dethol, ac yna cyfrif atodiadau a allforir yn hawdd. Gwnewch fel a ganlyn:

Kutools ar gyfer Rhagolwg: Pecyn cymorth Outlook Ultimate gyda dros 100 o offer defnyddiol. Rhowch gynnig arni AM DDIM am 60 diwrnod, dim cyfyngiadau, dim pryderon!   Read More ...   Dechreuwch Treial Am Ddim Nawr!

1. Dewiswch yr e-byst y byddwch chi'n allforio ac yn cyfrif eu hatodiadau, a chlicio Kutools > Eraill > Datgysylltwch Bawb. Gweler y screenshot:

2. Bydd blwch deialog yn dod allan i ofyn am eich ail-gadarnhad ynghylch datgysylltu atodiadau. Cliciwch y Ydy botwm i fynd ymlaen.

3. Yn y blwch deialog agoriadol Pori Am Ffolder, nodwch ffolder y byddwch yn arbed yr atodiadau a allforiwyd iddo, a chliciwch ar y OK botwm.

Ac yn awr mae'r holl atodiadau yn yr e-byst a ddewiswyd yn cael eu hallforio a'u cadw i'r ffolder cyrchfan.

4. Agorwch y ffolder cyrchfan, a dewiswch yr holl atodiadau y gwnaethoch eu hallforio ar hyn o bryd, a byddwch yn cael nifer yr atodiadau a allforir yn y Bar statws o ffolder agoriadol. Gweler y screenshot:

Nodyn: Os yw un e-bost yn cynnwys mwy nag un atodiad, bydd yr atodiadau hyn yn cael eu cadw mewn un ffolder a'u henwi gyda phwnc yr e-bost hwn.

Kutools ar gyfer Rhagolwg: Supercharge Outlook gyda dros 100 o offer y mae'n rhaid eu cael. Prawf ei yrru AM DDIM am 60 diwrnod, dim tannau ynghlwm!   Read More ...   Lawrlwytho Nawr!


swigen dde glas saethDemo: Allforio a chyfrif atodiadau mewn negeseuon e-bost dethol gyda Kutools ar gyfer Outlook

Tip: Yn y Fideo hwn, Kutools tab yn cael ei ychwanegu gan Kutools ar gyfer Rhagolwg. Os oes ei angen arnoch, cliciwch yma i gael treial am ddim 60 diwrnod heb gyfyngiad!


swigen dde glas saethErthyglau Perthnasol


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 ProArbed 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.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code is great and all but for some reason the number it is counting as email 'attachments' is wrong. There are 19 email attachments and its saying there are 22. Is this counting something else as an attachment?
This comment was minimized by the moderator on the site
This is because "oItem.Attachments.Count" also counts embedded pictures (for example in the signature) as attachments. So this code will not work as intended once such an e-mail is part of the selection.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations