Hyperlink pada kolom sumber data dikonversi ke teks biasa saat Anda mengoperasikan gabungan surat pada pesan email dalam format HTML di Word 2002 dan Word 2003

Metode 1: Menambahkan bidang hipertaut di kolom gabungan Surat

Menambahkan bidang hipertaut di kolom gabungan surat untuk membuat tautan dalam pesan e-mail yang telah digabung. Setelah Anda mengikuti langkah-langkah ini, hyperlink menampilkan teks yang sama di semua pesan email. Selain itu, hyperlink menghubungkan ke URL sumber data yang benar. Untuk melakukannya, ikuti langkah-langkah berikut:

1. Memulai Word dan membuka dokumen yang Anda inginkan untuk menggabungkan ke e-mail.

2. Pada menu alat , arahkan ke surat, dan kemudian klik gabungan Surat. Wizard gabungan Surat muncul.

3. Di bawah Pilih jenis dokumen, klik pesan E-mail, dan kemudian klik berikutnya.

4. Di bawah pilih memulai dokumen, klik gunakan dokumen aktif, dan kemudian klik berikutnya.

5. Di bawah pilih Penerima, pilih penerima yang ingin Anda gunakan, dan kemudian klik berikutnya.

6. Menempatkan titik penyisipan di mana Anda ingin hyperlink ditampilkan di pesan email.

7. Masukkan menu, klik kolom.

8. Dalam daftar nama kolom , klik tautan, dan kemudian klik OK. Teks "Error! Referensi hyperlink tidak valid"muncul di dalam dokumen.

9. Tekan ALT + F9 untuk membuka {HYPERLINK \ * MERGEFORMAT} kode bidang.

10. Letakkan titik penyisipan setelah HYPERLINK dan kemudian tambahkan ruang.

11. Masukkan menu, klik kolom.

12. Dalam daftar nama kolom , klik MergeField.

13. Di kotak teks nama kolom , ketik nama kolom sumber data yang berisi hyperlink, dan kemudian klik OK. Misalnya, jika nama kolom sumber data "Alamat1", kode bidang ditampilkan sebagai berikut:

    {HYPERLINK {MERGEFIELD "Alamat1"} \ * MERGEFORMAT}

14. Tekan ALT + F9 untuk menutup {HYPERLINK {MERGEFIELD "< nama bidang >"} \ * MERGEFORMAT} kode bidang.

15. Menempatkan titik penyisipan di awal "Error! Teks hyperlink referensi tidak valid", dan menimpa teks dengan teks hyperlink yang ingin ditampilkan. Sebagai contoh, menimpa teks dengan teks seperti Klik di sini.

    Penting Pastikan bahwa Anda tidak menghapus seluruh kolom.

16. Pilih teks yang Anda ketik dalam langkah 15. Dalam daftar gaya , klik tautan.

17. Pada Wisaya gabungan surat, klik berikutnya, dan kemudian ikuti langkah-langkah di Wisaya gabungan surat untuk menyelesaikan proses gabungan surat.

Metode 2: Membuat makro yang secara dinamis mengubah teks hyperlink

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Membuat makro jika Anda ingin secara dinamis memodifikasi tautan teks dalam pesan e-mail yang telah digabung. Setelah Anda mengikuti langkah-langkah ini, hyperlink menampilkan teks yang didasarkan pada URL di sumber data. Untuk melakukannya, ikuti langkah-langkah berikut:

1. Ikuti langkah-langkah dalam "metode 1: menambahkan bidang hipertaut di kolom gabungan surat."

2. Pada menu Alat , arahkan ke Makro, lalu klik Editor Visual Basic.

3. Tekan F7. Jendela kode muncul.

4. Salin dan tempel kode berikut ke jendela kode:

   Sub MergeToEmail()
   
       Dim bDone As Boolean
       bDone = False
   
       Do While bDone = False
   
           ActiveDocument.Fields.Update
   
           For Each oHyperlink In ActiveDocument.Hyperlinks
               oHyperlink.TextToDisplay = oHyperlink.Address
               oHyperlink.Range.Font.Color = wdColorBlue
               oHyperlink.Range.Font.Underline = wdUnderlineSingle
               oHyperlink.Range.Font.UnderlineColor = wdColorBlue
           Next oHyperlink
   
           With ActiveDocument.MailMerge
               .Destination = wdSendToEmail
               .SuppressBlankLines = True
               ' You can modify the text "Enter Your Subject Here" or 
               ' remove the following line if you do not want a subject
               ActiveDocument.MailMerge.MailSubject = "Enter Your Subject Here"
               With .DataSource
                   .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
                   .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
               End With
               .Execute Pause:=False
           End With
   
           If ActiveDocument.MailMerge.DataSource.ActiveRecord = _
               ActiveDocument.MailMerge.DataSource.RecordCount Then
               bDone = True
           End If
           ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
       Loop
   End Sub
   
   

5. Pada menu Alat , arahkan ke Makro, lalu klik Makro.

6. Klik MergeToEmail, dan kemudian klik Jalankan.

Catatan Untuk setiap pesan email yang Anda Kirim menggunakan makro ini, ditampilkan pesan peringatan dari Microsoft Outlook. Untuk informasi selengkapnya tentang perilaku ini, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

290498 Anda menerima pesan peringatan saat Anda menggunakan Tambah-pasang pihak ketiga atau solusi kustom di Outlook 2002