Az összes hiperhivatkozás-cím kibontása és megjelenítése egy e-mailben az Outlook VBA-n keresztül

A hiperhivatkozások címeinek megtekintéséhez legtöbbször a kurzort a megjelenített szöveg fölé kell vinni. Ez a cikk megtanítja, hogyan használhatja a VBA-t egyetlen kattintással az összes cím megjelenítéséhez egyetlen e-mailben.

Mint tudja, az URL-cím közvetlen e-mail törzsébe való hozzáadása mellett megengedett a szövegekhez mutató hiperhivatkozások beszúrása. Ebben az esetben a hiperhivatkozások címeit nem tudja közvetlenül megtekinteni. Vigye a kurzort a megjelenített szöveg fölé. De elég unalmas lesz, ha túl sok ilyen hiperhivatkozás van az aktuális e-mailben, mivel egyenként kell ellenőriznie a címeket.

Válaszul erre a problémára, itt bemutatunk egy gyors módszert, amely VBA használatával segít az összes hiperhivatkozás címének közvetlen kibontásában és megjelenítésében. Így mindössze egyetlen kattintás szükséges. Most olvassa el a részletes lépéseket és a VBA-kódot.

Az összes hiperhivatkozási cím kibontása és megjelenítése egy e-mailben

1. Először is indítsa el az Outlook alkalmazást.
2. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
3. Ezután sikeresen hozzáférhet az Outlook VBA szerkesztőhöz.
4. Ezt követően meg kell nyitnia egy nem használt modult.
5. Ezt követően másolja ki és illessze be a következő VBA-kódokat ebbe a modulba.

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. Később, a későbbi kényelem érdekében, jobb, ha hozzáadja az új makrót az üzenetablak Gyorselérési eszköztárához.
7. Ezenkívül gondoskodnia kell arról, hogy az Outlook makróbeállításai engedélyezzék a makrókat.
8. Végre egy próbát tehetsz.

• Először nyisson meg egy e-mailt, amely sok hiperhivatkozást tartalmaz.
• Ezután váltson szerkeszthető módba. Csak kattintson a „Műveletek” > ​​„Üzenet szerkesztése” elemre.
• Ezután kattintson a makró gombra a Gyorselérési eszköztáron.
• Egyszerre az összes hiperhivatkozási cím kibontásra kerül, és az alábbi képernyőkép szerint jelenik meg:

Nem védett az Outlook-problémák ellen

Bár az Outlook sok rugalmas funkciót kínál a felhasználóknak, mégsem mentesülhet a hibák és összeomlások alól. Ezért, ha meg szeretné óvni Outlook-adatait a sérülés vagy elvesztés ellen, nagy erőfeszítéseket kell tennie. Például ki kell tartania az Outlook adatok rendszeres biztonsági mentését. Természetesen sokkal jobb lesz, ha készít egy erős Outlook helyreállítása eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com