Untuk beberapa alasan, Anda telah menyisipkan beberapa hyperlink ke teks di email Outlook Anda. Dan beberapa di antaranya ditautkan ke alamat yang sama. Jika Anda ingin mengubah banyak alamat hyperlink ini, Anda dapat menggunakan metode yang diperkenalkan di artikel ini.
Misalnya, Anda telah membuat email Outlook, yang memiliki banyak hyperlink di badan pesan. Namun, setelah itu, Anda menemukan bahwa sebuah alamat salah. Dan banyak hyperlink menggunakan alamat ini. Oleh karena itu, Anda perlu mengubah alamat hyperlink ini secara banyak. Menanggapi masalah ini, selanjutnya, kami akan membagikan 2 pendekatan mudah dan cepat.
Metode 1: Temukan dan Ganti Secara Manual
- Untuk memulainya, di email yang dibuka, tekan tombol "Alt + F9".
- Kemudian, semua alamat hyperlink akan ditampilkan secara langsung.
- Sekarang, tekan "Ctrl + H" untuk memunculkan kotak dialog "Temukan dan Ganti".
- Di kotak dialog baru ini, masukkan alamat hyperlink lama di kotak "Temukan apa" dan alamat baru di kotak "Ganti dengan".
- Setelah itu klik tombol “Replace All”.
- Nanti, tutup kotak dialog "Temukan dan Ganti".
- Setelah kembali ke badan pesan, tekan tombol “Alt + F9” lagi untuk menyembunyikan alamat hyperlink.
- Selanjutnya, tekan "Ctrl + A" untuk memilih semua badan pesan.
- Terakhir, ketuk tombol "F9" untuk memperbarui semua alamat hyperlink yang diubah.
- Sekarang, periksa alamat hyperlink dengan membiarkan kursor melayang di atas teks. Semua hyperlink yang ditautkan ke alamat lama telah diubah, seperti tangkapan layar berikut.
Metode 2: Manfaatkan Outlook VBA
- Pertama-tama, tekan "Alt + F11" untuk meluncurkan editor VBA.
- Kemudian, di jendela baru, aktifkan “MS Word Object Library” sesuai dengan artikel “Cara Menambahkan Referensi Pustaka Objek di VBA".
- Selanjutnya, masukkan kode VBA berikut ke dalam modul.
Sub BatchChangeMultipleHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objHyperlink As Word.Hyperlink
Dim strOldAddress, strNewAddress As String
Dim i As Long
Set objMail = Application.ActiveInspector.CurrentItem
Set objMailDocument = objMail.GetInspector.WordEditor
If objMailDocument.Hyperlinks.Count > 0 Then
'Enter the old and new hyperlink address
strOldAddress = InputBox("Enter the old hyperlink address:")
strNewAddress = InputBox("Enter the new hyperlink address:")
'Change hyperlink address
i = 0
For Each objHyperlink In objMailDocument.Hyperlinks
If InStr(objHyperlink.Address, strOldAddress) > 0 Then
objHyperlink.Address = Replace(objHyperlink.Address, strOldAddress, strNewAddress)
i = i + 1
End If
Next
'Prompt you
MsgBox i & " hyperlinks' addresses are changed!", vbInformation + vbOKOnly
End If
End Sub
- Setelah itu, tambahkan makro ini ke Bilah Alat Akses Cepat jendela pesan dengan referensi ke "Cara Menjalankan Kode VBA di Outlook Anda".
- Akhirnya, ikuti langkah-langkah di bawah ini untuk mencobanya.
- Di kotak dialog popup, masukkan alamat hyperlink lama dan baru.
- Saat makro selesai, Anda akan menerima pesan yang memberi tahu Anda jumlah hyperlink yang alamatnya telah diubah.
- Beberapa alamat hyperlink telah diubah, seperti gambar di bawah ini.
Lindungi Data Outlook Anda yang Berharga
Karena Outlook rentan terhadap kesalahan dan kerusakan, Anda harus melakukan beberapa tindakan pencegahan yang efektif untuk melindungi file Outlook Anda. Pertama-tama, Anda perlu membuat backup data PST secara teratur. Selain itu, Anda harus membiasakan diri menutup Outlook dengan cara yang benar. Last but not least, Anda lebih baik menyiapkan yang kuat Perbaikan Outlook utilitas, 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 Server pemulihan dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com