Jak extrahovat a zobrazit všechny adresy hypertextových odkazů v e-mailu pomocí aplikace Outlook VBA

Většinou je pro zobrazení adres hypertextových odkazů nutné najet kurzorem na zobrazený text. Tento článek vás naučí, jak pomocí VBA zobrazit všechny adresy v jednom e-mailu pouhým jedním kliknutím.

Jak víte, kromě přímého přidání adresy URL do těla e-mailu můžete vložit hypertextový odkaz na texty. V takovém případě nebudete moci přímo zobrazit adresy hypertextových odkazů. Je třeba umístit kurzor na zobrazovaný text. Bude však docela zdlouhavé, pokud je v aktuálním e-mailu příliš mnoho takových hypertextových odkazů, protože adresy musíte kontrolovat jeden po druhém.

V reakci na tento problém zde vystavíme rychlou metodu, která pomocí VBA pomáhá přímo extrahovat a zobrazit všechny adresy hypertextových odkazů. Tímto způsobem musíte jednoduše kliknout. Nyní čtěte dále a získejte propracované kroky a kód VBA.

Extrahujte a zobrazte všechny adresy hypertextových odkazů v e-mailu

1. Na prvním místě spusťte aplikaci Outlook.
2. Poté stiskněte „Alt + F11“ v hlavním okně aplikace Outlook.
3. Dále získáte úspěšně přístup k editoru Outlook VBA.
4. Následně budete požádáni o otevření modulu, který se nepoužívá.
5. Poté zkopírujte a vložte následující kódy VBA do tohoto modulu.

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. Později pro lepší pohodlí bylo lepší přidat nové makro na panel nástrojů Rychlý přístup v okně zprávy.
7. Měli byste také zajistit, aby vaše nastavení maker aplikace Outlook povolila makra.
8. Nakonec to můžete vyzkoušet.

• Nejprve otevřete e-mail, který obsahuje mnoho hypertextových odkazů.
• Poté přepněte do upravitelného režimu. Stačí kliknout na „Akce“> „Upravit zprávu“.
• Dále klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Najednou budou všechny adresy hypertextových odkazů extrahovány a zobrazeny jako následující snímek obrazovky:

Není imunní z problémů s Outlookem

Ačkoli Outlook poskytuje uživatelům mnoho flexibilních funkcí, stále se nemůže osvobodit od chyb a selhání. Pokud tedy chcete chránit svá data aplikace Outlook před poškozením nebo ztrátou, musíte vyvinout velké úsilí. Například je třeba vytrvat v pravidelném zálohování dat aplikace Outlook. Samozřejmě bude mnohem lepší, když si připravíte silný Obnova aplikace Outlook nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com