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

Semasa melihat e-mel Outlook yang mengandungi banyak pautan dalam badan, kadang-kadang, anda mungkin hanya ingin membuka pautan dengan cepat dengan domain tertentu. Di sini kami akan berkongsi kaedah untuk membuka pautan sedemikian secara pukal.

Sekiranya terdapat banyak pautan dalam satu e-mel, anda mungkin berharap dapat memeriksa beberapa pautan tersebut, bukan semuanya. Sebagai contoh, anda hanya ingin membuka pautan hiperpautan dengan domain tertentu. Secara amnya, anda mesti mengklik satu persatu untuk membukanya. Ia sangat menyusahkan. Oleh itu, berikut ini, kami akan mengajar anda cara yang lebih mudah.

Batch Buka Semua Hyperlink dengan Domain Khusus dalam E-mel

1. Untuk sebagaitart, akses editor Outlook VBA mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
2. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications", aktifkan rujukan ke "MS Word Object Library "dengan merujuk kepada"Bagaimana Menambah Objek Library Rujukan dalam VBA".
3. Kemudian, salin kod VBA berikut ke dalam modul atau projek 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. Seterusnya, tambahkan makro ini ke Bar Alat Akses Pantas atau pita.
5. Akhirnya, ambil langkah berikut untuk mencuba.

• Pertama, pilih atau buka e-mel Outlook.
• Kemudian, klik butang makro.
• Sekali gus, hyperlink dengan domain yang telah ditentukan dalam e-mel akan dibuka secara besar-besaran di Internet Explorer, seperti yang ditunjukkan pada gambar berikut:

Singkirkan Kerosakan Outlook yang Mengganggu

Walaupun Outlook rentan terhadap kesalahan dan rasuah, sebenarnya, selama anda meneliti semua risiko, anda dapat melepaskannya dengan mudah. Sebagai contoh, anda perlu membuat sandaran data untuk Outlook secara berkala. Selain itu, anda harus berhati-hati dengan e-mel yang mencurigakan yang mungkin mengandungi virus. Akhir sekali, lebih baik anda menyediakan Pembaikan Outlook utiliti, seperti DataNumen Outlook Repair. Ia mampu membantu anda sekiranya berlaku kerosakan Outlook.

Pengenalan Pengarang:

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