Kuidas kiiresti kõik URL-id Outlooki meilist tekstifaili ekstraheerida

Kui saate meili, mis sisaldab sisus mitut olulist URL-i, võiksite kõik URL-id tekstifaili sisestada. Seega tutvustame selles artiklis meetodit selle kiireks hankimiseks.

Tavaliselt peate URL-ide ekstraheerimiseks Outlooki meilist tekstifaili esmalt looma tekstifaili ja seejärel URL-id käsitsi faili kopeerima. Võib-olla arvate, et see on liiga tülikas ja otsite tõhusamat vahendit. Kui jah, siis võite edasi lugeda. Siin jagame lähenemisviisi kõigi URL-ide eksportimiseks meilidest partiidena.

Ekstraheerige kõik meilis olevad URL-id kiiresti tekstifaili

  1. Alguses avage Outlookis VBA redigeerija vastavalt "Kuidas Outlookis VBA-koodi käivitada".
  2. Seejärel kopeerige ja kleepige järgmine VBA kood kasutamata moodulisse.
Sub ExportURLsFromEmail2TextFile () Dim objMail as Outlook.MailItem Dim objRegExp as RegExp Dim strFolder As String Dim objMatchCollection As MatchCollection Dim ObjMatch As Match Dim strURL Stringina 'Hangi allikas CaInOllasse või OutlookinApplication. objMail = ActiveInspector .CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) Lõpp Valige 'Hangi URL-id regulaaravaldise abil Määra objRegExp = Uus regExp koos objRegExp .Pattern = "(https?[:]//([0-9a-z= \?:/\.&-^!#$;_])*)" .Global = Tõene .IgnoreCase = Tõene Lõpeta If objRegExp.test(objMail.Body) Seejärel 'Loo uus tekstifail strTextFile = "E: \Hüperlingid (" & objMail.Subject & ").txt" Määra objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True) objWriteedLbrFile ("Extractf vTextbrFi:" CrLf) Set objMatchCollection = objRegExp.Execute(objMail.Body) i = 0 Iga objMatch In objMatchCollection jaoks strURL = objMatch.SubMatches(0) i = i + 1 'Kirjutage URL-id tekstifaili objTextFile.WriteLine (i & "WriteLine. " & strURL & vbCrLf) Järgmine objTextFile.Close 'Ava tekstifail Shell ("notepad.exe" & strTextFile) End If End Sub

VBA kood – ekstraheerige kõik meilis olevad URL-id tekstifaili

  1. Pärast seda lisage see makro kiirpääsu tööriistaribale või lindile.
  2. Lõpuks järgige proovimiseks allolevaid samme.
  • Kõigepealt valige või avage e-kiri.
  • Seejärel klõpsake kiirpääsuribal või lindil makronuppu.Käivitage makro
  • Korraga avatakse uus lihtteksti fail, milles näete kõiki ekstraktitud UTL-e, nagu on näidatud järgmisel ekraanipildil.Ekstraheeritud URL-id tekstifailis

Hoiduge riskantsete linkide eest meilis

Iga päev saate oma Outlookis vastu võtta igasuguseid e-kirju. Mõned on pärit teadaolevatelt kontaktidelt ja mõned võivad pärineda tundmatutelt saatjatelt. Nendega silmitsi seistes peate olema ettevaatlik tundmatute meilide eest, millest mõned võivad sisaldada kahtlasi linke. Kui avate lingid, võib teie Outlooki fail olla viirustega nakatunud. Seejärel ei pea te mitte ainult viiruseid viirusetõrjetarkvara abil tapma, vaid ka parandama kannatava PST-faili tugeva vahendi abil. Outlooki parandamine utiliit, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.