De cele mai multe ori, pentru a vizualiza adresele hyperlinkurilor, trebuie să plasați cursorul peste textul afișat. Acest articol vă va învăța cum să utilizați VBA pentru a afișa toate adresele într-un singur e-mail, pur și simplu cu un singur clic.
După cum știți, în afară de adăugarea directă a unei adrese URL în corpul e-mailului, aveți permisiunea de a insera hyperlink către texte. În acest caz, nu veți putea vizualiza direct adresele hyperlinkului. Trebuie să plasați cursorul peste textul afișat. Dar, va fi destul de plictisitor dacă există prea multe astfel de hyperlinkuri în e-mailul curent, deoarece trebuie să verificați adresele una câte una.
Ca răspuns la această problemă, aici vom expune o metodă rapidă care utilizează VBA pentru a vă ajuta să extrageți și să afișați direct toate adresele hyperlink. În acest fel, ceea ce trebuie să faceți este un simplu clic. Acum citiți mai departe pentru a obține pașii elaborați și codul VBA.
Extrageți și afișați toate adresele hyperlink într-un e-mail
- În primul rând, lansați aplicația Outlook.
- Apoi apăsați butoanele tastei „Alt + F11” în fereastra principală a Outlook.
- În continuare, veți avea acces cu succes la editorul Outlook VBA.
- Ulterior, vi se va cere să deschideți un modul care nu este în uz.
- După aceea, copiați și inserați următoarele coduri VBA în acest 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
- Mai târziu, pentru comoditate ulterioară, ar fi bine să adăugați noua macrocomandă la bara de instrumente Acces rapid a ferestrei de mesaje.
- De asemenea, ar trebui să vă asigurați că setările pentru macrocomenzi Outlook permit macrocomenzi.
- În sfârșit poți încerca.
- Mai întâi, deschideți un e-mail care conține multe hyperlinkuri.
- Apoi treceți la modul editabil. Doar faceți clic pe „Acțiuni” > „Editați mesajul”.
- Apoi faceți clic pe butonul macro din bara de instrumente Acces rapid.
- Deodată, toate adresele hyperlink vor fi extrase și afișate ca următoarea captură de ecran:
Nu este imun la problemele Outlook
Deși Outlook oferă utilizatorilor o mulțime de funcții flexibile, tot nu poate fi scutit de erori și blocări. Prin urmare, dacă doriți să vă protejați datele Outlook împotriva corupției sau pierderii, trebuie să faceți eforturi mari. De exemplu, trebuie să persistați în a face backup de date Outlook în mod regulat. Desigur, va fi mult mai bine dacă pregătiți un puternic Recuperare Outlook instrument, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com