Як пакетно скопіювати всі гіперпосилання в декількох електронних листах на нову електронну пошту 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 та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com