Podczas przeglądania wiadomości e-mail programu Outlook, która zawiera wiele hiperłączy w treści, czasami możesz chcieć tylko szybko otworzyć hiperłącza z określonej domeny. Tutaj udostępnimy metodę zbiorczego otwierania takich hiperłączy.
Wobec wielu hiperłączy w jednym e-mailu, możesz mieć nadzieję, że zamiast wszystkich sprawdzisz niektóre z nich. Na przykład chcesz zbiorczo otwierać hiperłącza z określoną domeną. Ogólnie rzecz biorąc, musisz je otwierać po kolei. Jest to bardzo kłopotliwe. Dlatego poniżej nauczymy Cię wygodniejszego sposobu.
Otwórz zbiorczo wszystkie hiperłącza z określoną domeną w wiadomości e-mail
- Jaktart, wejdź do edytora Outlook VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
- Następnie w oknie „Microsoft Visual Basic for Applications” włącz odniesienie do „MS Word Object Library ”w odniesieniu do„Jak dodać bibliotekę obiektówrary Referencje w VBA".
- Następnie skopiuj następujący kod VBA do nieużywanego modułu lub projektu.
Sub BatchOpenHyperlinksWithSpecificDomain()
Dim objMail As MailItem
Dim objMailDocument As Word.Document
Dim objHyperlink As Word.Hyperlink
Dim objDictionary As Object
Dim i As Integer
Dim varHyperlinks As Variant
Dim varHyperlink As Variant
Dim objInternetExplorer As Object
'Get the source email
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objMailDocument = objMail.GetInspector.WordEditor
For Each objHyperlink In objMailDocument.Hyperlinks
If InStr(1, objHyperlink.Address, "www.datanumen.com") > 0 Then
'Add Hyperlinks to Dictionary
If objDictionary.Exists(objHyperlink.Address) = False Then
objDictionary.Add objHyperlink.Address, 1
End If
End If
Next
'Batch Open Hyperlinks on different tabs in same Internet Explorer window
Set objInternetExplorer = CreateObject("InternetExplorer.Application")
varHyperlinks = objDictionary.Keys
For i = LBound(varHyperlinks) To UBound(varHyperlinks)
varHyperlink = varHyperlinks(i)
If i = 0 Then
objInternetExplorer.Visible = True
objInternetExplorer.navigate varHyperlink
Else
objInternetExplorer.navigate varHyperlink, CLng(2048)
End If
Next
End Sub
- Następnie dodaj to makro do paska narzędzi szybkiego dostępu lub wstążki.
- Na koniec wykonaj następujące czynności, aby spróbować.
- Po pierwsze, wybierz lub otwórz wiadomość e-mail programu Outlook.
- Następnie kliknij przycisk makro.
- Od razu hiperłącza ze wstępnie zdefiniowaną domeną w wiadomości e-mail zostaną zbiorczo otwarte w przeglądarce Internet Explorer, jak pokazano na poniższej ilustracji:
Pozbądź się irytującej korupcji programu Outlook
Chociaż Outlook jest podatny na błędy i korupcję, tak długo, jak uważasz na wszystkie zagrożenia, możesz z łatwością przed nimi uciec. Na przykład musisz regularnie tworzyć kopie zapasowe danych dla programu Outlook. Poza tym należy uważać na podejrzane e-maile, które mogą zawierać wirusy. Wreszcie, lepiej przygotuj plik Naprawa programu Outlook narzędzie, takie jak DataNumen Outlook Repair. Jest w stanie pomóc w przypadku uszkodzenia programu Outlook.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym skorumpowany SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com