Aby wyświetlić adresy hiperłączy, zazwyczaj wystarczy najechać kursorem na wyświetlany tekst. W tym artykule dowiesz się, jak za pomocą VBA wyświetlić wszystkie adresy w jednej wiadomości e-mail jednym kliknięciem.
Jak wiesz, oprócz bezpośredniego dodawania adresu URL w treści e-maila, możesz wstawiać hiperłącza do tekstów. W takim przypadku nie będzie można bezpośrednio wyświetlić adresów hiperłączy. Musisz najechać kursorem na wyświetlany tekst. Ale będzie to dość uciążliwe, jeśli w bieżącym e-mailu będzie zbyt wiele takich hiperłączy, ponieważ będziesz musiał sprawdzać adresy jeden po drugim.
W odpowiedzi na ten problem, tutaj ujawnimy szybką metodę, która używa VBA, aby pomóc Ci bezpośrednio wyodrębnić i wyświetlić wszystkie adresy hiperłączy. W ten sposób to, co musisz zrobić, to po prostu jedno kliknięcie. Teraz czytaj dalej, aby uzyskać szczegółowe kroki i kod VBA.
Wyodrębnij i pokaż wszystkie adresy hiperłączy w wiadomości e-mail
- W pierwszej kolejności uruchom aplikację Outlook.
- Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
- Następnie pomyślnie uzyskasz dostęp do edytora Outlook VBA.
- Następnie będziesz musiał otworzyć moduł, który nie jest używany.
- Następnie skopiuj i wklej następujące kody VBA do tego modułu.
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
- Później, dla późniejszej wygody, lepiej dodaj nowe makro do paska narzędzi szybkiego dostępu w oknie wiadomości.
- Należy również upewnić się, że ustawienia makr programu Outlook zezwalają na makra.
- Wreszcie możesz spróbować.
- Najpierw otwórz wiadomość e-mail zawierającą wiele hiperłączy.
- Następnie przejdź do trybu edycji. Po prostu kliknij „Działania” > „Edytuj wiadomość”.
- Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
- Od razu wszystkie adresy hiperłączy zostaną wyodrębnione i wyświetlone jak na poniższym zrzucie ekranu:
Brak odporności na problemy z programem Outlook
Chociaż Outlook zapewnia użytkownikom wiele elastycznych funkcji, nadal nie może być wolny od błędów i awarii. Dlatego, jeśli chcesz zabezpieczyć swoje dane Outlooka przed uszkodzeniem lub utratą, musisz dołożyć wszelkich starań. Na przykład musisz wytrwać w regularnym tworzeniu kopii zapasowych danych programu Outlook. Oczywiście znacznie lepiej będzie, jeśli przygotujesz moc Odzyskiwanie programu Outlook narzędzie, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com