Kaip išgauti ir parodyti visus hipersaitų adresus el. laiške naudojant „Outlook VBA“.

Dažniausiai norint peržiūrėti hipersaitų adresus, reikia užvesti žymeklį ant rodomo teksto. Šiame straipsnyje sužinosite, kaip naudoti VBA, kad vienu spustelėjimu būtų rodomi visi adresai viename el. laiške.

Kaip žinote, be tiesioginio URL pridėjimo el. laiško tekste, galite įterpti hipersaitą į tekstus. Tokiu atveju negalėsite tiesiogiai peržiūrėti hipersaitų adresų. Turite užvesti žymeklį virš rodomo teksto. Tačiau bus gana nuobodu, jei dabartiniame el. laiške bus per daug tokių hipersaitų, nes turėsite tikrinti adresus po vieną.

Atsakydami į šią problemą, pateiksime greitą metodą, kuris naudoja VBA, kad padėtų jums tiesiogiai išgauti ir rodyti visus hipersaitų adresus. Tokiu būdu jūs turite padaryti tik vieną paspaudimą. Dabar skaitykite toliau, kad gautumėte išsamius veiksmus ir VBA kodą.

Išskleiskite ir parodykite visus hipersaitų adresus el

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
3. Tada sėkmingai gausite prieigą prie Outlook VBA redaktoriaus.
4. Vėliau turėsite atidaryti nenaudojamą modulį.
5. Po to nukopijuokite ir įklijuokite šiuos VBA kodus į šį modulį.

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ėliau, kad būtų patogiau, geriau pridėti naują makrokomandą į pranešimų lango greitosios prieigos įrankių juostą.
7. Be to, turėtumėte įsitikinti, kad jūsų Outlook makrokomandos nustatymai leidžia makrokomandas.
8. Pagaliau galite pabandyti.

• Pirmiausia atidarykite el. laišką, kuriame yra daug hipersaitų.
• Tada perjunkite į redagavimo režimą. Tiesiog spustelėkite „Veiksmai“ > „Redaguoti pranešimą“.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto visi hipersaitų adresai bus išgauti ir rodomi kaip ši ekrano kopija:

Neapsaugotas nuo „Outlook“ problemų

Nors „Outlook“ suteikia vartotojams daug lanksčių funkcijų, ji vis tiek negali būti atleista nuo klaidų ir gedimų. Todėl, jei norite apsaugoti savo „Outlook“ duomenis nuo sugadinimo ar praradimo, turite dėti daug pastangų. Pavyzdžiui, turite nuolat kurti atsargines Outlook duomenų kopijas. Žinoma, bus daug geriau, jei paruošite stiprų Outlook atkūrimas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com