Hoe u alle hyperlinkadressen in een e-mail kunt extraheren en weergeven via Outlook VBA

Meestal moet je de cursor over de weergegeven tekst bewegen om de hyperlinkadressen te kunnen zien. In dit artikel leer je hoe je met VBA alle adressen in één e-mail kunt weergeven met slechts één klik.

Zoals u weet, mag u, naast het rechtstreeks toevoegen van een URL in de hoofdtekst van de e-mail, hyperlinks naar teksten invoegen. In dat geval kunt u de hyperlinkadressen niet rechtstreeks zien. U moet de cursor over de weergegeven tekst bewegen. Maar het zal nogal vervelend zijn als er te veel van dergelijke hyperlinks in de huidige e-mail staan, aangezien u de adressen een voor een moet controleren.

Als reactie op dit probleem zullen we hier een snelle methode laten zien die VBA gebruikt om u te helpen bij het extraheren en weergeven van alle hyperlinkadressen. Op deze manier hoeft u slechts één klik te doen. Lees nu verder om de uitgebreide stappen en VBA-code te krijgen.

Extraheer en toon alle hyperlinkadressen in een e-mail

1. Start in de eerste plaats uw Outlook-applicatie.
2. Druk vervolgens op de toetsen "Alt + F11" in het hoofdvenster van Outlook.
3. Vervolgens krijgt u met succes toegang tot de Outlook VBA-editor.
4. Vervolgens moet u een module openen die niet in gebruik is.
5. Kopieer en plak daarna de volgende VBA-codes in deze module.

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. Later, voor later gemak, kunt u de nieuwe macro beter toevoegen aan de werkbalk Snelle toegang van het berichtvenster.
7. U moet er ook voor zorgen dat uw macro-instellingen in Outlook macro's toestaan.
8. Eindelijk kun je het proberen.

• Open eerst een e-mail die veel hyperlinks bevat.
• Schakel vervolgens over naar de bewerkbare modus. Klik gewoon op "Acties"> "Bericht bewerken".
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• In één keer worden alle hyperlinkadressen geëxtraheerd en weergegeven zoals in de volgende schermafbeelding:

Niet immuun voor Outlook-problemen

Hoewel Outlook gebruikers veel flexibele functies biedt, kan het nog steeds niet worden vrijgesteld van fouten en crashes. Daarom, als u uw Outlook-gegevens wilt beschermen tegen corruptie of verlies, moet u grote inspanningen leveren. U moet bijvoorbeeld doorgaan met het regelmatig maken van Outlook-gegevensback-ups. Het is natuurlijk veel beter als je een potje maakt Outlook-herstel tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com