2 metoder för att ändra flera hyperlänkars adresser i din Outlook-e-post

Av vissa anledningar har du infogat flera hyperlänkar till texter i din Outlook-e-post. Och några av dem är kopplade till samma adress. Om du vill batchändra dessa hyperlänkars adresser kan du använda metoderna som introduceras i den här artikeln.

Du har till exempel skapat ett Outlook-e-postmeddelande, som har många hyperlänkar i meddelandetexten. Ändå upptäckte du efteråt att en adress är fel. Och många hyperlänkar använder den här adressen. Därför måste du batchändra dessa hyperlänkars adresser. Som svar på detta problem kommer vi därefter att dela två enkla och snabba tillvägagångssätt.

Metod 1: Hitta och ersätt manuellt

1. Till att börja med, i det öppnade e-postmeddelandet, tryck på "Alt + F9" knapparna.
2. Då kommer alla hyperlänkarnas adresser att visas direkt.
3. Tryck nu på "Ctrl + H" för att få fram dialogrutan "Sök och ersätt".
4. I den här nya dialogrutan anger du den gamla hyperlänkadressen i rutan "Hitta vad" och den nya adressen i rutan "Ersätt med".
5. Därefter klickar du på knappen "Ersätt alla".
6. Stäng senare dialogrutan "Sök och ersätt".
7. När du har återvänt till meddelandetexten, tryck på "Alt + F9"-knapparna igen för att dölja hyperlänkadresser.
8. Tryck sedan på "Ctrl + A" för att välja hela meddelandetexten.
9. Slutligen, tryck på "F9" -tangenten för att uppdatera alla ändrade hyperlänkadresser.
10. Kontrollera nu hyperlänkadresserna genom att låta markören sväva ovanför texterna. Alla hyperlänkar som är länkade till de gamla adresserna har ändrats, som följande skärmdump.

Metod 2: Använd Outlook VBA

1. I första hand trycker du på "Alt + F11" för att starta VBA-redigeraren.
2. Aktivera sedan "MS Word Object Library" i det nya fönstret enligt artikeln "Hur man lägger till en objektbiblioteksreferens i VBA".
3. Sätt sedan in följande VBA-kod i en 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

4. Lägg sedan till detta makro i snabbåtkomstverktygsfältet i meddelandefönstret med hänvisning till "Hur du kör VBA-kod i din Outlook".
5. Så småningom följer du stegen nedan för att prova det.

• I popup-dialogrutorna anger du de gamla och nya hyperlänkadresserna.
• När makrot är klart kommer du att få ett meddelande som talar om antalet hyperlänkar vars adresser har ändrats.
• Flera hyperlänkars adresser har ändrats, som bilden nedan.

Skydda dina värdefulla Outlook-data

Eftersom Outlook är utsatt för fel och korruption måste du vidta några effektiva försiktighetsåtgärder för att skydda din Outlook-fil. Först och främst måste du göra regelbundna säkerhetskopior av PST-data. Du bör också bygga upp en god vana att stänga din Outlook på ett korrekt sätt. Sist men inte minst är det bättre att förbereda en potent Outlook-fix verktyg, såsom DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server återvinning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com