Kuinka purkaa ja näyttää kaikki hyperlinkin osoitteet sähköpostissa Outlook VBA: n kautta

Useimmiten hyperlinkkien osoitteiden näkemiseksi sinun on vietävä kohdistin näytettävän tekstin päälle. Tässä artikkelissa opit käyttämään VBA:ta kaikkien osoitteiden näyttämiseen yhdessä sähköpostiviestissä yhdellä napsautuksella.

Kuten tiedät, URL-osoitteen lisäämisen lisäksi sähköpostiosoitteeseen voidaan lisätä hyperlinkki tekstiin. Tässä tapauksessa et voi tarkastella hyperlinkkien osoitteita suoraan. Sinun on vietävä kohdistin näytettävän tekstin päälle. Mutta on melko tylsiä, jos nykyisessä sähköpostissa on liikaa tällaisia ​​hyperlinkkejä, koska sinun on tarkistettava osoitteet yksitellen.

Vastauksena tähän ongelmaan paljastamme tässä nopean menetelmän, joka käyttää VBA: ta kaikkien hyperlinkkien osoitteiden purkamiseen ja näyttämiseen suoraan. Tällä tavoin sinun on tehtävä vain yksi napsautus. Lue nyt saadaksesi yksityiskohtaiset vaiheet ja VBA-koodin.

Pura ja näytä kaikki hyperlinkin osoitteet sähköpostissa

1. Käynnistä ensin Outlook-sovellus.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi saat pääsyn Outlook VBA -editoriin onnistuneesti.
4. Tämän jälkeen sinun on avattava moduuli, jota ei käytetä.
5. Tämän jälkeen kopioi ja liitä seuraavat VBA-koodit tähän moduuliin.

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. Myöhemmin, mukavuuden lisäämiseksi, sinun on parempi lisätä uusi makro viestiikkunan pikakäyttöpalkkiin.
7. Lisäksi sinun on varmistettava, että Outlook-makroasetuksesi sallivat makrot.
8. Lopuksi voit kokeilla.

• Avaa ensin sähköposti, joka sisältää monia hyperlinkkejä.
• Siirry sitten muokattavaan tilaan. Napsauta vain "Toiminnot"> "Muokkaa viestiä".
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Kaikki hyperlinkkien osoitteet puretaan kerralla ja näytetään kuten seuraava kuvakaappaus:

Ei immuuni Outlook-ongelmista

Vaikka Outlook tarjoaa käyttäjille paljon joustavia toimintoja, se ei silti voi vapautua virheistä ja kaatumisista. Siksi, jos haluat suojata Outlook-tietosi korruptiolta tai häviöltä, sinun on ponnisteltava paljon. Sinun on esimerkiksi jatkettava Outlookin tietojen varmuuskopiointia säännöllisesti. Tietenkin on paljon parempi, jos valmistat voimakkaan Outlook-palautus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com