Cara Membuka Auto Semua Pautan Terpadu secara Auto ketika Membaca E-mel Khusus di Outlook

Sebilangan pengguna menginginkan Outlook secara automatik membuka pautan yang dimasukkan ke dalam badan e-mel semasa mereka membuka dan membaca e-mel tertentu. Sekarang, dalam artikel ini, kami akan berkongsi kaedah yang dapat mewujudkannya dengan mudah.

Semasa membuka dan membaca e-mel tertentu, seperti e-mel penting dari bos anda, jika e-mel tersebut mengandungi beberapa pautan, anda pasti akan membuka pautan ini. Berbanding dengan membuka hyperlink yang disisipkan secara manual, menjadikan Outlook secara automatik membukanya pasti akan lebih mudah. Di sini kami akan mengajar anda bagaimana mencapainya secara terperinci.

Auto Buka Semua Pautan Terpadu semasa Membaca E-mel Khusus

1. Untuk bermula, lancarkan aplikasi Outlook.
2. Setelah memasuki tetingkap Outlook, tekan pintasan kekunci "Alt + F11".
3. Di tetingkap editor VBA berikutnya, anda perlu mengaktifkan objek "Microsoft VBScript Regular Expressions". Tekan 'Alat' dan pilih "Rujukan" untuk mencapainya.
4. Seterusnya, buka projek "ThisOutlookSession".
5. Kemudian, salin kod VBA berikut ke dalam projek ini.

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. Selepas itu, anda harus menandatangani makro ini. Klik "Alat"> "Tandatangan Digital" untuk mencapainya.
7. Seterusnya, keluar dari tetingkap semasa dan ubah tetapan makro Outlook anda.
8. Akhirnya, anda perlu memulakan semula Outlook anda untuk mendayakan projek VBA baharu.
9. Sejak itu, setiap kali anda mengklik dua kali pada e-mel tertentu untuk membacanya di tetingkap Mesejnya sendiri, Outlook akan secara automatik mengenali hyperlink di badan e-mel dan segera membukanya di Internet Explorer.

Jangan Lupa Kesalahan Outlook

Mungkin anda telah mengalami pelbagai kesalahan Outlook. Walaupun menghapuskan masalah Outlook sukar, anda juga tidak boleh mengabaikannya. Kesalahan terkumpul dapat menyebabkan bencana serius di Outlook, seperti kerusakan PST. Oleh itu, anda lebih baik menyediakan luaran yang hebat Pembaikan Outlook utiliti, seperti DataNumen Outlook Repair. Ia dapat meminimumkan rasuah, dengan itu mengekstrak data PST maksimum tanpa ribut-ribut.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com