Cara Mengekstrak & Menunjukkan Semua Alamat Hyperlink dalam E-mel melalui Outlook VBA

Kebanyakan masa, untuk melihat alamat hiperpautan, anda perlu menggerakkan kursor ke atas teks yang dipaparkan. Artikel ini akan mengajar anda cara menggunakan VBA untuk memaparkan semua alamat dalam satu e-mel hanya dengan satu klik.

Seperti yang anda ketahui, selain daripada menambahkan URL secara langsung di badan e-mel, anda dibenarkan memasukkan pautan hiper ke teks. Dalam kes ini, anda tidak dapat melihat alamat pautan hiper secara langsung. Anda perlu mengarahkan kursor ke atas teks yang dipaparkan. Tetapi, akan menjadi sangat membosankan jika terdapat terlalu banyak pautan dalam e-mel semasa kerana anda harus memeriksa alamat satu persatu.

Sebagai tindak balas kepada masalah ini, di sini kami akan mendedahkan kaedah cepat yang menggunakan VBA untuk membantu anda mengekstrak dan memaparkan semua alamat hyperlink secara langsung. Dengan cara ini, apa yang perlu anda lakukan hanyalah dengan satu klik. Sekarang baca untuk mendapatkan langkah terperinci dan kod VBA.

Ekstrak & Tunjukkan Semua Alamat Hyperlink dalam E-mel

1. Pertama, lancarkan aplikasi Outlook anda.
2. Kemudian tekan butang kekunci "Alt + F11" di tetingkap Outlook utama.
3. Seterusnya anda akan mendapat akses ke editor VBA Outlook dengan jayanya.
4. Selepas itu, anda akan diminta untuk membuka modul yang tidak digunakan.
5. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

Sub ShowAllHyperlinkAddresses()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objWordApp As Word.Application
    Dim objWordSelection As Word.Selection
    Dim objHyperlinks As Word.Hyperlinks
    Dim objHyperlink As Word.Hyperlink
    Dim strLink As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objWordApp = objWordDocument.Application
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count > 0 Then
       For Each objHyperlink In objHyperlinks
           strLink = objHyperlink.Address
           strLink = vbTab & "<" & strLink & ">"
           objHyperlink.Range.InsertAfter strLink
           objHyperlink.Delete
           With objWordApp.Options
                .AutoFormatReplaceHyperlinks = True
                .AutoFormatApplyOtherParas = False
                .AutoFormatApplyHeadings = False
                .AutoFormatApplyBulletedLists = False
                .AutoFormatApplyLists = False
                .AutoFormatApplyFirstIndents = False
          End With
          Set objWordSelection = objWordApp.Selection
          objWordSelection.Range.AutoFormat
       Next
    End If
End Sub

6. Kemudian, untuk kemudahan di kemudian hari, anda lebih baik menambahkan makro baru ke tetingkap mesej Bar Alat Akses Pantas.
7. Juga, anda harus memastikan bahawa tetapan makro Outlook anda membenarkan makro.
8. Akhirnya anda boleh mencuba.

• Pertama, buka e-mel yang mengandungi banyak pautan.
• Kemudian beralih ke mod yang boleh diedit. Cukup klik "Tindakan"> "Edit Mesej".
• Seterusnya klik butang makro di Bar Alat Akses Pantas.
• Sekali gus, semua alamat hyperlink akan diekstrak dan dipaparkan seperti tangkapan skrin berikut:

Tidak Terlepas dari Masalah Outlook

Walaupun Outlook menyediakan banyak fungsi fleksibel kepada pengguna, ia tetap tidak dapat dikecualikan dari kesalahan dan kerosakan. Oleh itu, jika anda ingin melindungi data Outlook anda daripada kerosakan atau kerugian, anda harus melakukan usaha yang besar. Sebagai contoh, anda perlu terus membuat sandaran data Outlook secara berkala. Sudah tentu, akan lebih baik jika anda menyiapkan yang kuat Pemulihan Outlook alat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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