Ako dávkové kopírovanie všetkých hypertextových odkazov vo viacerých e-mailoch na nový e-mail programu Outlook

Ak chcete skopírovať všetky hypertextové odkazy do viacerých e-mailov a potom ich poslať v novom e-maile niekomu inému, môžete použiť prístup uvedený v tomto článku. Je schopný nechať to dostať naraz.

Občas možno budete musieť extrahovať a odoslať hypertextové odkazy z viacerých prijatých e-mailov na konkrétnu e-mailovú adresu. Napríklad, váš kolega vám pošle niekoľko e-mailov, ktoré obsahujú hypertextové odkazy súvisiace s prebiehajúcim projektom. Potom by ste chceli extrahovať tieto hypertextové odkazy na jeden e-mail a odoslať tento e-mail na svoju druhú e-mailovú adresu. V tomto prípade je najpriamejším spôsobom kopírovať hypertextové odkazy na nový e-mail jeden po druhom zo zdrojových e-mailov. Je to však príliš hlúpe a neefektívne. Teraz sa s vami podelíme o pohodlnejšiu a rýchlejšiu metódu.

Dávkové kopírovanie všetkých hypertextových odkazov vo viacerých e-mailoch na nový e-mail

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom vyberte e-maily, z ktorých chcete extrahovať hypertextové odkazy.
3. Ďalej spustite editor Outlook VBA podľa “Ako spustiť kód VBA v programe Outlook".
4. V okne editora VBA povoľte odkaz na „Knižnicu objektov MS Word“ podľa pokynov „Ako pridať odkaz na knižnicu objektov vo VBA".
5. Neskôr vložte nasledujúci kód do modulu.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. Potom stlačte kláves „F5“, aby ste toto makro spustili práve teraz.
7. Nakoniec sa po dokončení makra zobrazí nová pošta, ktorá obsahuje všetky hypertextové odkazy extrahované z predtým vybratých e-mailov.

Venujte zvláštnu pozornosť neznámym hypertextovým odkazom

Pre používateľov Outlooku je obzvlášť dôležité dávať si pozor na všetky podozrivé hypertextové odkazy v neznámych e-mailoch. Je to preto, že väčšina z nich môže obsahovať vírusy, ktoré môžu priamo viesť k poškodeniu údajov v Outlooku. Nikto samozrejme nie je pripravený stratiť svoje údaje v Outlooku. Preto by ste si mali v každodennej práci dávať pozor na neznáme e-maily a chrániť sa pred vírusmi a škodlivým softvérom. Navyše, ak je to možné, odporúča sa obrátiť sa na skúseného a spoľahlivého odborníka. Oprava Outlook nástroj, ako napr DataNumen Outlook Repair. Určite vám veľmi pomôže, keď dôjde k zneužitiu vášho súboru Outlook PST.

Ú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 opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S