Bizonyos okok miatt több hiperhivatkozást szúrt be az Outlook e-mailjeibe. És néhányuk ugyanahhoz a címhez kapcsolódik. Ha köteggel szeretné módosítani ezeknek a hiperhivatkozásoknak a címét, használhatja az ebben a cikkben bemutatott módszereket.
Például írt egy Outlook e-mailt, amelynek az üzenettörzsben sok hiperhivatkozás található. Később azonban rájött, hogy egy cím rossz. És sok hiperhivatkozás használja ezt a címet. Ezért ezeknek a hiperhivatkozásoknak a címeit köteggel kell módosítania. Erre a problémára válaszul a továbbiakban két egyszerű és gyors megközelítést osztunk meg.
1. módszer: Manuális keresés és csere
- Kezdésként a megnyitott e-mailben nyomja meg az „Alt + F9” billentyűket.
- Ezután az összes hiperhivatkozás címe közvetlenül megjelenik.
- Most nyomja meg a „Ctrl + H” gombot a „Keresés és csere” párbeszédpanel megjelenítéséhez.
- Ezen az új párbeszédpanelen írja be a régi hiperhivatkozás címét a „Keressen mit” mezőbe, és az új címet a „Csere erre” mezőbe.
- Ezt követően kattintson az „Összes cseréje” gombra.
- Később zárja be a „Keresés és csere” párbeszédpanelt.
- Miután visszatért az üzenet törzséhez, nyomja meg ismét az „Alt + F9” billentyűket a hiperhivatkozások címeinek elrejtéséhez.
- Ezt követően nyomja meg a „Ctrl + A” billentyűkombinációt az üzenet teljes szövegének kijelöléséhez.
- Végül érintse meg az „F9” gombot az összes megváltozott hiperhivatkozási cím frissítéséhez.
- Most ellenőrizze a hiperhivatkozások címét úgy, hogy a kurzort a szövegek fölé viszi. A régi címekhez kapcsolódó összes hiperhivatkozás módosult, például az alábbi képernyőképen.
2. módszer: Használja az Outlook VBA-t
- Először nyomja meg az „Alt + F11” gombot a VBA-szerkesztő elindításához.
- Ezután az új ablakban engedélyezze az „MS Word Object Library” funkciót a „Objektumkönyvtár-hivatkozás hozzáadása VBA-ban".
- Ezután helyezze be a következő VBA-kódot egy modulba.
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
- Ezután adja hozzá ezt a makrót az üzenetablak Gyorselérési eszköztárához a következő hivatkozássalA VBA kód futtatása az Outlookban".
- Végül kövesse az alábbi lépéseket a kipróbáláshoz.
- A felugró párbeszédpaneleken adja meg a régi és az új hiperhivatkozás címét.
- Amikor a makró befejeződik, egy üzenetet fog kapni, amely közli azon hiperhivatkozások számát, amelyek címe megváltozott.
- Több hiperhivatkozás címe módosult, mint az alábbi képen.
Védje meg értékes Outlook adatait
Mivel az Outlook hajlamos a hibákra és a korrupcióra, néhány hatékony óvintézkedést kell tennie az Outlook-fájl védelme érdekében. Először is rendszeres biztonsági mentést kell készítenie a PST adatokról. Ezenkívül jó szokást kell kialakítania az Outlook megfelelő bezárására. Végül, de nem utolsósorban, jobb, ha készít egy potensot Outlook javítás segédprogram, mint pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server felépülés és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com