Shumicën e kohës, për të parë adresat e hiperlidhjeve, duhet të mbani kursorin mbi tekstin që shfaqet. Ky artikull do t'ju mësojë se si të përdorni VBA për të shfaqur të gjitha adresat në një email thjesht me një klikim.
Siç e dini, përveç shtimit të drejtpërdrejtë të një URL në trupin e postës elektronike, ju lejohet të futni lidhje me tekste. Në këtë rast, nuk do të jeni në gjendje t'i shikoni adresat e hiperlidhjeve drejtpërsëdrejti. Ju duhet të lëvizni kursorin mbi tekstin që shfaqet. Por, do të jetë mjaft e lodhshme nëse ka shumë lidhje të tilla në emailin aktual, pasi duhet të kontrolloni adresat një nga një.
Në përgjigje të kësaj çështjeje, këtu do të ekspozojmë një metodë të shpejtë e cila është duke përdorur VBA për t'ju ndihmuar të nxirrni dhe shfaqni drejtpërdrejt të gjitha adresat e hiperlidhjeve. Në këtë mënyrë, ajo që ju kërkohet të bëni është thjesht një klik. Tani lexoni për të marrë hapat e përpunuar dhe kodin VBA.
Ekstraktoni dhe shfaqni të gjitha adresat e hiperlidhjeve në një email
- Në radhë të parë, hapni aplikacionin tuaj Outlook.
- Pastaj shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
- Më pas do të keni akses me sukses në redaktorin VBA të Outlook.
- Më pas, do t'ju kërkohet të hapni një modul që nuk është në përdorim.
- Pas kësaj, kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë modul.
Sub ShowAllHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objWordApp As Word.Application
Dim objWordSelection As Word.Selection
Dim objHyperlinks As Word.Hyperlinks
Dim objHyperlink As Word.Hyperlink
Dim strLink As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For Each objHyperlink In objHyperlinks
strLink = objHyperlink.Address
strLink = vbTab & "<" & strLink & ">"
objHyperlink.Range.InsertAfter strLink
objHyperlink.Delete
With objWordApp.Options
.AutoFormatReplaceHyperlinks = True
.AutoFormatApplyOtherParas = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyLists = False
.AutoFormatApplyFirstIndents = False
End With
Set objWordSelection = objWordApp.Selection
objWordSelection.Range.AutoFormat
Next
End If
End Sub
- Më vonë, për lehtësi të mëvonshme, është më mirë të shtoni makro të re në shiritin e veglave të aksesit të shpejtë të dritares së mesazheve.
- Gjithashtu, duhet të siguroheni që cilësimet e makrove të Outlook të lejojnë makro.
- Më në fund mund të provoni.
- Së pari, hapni një email që përmban shumë hiperlidhje.
- Pastaj kaloni në modalitetin e redaktueshëm. Thjesht klikoni "Veprimet" > "Ndrysho mesazhin".
- Më pas klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
- Menjëherë, të gjitha adresat e hiperlidhjeve do të nxirren dhe shfaqen si pamja e mëposhtme e ekranit:
Jo imun nga problemet e Outlook
Megjithëse Outlook u ofron përdoruesve shumë funksione fleksibël, ai ende nuk mund të përjashtohet nga gabimet dhe përplasjet. Prandaj, nëse dëshironi të mbroni të dhënat tuaja të Outlook kundër korrupsionit ose humbjes, duhet të bëni përpjekje të mëdha. Për shembull, ju duhet të vazhdoni të bëni rregullisht kopje rezervë të të dhënave të Outlook. Sigurisht, do të jetë shumë më mirë nëse përgatitni një potent Rimëkëmbja e opinionit mjet, si p.sh DataNumen Outlook Repair.
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ë sql i korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com