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

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

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

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

1. В самото начало стартирайте приложението Outlook.
2. След това изберете имейлите, от които искате да извлечете хипервръзки.
3. След това задействайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
4. В прозореца на редактора на VBA разрешете препратката към „MS Word Object Library ”според„Как да добавите Lib на обектrary Справка във 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 да се пазят от всички подозрителни хипервръзки в неизвестни имейли. Защото това most от тях могат да носят вируси, което може директно да доведе до повреда на данните в Outlook. Очевидно никой не е готов да загуби данните си от Outlook. Следователно, в ежедневната работа трябва да внимавате за неизвестните имейли, предотвратявайки вируси и злонамерен софтуер. Освен това, ако е възможно, се препоръчва да се сдобиете с опитен и надежден Поправка на Outlook инструмент, като DataNumen Outlook Repair. Със сигурност ще ви помогне много, когато вашият PST файл на Outlook бъде компрометиран.

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

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