Ako extrahovať a zobraziť všetky adresy hypertextových odkazov v e-maile prostredníctvom programu Outlook VBA

Väčšinou na zobrazenie adries hypertextových odkazov stačí umiestniť kurzor myši nad zobrazený text. Tento článok vás naučí používať VBA na zobrazenie všetkých adries v jednom e-maile jednoduchým jedným kliknutím.

Ako viete, okrem priameho pridania adresy URL do tela e-mailu môžete vložiť hypertextový odkaz na texty. V takom prípade nebudete môcť priamo zobraziť adresy hypertextových odkazov. Musíte umiestniť kurzor na zobrazený text. Bude však dosť zdĺhavé, ak bude v aktuálnom e-maile príliš veľa takýchto hypertextových odkazov, pretože adresy musíte kontrolovať jeden po druhom.

V reakcii na tento problém tu vystavíme rýchlu metódu, ktorá pomocou VBA pomáha priamo extrahovať a zobraziť všetky adresy hypertextových odkazov. Týmto spôsobom musíte urobiť iba jedno kliknutie. Teraz čítajte ďalej a získate zložité kroky a kód VBA.

Extrahujte a zobrazte všetky adresy hypertextových odkazov v e-maile

1. Na prvom mieste spustite aplikáciu Outlook.
2. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
3. Ďalej získate úspešný prístup k editoru Outlook VBA.
4. Následne budete požiadaní, aby ste otvorili modul, ktorý sa nepoužíva.
5. Potom skopírujte a prilepte nasledujúce kódy VBA do tohto 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. Neskôr, pre väčšie pohodlie, by ste mali lepšie pridať nové makro na panel nástrojov Rýchly prístup v okne správy.
7. Mali by ste sa tiež ubezpečiť, že vaše nastavenia makier programu Outlook povoľujú makrá.
8. Nakoniec to môžete vyskúšať.

• Najskôr otvorte e-mail, ktorý obsahuje veľa hypertextových odkazov.
• Potom prepnite do upraviteľného režimu. Stačí kliknúť na „Akcie“> „Upraviť správu“.
• Ďalej kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Naraz sa extrahujú všetky adresy hypertextových odkazov a zobrazia sa ako na nasledujúcom obrázku:

Nie je imunitný z problémov s programom Outlook

Aj keď program Outlook poskytuje používateľom množstvo flexibilných funkcií, stále sa nemôže oslobodiť od chýb a zlyhaní. Preto, ak chcete chrániť svoje údaje programu Outlook pred poškodením alebo stratou, musíte vyvinúť veľké úsilie. Napríklad musíte pravidelne pokračovať v zálohovaní údajov Outlooku. Samozrejme, bude oveľa lepšie, ak si pripravíte silný nápoj Obnova programu Outlook nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S