Kako izvleči in prikaži vse naslove hiperpovezav v e-pošti prek Outlookovega VBA

V večini primerov morate za ogled naslovov hiperpovezav premakniti kazalec miške nad prikazano besedilo. Ta članek vas bo naučil, kako uporabljati VBA za prikaz vseh naslovov v enem e-poštnem sporočilu s preprostim klikom.

Kot veste, lahko poleg neposrednega dodajanja URL-ja v telo e-pošte vstavite hiperpovezavo do besedil. V tem primeru naslovov hiperpovezav ne boste mogli neposredno videti. Kazalec morate premakniti nad prikazano besedilo. Vendar bo precej dolgočasno, če bo v trenutnem e-poštnem sporočilu preveč takih hiperpovezav, saj morate naslove preverjati enega za drugim.

Kot odgovor na to težavo vam bomo tukaj predstavili hiter način, ki uporablja VBA, ki vam pomaga neposredno izvleči in prikazati vse naslove hiperpovezav. Na ta način morate le en klik. Zdaj preberite, kako boste dobili podrobne korake in kodo VBA.

Izvleči in prikaži vse naslove hiperpovezav v e-pošti

1. Najprej zaženite aplikacijo Outlook.
2. Nato v glavnem Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato boste uspešno dostopali do urejevalnika Outlook VBA.
4. Nato boste morali odpreti modul, ki ni v uporabi.
5. Po tem kopirajte in prilepite naslednje kode VBA v ta 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

6. Kasneje, za kasnejše udobje, raje dodajte nov makro v orodno vrstico za hitri dostop v oknu za sporočila.
7. Prav tako morate zagotoviti, da nastavitve makra v Outlooku dovoljujejo makre.
8. Končno lahko poskusite.

• Najprej odprite e-poštno sporočilo, ki vsebuje veliko hiperpovezav.
• Nato preklopite v način za urejanje. Samo kliknite »Dejanja«> »Uredi sporočilo«.
• Nato kliknite gumb makra v orodni vrstici za hitri dostop.
• Naenkrat bodo vsi naslovi hiperpovezav izvlečeni in prikazani kot naslednji posnetek zaslona:

Ni imun zaradi težav z Outlookom

Čeprav Outlook ponuja uporabnikom veliko prilagodljivih funkcij, še vedno ne more biti izvzet iz napak in zrušitev. Če želite svoje podatke v Outlooku zaščititi pred poškodbami ali izgubo, se morate zelo potruditi. Na primer, vztrajati morate pri rednem varnostnem kopiranju podatkov v Outlooku. Seveda bo veliko bolje, če boste pripravili močan Obnovitev programa Outlook orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com