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.

Možno budete niekedy musieť extrahovať a odoslať hypertextové odkazy z viacerých prijatých e-mailov na konkrétnu e-mailovú adresu. Váš kolega vám napríklad pošle niekoľko e-mailov, ktoré obsahujú hypertextové odkazy týkajúce sa prebiehajúceho projektu. Potom by ste chceli rozbaliť tieto hypertextové odkazy na jeden e-mail a poslať tento e-mail na vašu ďalšiu e-mailovú adresu. V tomto prípade je most priamym spôsobom je kopírovanie hypertextových odkazov 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 „MS Word Object Library “podľa„Ako pridať objekt Library Odkaz 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

Je obzvlášť potrebné, aby si používatelia Outlooku dávali pozor na všetky podozrivé hypertextové odkazy v neznámych e-mailoch. Je to preto, že ten most z nich môžu niesť vírusy, čo môže priamo viesť k poškodeniu údajov programu Outlook. Je zrejmé, že nikto nie je pripravený stratiť svoje údaje z Outlooku. Pri každodennej práci by ste si preto mali dávať pozor na neznáme maily, ktoré zabraňujú vírusom a škodlivému softvéru. Navyše, ak je to možné, odporúča sa získať skúseného a spoľahlivého 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