Как да копирате групово всички хипервръзки в множество имейли в нов имейл на Outlook

Ако искате да копирате всички хипервръзки в множество имейли и след това да ги изпратите в нов имейл на някой друг, можете да използвате подхода, въведен в тази статия. Той е в състояние да ви позволи да получите това с едно движение.

Понякога може да се наложи да извлечете и изпратите хипервръзки от множество получени имейли до конкретен имейл адрес. Например, ваш колега ви изпраща имейли, които съдържат хипервръзки, свързани с текущ проект. След това бихте искали да извлечете тези хипервръзки към един имейл и да го изпратите на другия си имейл адрес. В този случай най-прекият начин е да копирате хипервръзките към новия имейл една по една от изходните имейли. Но това е твърде глупаво и неефективно. Сега, по-долу, ще ви споделим по-удобен и бърз метод.

Групово копиране на всички хипервръзки в множество имейли в нов имейл

1. В самото начало стартирайте приложението Outlook.
2. След това изберете имейлите, от които искате да извлечете хипервръзки.
3. След това задействайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
4. В прозореца на редактора на VBA, активирайте препратката към „Библиотека с обекти на MS Word“, както е показано на „Как да добавите препратка към библиотека с обекти във VBA".
5. По-късно поставете следния код в модул.

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. След това натиснете „F5“, за да стартирате този макрос точно сега.
7. И накрая, когато макросът завърши, ще се появи нова поща, която съдържа всички хипервръзки, извлечени от предварително избраните имейли.

Обърнете специално внимание на неизвестни хипервръзки

Особено важно е потребителите на Outlook да внимават за всички подозрителни хипервръзки в непознати имейли. Това е така, защото повечето от тях могат да съдържат вируси, които могат директно да доведат до повреда на данните в Outlook. Очевидно никой не е готов да загуби данните си в Outlook. Следователно, в ежедневната си работа трябва да внимавате за непознати имейли, като предотвратявате вируси и зловреден софтуер. Освен това, ако е възможно, се препоръчва да се свържете с опитен и надежден специалист. Поправка на Outlook инструмент, като DataNumen Outlook Repair. Със сигурност ще ви помогне много, когато вашият PST файл на Outlook бъде компрометиран.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправям sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com