Cara Otomatis Membuka Semua Hyperlink Tertanam saat Membaca Email Tertentu di Outlook

Beberapa pengguna menginginkan agar Outlook dapat secara otomatis membuka hyperlink yang disisipkan di badan email saat mereka membuka dan membaca email tertentu. Nah, pada artikel kali ini, kami akan membagikan metode yang dapat merealisasikannya dengan mudah.

Saat membuka dan membaca email tertentu, seperti email yang sangat penting dari atasan Anda, jika email tersebut berisi beberapa hyperlink, Anda pasti akan membuka tautan ini. Dibandingkan dengan membuka hyperlink yang disematkan secara manual, membuat Outlook membukanya secara otomatis pasti akan jauh lebih nyaman. Di sini kami akan mengajari Anda cara mencapainya secara detail.

Buka Otomatis Semua Hyperlink Tertanam saat Membaca Email Tertentu

1. Pertama-tama, luncurkan aplikasi Outlook.
2. Setelah memasuki jendela Outlook, tekan pintasan tombol “Alt + F11”.
3. Di jendela editor VBA berikutnya, Anda perlu mengaktifkan objek "Microsoft VBScript Regular Expressions". Tekan 'Alat' dan pilih 'Referensi' untuk mencapainya.
4. Selanjutnya, buka proyek "ThisOutlookSession".
5. Kemudian, salin kode VBA berikut ke dalam proyek 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. Setelah itu, Anda harus menandatangani makro ini. Klik "Alat"> "Tanda Tangan Digital" untuk menyelesaikannya.
7. Selanjutnya, keluar dari jendela saat ini dan ubah pengaturan makro Outlook Anda.
8. Pada akhirnya, Anda perlu memulai ulang Outlook Anda untuk mengaktifkan proyek VBA yang baru.
9. Sejak itu, setiap kali Anda mengklik dua kali pada email tertentu untuk membacanya di jendela Pesannya sendiri, Outlook akan secara otomatis mengenali hyperlink di badan email dan segera membukanya di Internet Explorer.

Jangan Pernah Bypass Kesalahan Outlook

Mungkin Anda telah mengalami berbagai macam kesalahan Outlook. Meskipun sulit untuk menghilangkan masalah Outlook, Anda juga tidak dapat mengabaikannya. Kesalahan yang terakumulasi dapat menyebabkan bencana serius di Outlook, seperti kerusakan PST. Karenanya, Anda sebaiknya menyiapkan eksternal yang tangguh Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair. Ini dapat meminimalkan korupsi, sehingga mengekstraksi data PST maksimum tanpa masalah.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com