Kā iegūt un parādīt visas hipersaites adreses e-pastā, izmantojot Outlook VBA

Vairumā gadījumu, lai skatītu hipersaišu adreses, ir jānovieto kursors virs redzamā teksta. Šajā rakstā uzzināsiet, kā izmantot VBA, lai ar vienu klikšķi parādītu visas adreses vienā e-pastā.

Kā jūs zināt, papildus URL tiešai pievienošanai e-pasta pamattekstā ir atļauts ievietot hipersaiti uz tekstiem. Šajā gadījumā jūs nevarēsit tieši skatīt hipersaites adreses. Jums jāpārvieto kursors virs parādāmā teksta. Bet tas būs diezgan garlaicīgs, ja pašreizējā e-pastā ir pārāk daudz šādu hipersaites, jo jums ir jāpārbauda adreses pa vienam.

Atbildot uz šo problēmu, šeit mēs parādīsim ātru metodi, kas izmanto VBA, lai palīdzētu jums tieši iegūt un parādīt visas hipersaites adreses. Tādā veidā jums ir jāveic tikai viens klikšķis. Tagad lasiet tālāk, lai iegūtu sarežģītus soļus un VBA kodu.

Izvilkt un rādīt visas hipersaites adreses e-pastā

1. Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam jūs veiksmīgi iegūsit piekļuvi Outlook VBA redaktoram.
4. Pēc tam jums būs jāatver modulis, kas netiek izmantots.
5. Pēc tam šajā modulī kopējiet un ielīmējiet šādus VBA kodus.

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. Vēlāk, lai vēlāk būtu ērtāk, ziņu loga ātrās piekļuves rīkjoslai labāk pievienojiet jauno makro.
7. Jums arī jāpārliecinās, vai jūsu Outlook makro iestatījumi atļauj makro.
8. Beidzot jūs varat izmēģināt.

• Vispirms atveriet e-pastu, kurā ir daudz hipersaites.
• Pēc tam pārslēdzieties uz rediģējamo režīmu. Vienkārši noklikšķiniet uz “Darbības”> “Rediģēt ziņojumu”.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Uzreiz visas hipersaites adreses tiks izvilktas un parādītas kā šāds ekrānuzņēmums:

Nav imūna no Outlook problēmām

Lai gan programma Outlook lietotājiem nodrošina daudz elastīgu funkciju, tā joprojām nevar tikt atbrīvota no kļūdām un avārijām. Tāpēc, ja vēlaties aizsargāt savus Outlook datus pret korupciju vai zaudējumiem, jums jāpieliek lielas pūles. Piemēram, jums pastāvīgi jāturpina regulāri veikt Outlook datu dublēšana. Protams, tas būs daudz labāk, ja sagatavosiet spēcīgu Outlook atkopšana rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar