Cara Mengekstrak & Menampilkan Semua Alamat Hyperlink di Email melalui Outlook VBA

Sebagian besar waktu, untuk melihat alamat hyperlink, Anda perlu mengarahkan kursor ke teks yang ditampilkan. Artikel ini akan mengajarkan Anda cara menggunakan VBA untuk menampilkan semua alamat dalam satu email hanya dengan satu klik.

Seperti yang Anda ketahui, selain langsung menambahkan URL di badan email, Anda diizinkan untuk memasukkan hyperlink ke teks. Dalam kasus ini, Anda tidak akan dapat melihat alamat hyperlink secara langsung. Anda perlu mengarahkan kursor ke atas teks yang ditampilkan. Namun, akan sangat membosankan jika terdapat terlalu banyak hyperlink di email saat ini karena Anda harus memeriksa alamatnya satu per satu.

Menanggapi masalah ini, di sini kami akan memaparkan metode cepat yang menggunakan VBA untuk membantu Anda mengekstrak dan menampilkan semua alamat hyperlink secara langsung. Dengan cara ini, yang perlu Anda lakukan hanyalah satu klik. Sekarang baca terus untuk mendapatkan langkah-langkah rumit dan kode VBA.

Ekstrak & Tampilkan Semua Alamat Hyperlink di Email

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
3. Selanjutnya Anda akan mendapatkan akses ke editor Outlook VBA dengan sukses.
4. Selanjutnya, Anda akan diminta untuk membuka modul yang tidak digunakan.
5. Setelah itu, salin dan tempel kode 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. Nanti, untuk kenyamanan nanti, Anda sebaiknya menambahkan makro baru ke jendela pesan Toolbar Akses Cepat.
7. Selain itu, Anda harus memastikan bahwa pengaturan makro Outlook Anda mengizinkan makro.
8. Akhirnya Anda bisa mencobanya.

• Pertama, buka email yang berisi banyak hyperlink.
• Kemudian beralih ke mode yang dapat diedit. Cukup klik "Tindakan"> "Edit Pesan".
• Selanjutnya klik tombol makro di Bilah Alat Akses Cepat.
• Sekaligus, semua alamat hyperlink akan diekstraksi dan ditampilkan seperti gambar berikut:

Tidak Kebal dari Masalah Outlook

Meskipun Outlook menyediakan banyak fungsi fleksibel kepada pengguna, Outlook tetap tidak bisa dibebaskan dari kesalahan dan crash. Oleh karena itu, jika Anda ingin melindungi data Outlook Anda dari korupsi atau kerugian, Anda harus berusaha keras. Misalnya, Anda harus terus membuat cadangan data Outlook secara teratur. Tentunya akan jauh lebih baik jika menyiapkan yang ampuh Pemulihan Outlook alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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