Як пакетно скопіювати всі гіперпосилання в декількох електронних листах на нову електронну пошту Outlook

Якщо ви хочете скопіювати всі гіперпосилання у декілька електронних листів, а потім надіслати їх у новому електронному листі комусь іншому, ви можете скористатися підходом, представленим у цій статті. Це може дозволити вам отримати це одним рухом.

Іноді вам може знадобитися витягти та надіслати гіперпосилання з декількох отриманих електронних листів на певну електронну адресу. Наприклад, ваш колега надсилає вам електронні листи, які містять гіперпосилання, пов’язані з поточним проектом. Потім ви хочете витягти ці гіперпосилання на один електронний лист і надіслати цей електронний лист на іншу електронну адресу. У цьому випадку most Прямий спосіб - копіювати гіперпосилання на новий електронний лист по одному із вихідних листів електронної пошти. Але це занадто дурно і неефективно. Тепер, далі, ми поділимося з вами більш зручним та швидким методом.

Пакетне копіювання всіх гіперпосилань у кількох електронних листах на новий електронний лист

1. З самого початку запустіть програму Outlook.
2. Потім виберіть електронні листи, з яких ви хочете отримати гіперпосилання.
3. Далі запустіть редактор Outlook VBA відповідно до “Як запустити код VBA у своєму Outlook».
4. У вікні редактора VBA увімкніть посилання на “MS Word Object Library "відповідно до"Як додати бібліотеку об’єкта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 та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com