З деяких причин ви вставили кілька гіперпосилань на тексти в електронному листі Outlook. І деякі з них пов’язані з однією адресою. Якщо ви хочете пакетно змінити адреси цих гіперпосилань, ви можете скористатися методами, представленими в цій статті.
Наприклад, ви створили електронну пошту Outlook, яка містить багато гіперпосилань у тілі повідомлення. Проте згодом ви виявили, що адреса неправильна. І багато гіперпосилань використовують цю адресу. Тому вам потрібно пакетно змінювати адреси цих гіперпосилань. У відповідь на цю проблему надалі ми поділимося 2 простими та швидкими підходами.
Спосіб 1: Знайти та замінити вручну
- Для початку у відкритому електронному листі натисніть клавіші “Alt + F9”.
- Потім усі адреси гіперпосилань відображатимуться безпосередньо.
- Тепер натисніть “Ctrl + H”, щоб відкрити діалогове вікно “Знайти та замінити”.
- У цьому новому діалоговому вікні введіть стару адресу гіперпосилання у полі «Знайти що» та нову адресу у полі «Замінити на».
- Після цього натисніть кнопку «Замінити все».
- Пізніше закрийте діалогове вікно "Знайти та замінити".
- Повернувшись до тіла повідомлення, натисніть клавіші “Alt + F9” ще раз, щоб приховати адреси гіперпосилань.
- Згодом натисніть “Ctrl + A”, щоб вибрати все тіло повідомлення.
- Нарешті, натисніть клавішу “F9”, щоб оновити всі змінені адреси гіперпосилань.
- Тепер перевірте адреси гіперпосилань, дозволивши курсору навести курсор на тексти. Усі гіперпосилання, пов’язані зі старими адресами, були змінені, як на наступному скріншоті.
Спосіб 2: Використовуйте Outlook VBA
- Перш за все, натисніть “Alt + F11”, щоб запустити редактор VBA.
- Потім у новому вікні увімкніть «Бібліотеку об’єктів MS Word» згідно зі статтею «Як додати посилання на бібліотеку об'єктів у VBA».
- Далі вкладіть наступний код VBA в модуль.
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
- Потім додайте цей макрос на панель швидкого доступу у вікні повідомлень із посиланням на “Як запустити код VBA у своєму Outlook».
- Зрештою, виконайте наведені нижче дії, щоб спробувати.
- У спливаючих діалогових вікнах введіть стару та нову адреси гіперпосилань.
- Коли макрос закінчиться, ви отримаєте повідомлення про кількість гіперпосилань, адреси яких було змінено.
- Змінено кілька адрес гіперпосилань, як на малюнку нижче.
Захистіть свої цінні дані Outlook
Оскільки Outlook схильний до помилок та корупції, вам слід вжити деяких ефективних запобіжних заходів, щоб захистити свій файл Outlook. Перш за все, вам потрібно регулярно робити резервні копії даних PST. Крім того, вам слід створити гарну звичку належним чином закривати свій Outlook. І останнє, але не менш важливе: вам краще підготувати потужний Виправлення в Outlook утиліта, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server відновлення та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com