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

В повечето случаи, за да видите адресите на хипервръзките, трябва да задържите курсора на мишката върху показвания текст. Тази статия ще ви научи как да използвате VBA, за да покажете всички адреси в един имейл само с едно щракване.

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

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

Извличане и показване на всички адреси на хипервръзки в имейл

1. На първо място стартирайте приложението си Outlook.
2. След това натиснете бутоните „Alt + F11“ в главния прозорец на Outlook.
3. След това ще получите достъп до редактора на Outlook VBA успешно.
4. Впоследствие ще трябва да отворите модул, който не се използва.
5. След това копирайте и поставете следните VBA кодове в този модул.

Sub ShowAllHyperlinkAddresses()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objWordApp As Word.Application
    Dim objWordSelection As Word.Selection
    Dim objHyperlinks As Word.Hyperlinks
    Dim objHyperlink As Word.Hyperlink
    Dim strLink As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objWordApp = objWordDocument.Application
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count > 0 Then
       For Each objHyperlink In objHyperlinks
           strLink = objHyperlink.Address
           strLink = vbTab & "<" & strLink & ">"
           objHyperlink.Range.InsertAfter strLink
           objHyperlink.Delete
           With objWordApp.Options
                .AutoFormatReplaceHyperlinks = True
                .AutoFormatApplyOtherParas = False
                .AutoFormatApplyHeadings = False
                .AutoFormatApplyBulletedLists = False
                .AutoFormatApplyLists = False
                .AutoFormatApplyFirstIndents = False
          End With
          Set objWordSelection = objWordApp.Selection
          objWordSelection.Range.AutoFormat
       Next
    End If
End Sub

6. По-късно, за по-късно удобство, по-добре добавете новия макрос към лентата с инструменти за бърз достъп на прозореца за съобщения.
7. Освен това трябва да се уверите, че настройките на макроса на Outlook позволяват макроси.
8. Накрая можете да опитате.

• Първо отворете имейл, който съдържа много хипервръзки.
• След това преминете в режим за редактиране. Просто кликнете върху „Действия“> „Редактиране на съобщението“.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• Веднага всички адреси на хипервръзката ще бъдат извлечени и показани като следната екранна снимка:

Не са имунизирани от проблеми с Outlook

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

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

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