Atas sebab-sebab tertentu, anda telah memasukkan banyak pautan ke teks dalam e-mel Outlook anda. Dan sebilangan daripadanya dihubungkan ke alamat yang sama. Sekiranya anda ingin mengubah banyak alamat alamat pautan ini, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.
Sebagai contoh, anda telah menyusun e-mel Outlook, yang mempunyai banyak pautan dalam badan mesej. Namun, selepas itu, anda mendapati bahawa alamat salah. Dan banyak pautan yang menggunakan alamat ini. Oleh itu, anda perlu mengubah banyak alamat pautan hiperpautan ini. Sebagai tindak balas kepada masalah ini, selepas itu, kami akan berkongsi 2 pendekatan mudah dan cepat.
Kaedah 1: Cari dan Ganti Secara Manual
- Sebagai permulaan, dalam e-mel yang dibuka, tekan butang kekunci "Alt + F9".
- Kemudian, semua alamat hyperlink akan ditunjukkan secara langsung.
- Sekarang, tekan "Ctrl + H" untuk mengeluarkan kotak dialog "Cari dan Ganti".
- Dalam kotak dialog baru ini, masukkan alamat hyperlink lama di kotak "Cari apa" dan alamat baru di kotak "Ganti dengan".
- Selepas itu, klik butang "Ganti Semua".
- Kemudian, tutup kotak dialog "Cari dan Ganti".
- Setelah kembali ke isi mesej, tekan kekunci "Alt + F9" sekali lagi untuk menyembunyikan alamat pautan.
- Selepas itu, tekan "Ctrl + A" untuk memilih semua isi mesej.
- Akhirnya, ketik kekunci "F9" untuk mengemas kini semua alamat pautan hiper yang diubah.
- Sekarang, periksa alamat pautan hiper dengan membiarkan kursor berada di atas teks. Semua hyperlink yang dihubungkan ke alamat lama telah diubah, seperti tangkapan skrin berikut.
Kaedah 2: Gunakan Outlook VBA
- Pertama, tekan "Alt + F11" untuk melancarkan editor VBA.
- Kemudian, dalam tetingkap baharu, dayakan “MS Word Object Library” mengikut artikel “Cara Menambah Rujukan Perpustakaan Objek dalam VBA".
- Seterusnya, masukkan kod 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
- Selepas itu, tambahkan makro ini ke Bar Alat Akses Pantas tetingkap mesej dengan merujuk pada “Cara Menjalankan Kod VBA di Outlook Anda".
- Akhirnya, ikuti langkah di bawah untuk mencubanya.
- Dalam kotak dialog timbul, masukkan alamat pautan hiper lama dan baru.
- Apabila makro selesai, anda akan menerima mesej yang memberitahu anda jumlah pautan yang alamatnya telah diubah.
- Banyak alamat hyperlink telah diubah, seperti gambar di bawah.
Lindungi Data Outlook Anda yang Berharga
Oleh kerana Outlook terdedah kepada kesalahan dan kerosakan, anda harus membuat beberapa langkah berjaga-jaga yang berkesan untuk melindungi fail Outlook anda. Pertama sekali, anda perlu membuat sandaran data PST biasa. Juga, anda harus membina kebiasaan yang baik untuk menutup Outlook dengan cara yang betul. Akhir sekali, anda lebih baik menyiapkan yang kuat Pembaikan Outlook utiliti, 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 Server pemulihan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com