Z nějakých důvodů jste do e-mailu aplikace Outlook vložili více hypertextových odkazů na texty. A některé z nich jsou spojeny se stejnou adresou. Pokud byste chtěli hromadně změnit adresy těchto hypertextových odkazů, můžete použít metody uvedené v tomto článku.
Například jste vytvořili e-mail aplikace Outlook, který má v těle zprávy mnoho hypertextových odkazů. Přesto jste později zjistili, že adresa je chybná. A mnoho hypertextových odkazů používá tuto adresu. Proto je třeba hromadně změnit adresy těchto hypertextových odkazů. V reakci na tento problém se níže podělíme o 2 snadné a rychlé přístupy.
Metoda 1: Najít a nahradit ručně
- Začněte tím, že v otevřeném e-mailu stiskněte klávesy „Alt + F9“.
- Poté se přímo zobrazí adresy všech hypertextových odkazů.
- Nyní stiskněte "Ctrl + H" pro zobrazení dialogového okna "Najít a nahradit".
- V tomto novém dialogovém okně zadejte starou adresu hypertextového odkazu do pole „Najít“ a novou adresu do pole „Nahradit čím“.
- Poté klikněte na tlačítko „Nahradit vše“.
- Později zavřete dialogové okno „Najít a nahradit“.
- Po návratu do těla zprávy stiskněte znovu klávesy „Alt + F9“, abyste skryli adresy hypertextových odkazů.
- Následně stiskněte „Ctrl + A“ pro výběr celého těla zprávy.
- Nakonec klepnutím na klávesu „F9“ aktualizujte všechny změněné adresy hypertextových odkazů.
- Nyní zkontrolujte adresy hypertextových odkazů tak, že necháte kurzor najet nad texty. Všechny hypertextové odkazy, které jsou propojeny se starými adresami, byly změněny, jako na následujícím snímku obrazovky.
Metoda 2: Využijte Outlook VBA
- Nejprve stiskněte „Alt + F11“ pro spuštění editoru VBA.
- Poté v novém okně povolte „Knihovnu objektů MS Word“ podle článku „Jak přidat odkaz na knihovnu objektů ve VBA".
- Dále vložte následující kód VBA do modulu.
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
- Poté přidejte toto makro na panel nástrojů Rychlý přístup okna zpráv s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
- Nakonec to vyzkoušejte podle následujících pokynů.
- Do vyskakovacích dialogových oken zadejte starou a novou adresu hypertextového odkazu.
- Po dokončení makra obdržíte zprávu o počtu hypertextových odkazů, jejichž adresy byly změněny.
- Adresy více hypertextových odkazů byly změněny, jako na obrázku níže.
Chraňte svá cenná data aplikace Outlook
Vzhledem k tomu, že aplikace Outlook je náchylná k chybám a poškození, musíte provést některá účinná opatření k ochraně souboru aplikace Outlook. Nejprve musíte pravidelně zálohovat data PST. Také byste si měli vytvořit dobrý zvyk zavírat svůj Outlook správným způsobem. V neposlední řadě si raději připravíte potent Oprava aplikace Outlook nástroj, jako je DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server obnova a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com