由於某些原因，您在 Outlook 電子郵件中插入了多個指向文本的超鏈接。 其中一些鏈接到同一個地址。 如果您想批量更改這些超鏈接的地址，您可以使用本文介紹的方法。
例如，您編寫了一封 Outlook 電子郵件，郵件正文中有很多超鏈接。 然而，後來你發現地址是錯誤的。 並且很多超鏈接都在使用這個地址。 因此，您需要批量更改這些超鏈接的地址。 針對這個問題，下面分享2個簡單快捷的方法。
方法 1：手動查找和替換
- 首先，在打開的電子郵件中，按“Alt + F9”鍵按鈕。
- 然後，將直接顯示所有超鏈接的地址。
- 現在，按“Ctrl + H”調出“查找和替換”對話框。
- 在這個新對話框中，在“查找內容”框中輸入舊的超鏈接地址，在“替換為”框中輸入新地址。
- 之後，單擊“全部替換”按鈕。
- 稍後，關閉“查找和替換”對話框。
- 返回郵件正文後，再次按“Alt + F9”鍵隱藏超鏈接地址。
- 隨後，按“Ctrl + A”選擇所有郵件正文。
- 最後，點擊“F9”鍵更新所有更改的超鏈接地址。
- 現在，通過讓光標懸停在文本上方來檢查超鏈接地址。 鏈接到舊地址的所有超鏈接都已更改，如下面的屏幕截圖。
方法2：利用Outlook VBA
- 首先，按“Alt + F11”啟動 VBA 編輯器。
- 然後，在新視窗中，根據文章“如何在 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
- 之後，參考“如何在Outlook中運行VBA代碼“。
- 最終，請按照以下步驟嘗試。
- 在彈出的對話框中，輸入新舊超鏈接地址。
- 宏完成後，您將收到一條消息，告訴您地址已更改的超鏈接的數量。
- 多個超鏈接的地址已更改，如下圖所示。
保護您寶貴的 Outlook 數據
由於 Outlook 容易出錯和損壞，您必須採取一些有效的預防措施來保護您的 Outlook 文件。 首先，您需要定期進行 PST 數據備份。 此外，您應該養成以適當方式關閉 Outlook 的好習慣。 最後但並非最不重要的是，你最好準備一個有效的 Outlook修復 實用程序，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL Server 復甦 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM