Af nogle grunde har du indsat flere hyperlinks til tekster i din Outlook-e-mail. Og nogle af dem er knyttet til den samme adresse. Hvis du ønsker at ændre disse hyperlinks adresser i batch, kan du bruge metoderne introduceret i denne artikel.
For eksempel har du komponeret en Outlook-e-mail, som har mange hyperlinks i meddelelsens brødtekst. Men bagefter opdagede du, at en adresse er forkert. Og mange hyperlinks bruger denne adresse. Derfor er du nødt til at ændre disse hyperlinks adresser i batch. Som svar på dette problem deler vi herefter 2 nemme og hurtige tilgange.
Metode 1: Find og udskift manuelt
- Til at begynde med skal du i den åbnede e-mail trykke på “Alt + F9” -tasten.
- Derefter vises alle hyperlinks adresser direkte.
- Tryk nu på "Ctrl + H" for at fremhæve dialogboksen "Find og erstat".
- I denne nye dialogboks skal du indtaste den gamle hyperlinkadresse i feltet "Find hvad" og den nye adresse i feltet "Erstat med".
- Klik derefter på knappen "Erstat alt".
- Senere skal du lukke dialogboksen "Find og erstat".
- Når du er vendt tilbage til meddelelsesteksten, skal du trykke på “Alt + F9” -tasterne igen for at skjule hyperlinkadresser.
- Tryk derefter på "Ctrl + A" for at vælge hele meddelelsens brødtekst.
- Til sidst skal du trykke på “F9” -tasten for at opdatere alle de ændrede hyperlinkadresser.
- Kontroller nu hyperlinkadresserne ved at lade markøren svæve over teksterne. Alle hyperlinks, der er linket til de gamle adresser, er blevet ændret, som det følgende skærmbillede.
Metode 2: Brug Outlook VBA
- For det første skal du trykke på “Alt + F11” for at starte VBA-editor.
- Aktiver derefter "MS Word Object Library" i det nye vindue i henhold til artiklen "Sådan tilføjer du en objektbiblioteksreference i VBA".
- Sæt derefter følgende VBA-kode i et 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
- Bagefter skal du tilføje denne makro til værktøjslinjen til hurtig adgang i meddelelsesvinduet med henvisning til “Sådan køres VBA-kode i din Outlook".
- Til sidst skal du følge trinene nedenfor for at prøve det.
- I popup-dialogbokse skal du indtaste de gamle og nye hyperlinkadresser.
- Når makroen er færdig, modtager du en besked, der fortæller dig antallet af hyperlinks, hvis adresser er blevet ændret.
- Flere hyperlinks adresser er blevet ændret, som billedet nedenfor.
Beskyt dine værdifulde Outlook-data
Da Outlook er udsat for fejl og korruption, skal du træffe nogle effektive forholdsregler for at beskytte din Outlook-fil. Først og fremmest skal du foretage regelmæssige sikkerhedskopier af PST-data. Du skal også opbygge en god vane med at lukke din Outlook på en ordentlig måde. Sidst men ikke mindst er du bedre klar til at forberede en potent Outlook-rettelse hjælpeprogram, såsom DataNumen Outlook Repair.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com