Jak automatycznie otwierać wszystkie osadzone hiperłącza podczas czytania określonych wiadomości e-mail w programie Outlook

Niektórzy użytkownicy chcą, aby program Outlook mógł automatycznie otwierać hiperłącza wstawiane w treści wiadomości e-mail, gdy otwierają i czytają określone wiadomości e-mail. Teraz w tym artykule podzielimy się metodą, która może to z łatwością zrealizować.

Podczas otwierania i czytania określonych e-maili, takich jak niezwykle ważne e-maile od szefa, jeśli e-maile zawierają kilka hiperłączy, na pewno je otworzysz. W porównaniu z ręcznym otwieraniem osadzonych hiperłączy, automatyczne otwieranie ich przez Outlooka będzie z pewnością znacznie wygodniejsze. Tutaj szczegółowo nauczymy Cię, jak to osiągnąć.

Automatycznie otwieraj wszystkie osadzone hiperłącza podczas czytania określonych wiadomości e-mail

1. Na początek uruchom aplikację Outlook.
2. Po wejściu do okna Outlooka naciśnij skrót klawiszowy „Alt + F11”.
3. W kolejnym oknie edytora VBA należy włączyć obiekt „Microsoft VBScript Regular Expressions”. Kliknij „Narzędzia” i wybierz „Referencje”, aby to osiągnąć.
4. Następnie otwórz projekt „ThisOutlookSession”.
5. Następnie skopiuj następujący kod VBA do tego projektu.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

6. Następnie powinieneś podpisać to makro. Kliknij „Narzędzia”> „Podpis cyfrowy”, aby to zrobić.
7. Następnie zamknij bieżące okno i zmień ustawienia makr programu Outlook.
8. Ostatecznie musisz ponownie uruchomić program Outlook, aby włączyć nowy projekt VBA.
9. Od tego czasu za każdym razem, gdy klikniesz dwukrotnie określone wiadomości e-mail, aby przeczytać je we własnym oknie wiadomości, program Outlook automatycznie rozpozna hiperłącza w treści wiadomości e-mail i natychmiast otworzy je w programie Internet Explorer.

Nigdy nie omijaj błędów programu Outlook

Być może zostałeś narażony na różne błędy programu Outlook. Chociaż eliminowanie problemów z Outlookiem jest trudne, nie można ich również lekceważyć. Skumulowane błędy mogą prowadzić do poważnych katastrof w programie Outlook, takich jak uszkodzenia plików PST. Dlatego lepiej przygotuj potężny zewnętrzny Poprawka programu Outlook narzędzie, jak DataNumen Outlook Repair. Może zminimalizować korupcję, a tym samym bezproblemowo wyodrębnić maksymalne dane PST.

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 mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com