A ju është kërkuar ndonjëherë të numëroni numrin e bashkëngjitjeve të postës elektronike në emailet e zgjedhura? Do të jetë e lodhshme nëse i numëroni me dorë. Këtu do t'ju ndihmojmë ta bëni numërimin shumë më të lehtë dhe më të shpejtë me Outlook VBA.
Për disa arsye, mund t'ju duhet të numëroni numrin e bashkëngjitjeve në email-et e Outlook-ut. Nëse thjesht doni të merrni numrin e bashkëngjitjeve në një email, do të jetë mjaft e lehtë. Por nëse dëshironi të numëroni bashkëngjitjet në disa email-e, do të jetë shumë e vështirë t'i numëroni manualisht. Në përgjithësi, një nga mënyrat më të zakonshme është të ruani të gjitha bashkëngjitjet në një dosje lokale në kompjuterin tuaj. Pastaj zgjidhini ato dhe Windows Explorer do t'ju tregojë numrin e artikujve të zgjedhur në shiritin e statusit.
Sidoqoftë, nuk mund të mohohet se kjo metodë është ende mjaft e rëndë. Në fakt, me anë të Outlook VBA, ju mund të merrni shpejt numrin e përgjithshëm të bashkëngjitjeve në emailet e zgjedhura të Outlook. Lexoni për të mësuar kodet dhe hapat e detajuar VBA.
Merrni shpejt numrin total të bashkëngjitjeve në emailet e zgjedhura
- Fillimisht, hapni aplikacionin Outlook dhe shkoni te skeda "Zhvilluesi".
- Pastaj mund të klikoni në butonin "Visual Basic". Do t'ju sjellë në dritaren "Microsoft Visual Basic për Aplikime".
- Më pas duhet të hapni një modul të ri që nuk përdoret. Zgjidhni "Fut" > "Modul".
- Pas kësaj, duhet të kopjoni dhe ngjisni kodet e mëposhtme VBA në të.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Më pas, mund të dilni nga dritarja "Visual Basic" dhe të ktheheni te dritarja kryesore e Outlook. Më pas duhet të gjeni dhe shtypni shigjetën poshtë në shiritin e veglave të aksesit të shpejtë dhe zgjidhni "Më shumë komanda" nga lista rënëse.
- Më vonë ndiqni hapat e treguar në imazhin më poshtë.
- Më në fund mund të provoni.
- Pasi të keni zgjedhur disa email, mund të shtypni butonin e ri në shiritin e veglave të aksesit të shpejtë. Më pas, do të merrni një mesazh që ju tregon numrin e bashkëngjitjeve në emailet e zgjedhura. Duket si imazhi i mëposhtëm:
- Por nëse zgjidhni ndonjë artikull që është njësoj kërkesa për takime ose përgjigje në vend të emaileve, do të merrni një alarm, si fotografia më poshtë:
Reagoni ndaj problemeve të rastit të opinionit
Nëse e keni përdorur Outlook për dekada, duhet të keni hasur probleme të shumta, duke përfshirë mospërgjigjen e Outlook, ngrirjen e Outlook, mesazhe të shpeshta gabimi dhe Korrupsioni i postës elektronike të Outlook PST e kështu me radhë. A keni zotëruar tashmë ndonjë truk për t'i adresuar ato? Në përgjithësi, mund ta nisni Outlook-un në modalitetin e sigurt, të krijoni një profil të ri të Outlook-ut, të riparoni Office-in dhe të çaktivizoni shtesat e palëve të treta, etj. Përveç kësaj, duhet të mbani afër edhe një mjet të fuqishëm riparimi, si p.sh. DataNumen Outlook Repair. Do të jetë e dobishme kur të dyja rezervimet dhe mjeti i riparimit të kutisë hyrëse dështojnë.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i të dhënave të korruptuara SQL dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com