Hoe automatisch alle ingesloten hyperlinks te openen bij het lezen van specifieke e-mails in Outlook

Sommige gebruikers willen dat Outlook automatisch de hyperlinks kan openen die in de e-mail zijn ingevoegd wanneer ze specifieke e-mails openen en lezen. Nu, in dit artikel, zullen we een methode delen die dit met gemak kan realiseren.

Wanneer u specifieke e-mails opent en leest, zoals essentiële e-mails van uw baas, als de e-mails meerdere hyperlinks bevatten, zult u deze links zeker openen. In vergelijking met het handmatig openen van de ingesloten hyperlinks, zal het zeker veel handiger zijn om Outlook automatisch te openen. Hier zullen we u leren hoe u dit in detail kunt bereiken.

Alle ingesloten hyperlinks automatisch openen bij het lezen van specifieke e-mails

1. Begin met het openen van de Outlook-applicatie.
2. Nadat u het Outlook-venster hebt geopend, drukt u op de sneltoetsen "Alt + F11".
3. In het volgende VBA-editorvenster moet u het object "Microsoft VBScript Regular Expressions" inschakelen. Druk op 'Extra' en selecteer 'Referenties' om dit te bereiken.
4. Open vervolgens het project "ThisOutlookSession".
5. Kopieer vervolgens de volgende VBA-code naar dit project.

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. Daarna moet u deze macro ondertekenen. Klik op "Extra"> "Digitale handtekening" om dit te bereiken.
7. Verlaat vervolgens het huidige venster en wijzig uw Outlook-macro-instellingen.
8. Uiteindelijk moet u Outlook opnieuw opstarten om het nieuwe VBA-project te activeren.
9. Sindsdien, elke keer dat u dubbelklikt op de specifieke e-mails om deze in zijn eigen berichtvenster te lezen, herkent Outlook automatisch de hyperlinks in de hoofdtekst van de e-mail en opent deze onmiddellijk in Internet Explorer.

Omzeil nooit Outlook-fouten

Misschien bent u onderhevig geweest aan diverse Outlook-fouten. Hoewel het moeilijk is om Outlook-problemen op te lossen, kun je ze ook niet negeren. Geaccumuleerde fouten kunnen leiden tot ernstige rampen in Outlook, zoals PST-schade. Daarom kun je maar beter een formidabele externe voorbereiden Outlook-oplossing hulpprogramma, zoals DataNumen Outlook Repair. Het kan corruptie minimaliseren, waardoor maximale PST-gegevens zonder gedoe worden geëxtraheerd.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com