Hur man extraherar och visar alla hyperlänkadresser i ett e-postmeddelande via Outlook VBA

För att se hyperlänkadresserna måste du föra markören över den visade texten. Den här artikeln lär dig hur du använder VBA för att visa alla adresser i ett e-postmeddelande med ett enda klick.

Som du vet, förutom att direkt lägga till en URL i e-postkroppen, har du tillåtelse att infoga hyperlänk till texter. I det här fallet kommer du inte att kunna se hyperlänkadresserna direkt. Du måste hålla muspekaren över den visade texten. Men det blir ganska tråkigt om det finns för många sådana hyperlänkar i det aktuella e-postmeddelandet, eftersom du måste kontrollera adresserna en efter en.

Som svar på denna fråga kommer vi här att exponera en snabb metod som använder VBA för att hjälpa dig att extrahera och visa alla hyperlänkadresser direkt. På det sättet är det du måste göra bara ett klick. Läs vidare för att få detaljerade steg och VBA-kod.

Extrahera och visa alla hyperlänkadresser i ett e-postmeddelande

1. För det första, starta din Outlook-applikation.
2. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
3. Därefter får du tillgång till Outlook VBA-redigeraren framgångsrikt.
4. Därefter måste du öppna en modul som inte används.
5. Efter det, kopiera och klistra in följande VBA-koder i den här modulen.

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. Senare, för senare bekvämlighet, skulle du bättre lägga till det nya makrot i snabbåtkomstverktygsfältet i meddelandefönstret.
7. Du bör också se till att dina makroinställningar i Outlook tillåter makron.
8. Äntligen kan du prova.

• Öppna först ett e-postmeddelande som innehåller många hyperlänkar.
• Byt sedan till redigerbart läge. Klicka bara på "Åtgärder"> "Redigera meddelande".
• Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
• Omedelbart extraheras alla hyperlänkadresser och visas som följande skärmdump:

Inte immun mot Outlook-problem

Även om Outlook ger användarna många flexibla funktioner kan det fortfarande inte undantas från fel och kraschar. Därför, om du vill skydda dina Outlook-data mot korruption eller förlust, måste du göra stora ansträngningar. Till exempel måste du fortsätta att säkerhetskopiera Outlook-data regelbundet. Naturligtvis blir det mycket bättre om du förbereder en potent Outlook-återställning verktyg, såsom DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com