Cara Batch Buka Semua Hyperlink dengan Domain Tertentu di Email Outlook Anda

Saat melihat email Outlook yang berisi banyak hyperlink di tubuhnya, terkadang Anda hanya ingin membuka hyperlink dengan domain tertentu dengan cepat. Di sini kami akan membagikan metode untuk membuka hyperlink semacam itu secara massal.

Saat menghadapi beberapa hyperlink dalam satu email, Anda mungkin berharap untuk memeriksa beberapa di antaranya, bukan semuanya. Misalnya, Anda hanya ingin membuka hyperlink dengan domain tertentu. Secara umum, Anda harus mengklik satu per satu untuk membukanya. Ini sangat merepotkan. Oleh karena itu, berikut ini, kami akan mengajari Anda cara yang lebih nyaman.

Buka Batch Semua Hyperlink dengan Domain Tertentu di Email

1. Untuk sebagaitart, akses editor Outlook VBA menurut "Cara Menjalankan Kode VBA di Outlook Anda".
2. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", aktifkan referensi ke "MS Word Object Library "dengan mengacu pada"Cara Menambahkan Object Library Referensi di VBA".
3. Kemudian, salin kode VBA berikut ke dalam modul atau proyek yang tidak digunakan.

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

4. Berikutnya, tambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
5. Terakhir, lakukan langkah-langkah berikut untuk mencobanya.

• Pertama, pilih atau buka email Outlook.
• Kemudian, klik tombol makro.
• Sekaligus, hyperlink dengan domain yang telah ditentukan di email akan dibuka secara berkelompok di Internet Explorer, seperti yang ditunjukkan pada gambar berikut:

Singkirkan Korupsi Pandangan yang Menjengkelkan

Meskipun Outlook rentan terhadap kesalahan dan kerusakan, sebenarnya, selama Anda memperhatikan semua risikonya, Anda dapat menghindarinya dengan mudah. Misalnya, Anda perlu membuat cadangan data untuk Outlook secara teratur. Selain itu, Anda harus berhati-hati terhadap email mencurigakan yang mungkin mengandung virus. Last but not least, Anda sebaiknya menyiapkan file Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair. Ini mampu membantu Anda jika terjadi kerusakan Outlook.

Pengantar Penulis:

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