Iz nekih ste razloga umetnuli više hiperveza na tekstove u svoju Outlook e-poštu. A neki od njih povezani su s istom adresom. Ako želite skupno promijeniti adrese ovih hiperveza, možete koristiti metode predstavljene u ovom članku.
Na primjer, sastavili ste Outlook e-poruku koja ima puno hiperveza u tijelu poruke. Ipak, poslije ste otkrili da je adresa pogrešna. I mnoge hiperveze koriste ovu adresu. Stoga morate skupno promijeniti adrese ovih hiperveza. Kao odgovor na ovaj problem, u nastavku ćemo podijeliti 2 laka i brza pristupa.
Metoda 1: Pronađite i zamijenite ručno
- Za početak, u otvorenom e-mailu pritisnite tipke "Alt + F9".
- Tada će se izravno prikazati sve adrese hiperveza.
- Sada pritisnite "Ctrl + H" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
- U ovom novom dijaloškom okviru unesite staru adresu hiperveze u okvir "Pronađi što" i novu adresu u okvir "Zamijeni sa".
- Nakon toga kliknite gumb "Zamijeni sve".
- Kasnije zatvorite dijaloški okvir "Traži i zamijeni".
- Nakon povratka na tijelo poruke ponovno pritisnite tipke “Alt + F9” da biste sakrili adrese hiperveza.
- Nakon toga pritisnite “Ctrl + A” za odabir cijelog tijela poruke.
- Na kraju dodirnite tipku “F9” da ažurirate sve promijenjene adrese hiperveza.
- Sada provjerite adrese hiperveza tako da pustite kursor iznad teksta. Sve hiperveze koje su povezane sa starim adresama su izmijenjene, kao na sljedećoj snimci zaslona.
Metoda 2: Iskoristite Outlook VBA
- Na prvom mjestu pritisnite “Alt + F11” za pokretanje VBA editora.
- Zatim, u novom prozoru, omogućite "MS Word Object Library" prema članku "Kako dodati referencu biblioteke objekata u VBA".
- Zatim stavite sljedeći VBA kod u 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
- Nakon toga dodajte ovu makronaredbu na alatnu traku za brzi pristup prozora s porukama s referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
- Na kraju, slijedite korake u nastavku da isprobate.
- U skočne dijaloške okvire unesite staru i novu adresu hiperveze.
- Kada makronaredba završi, primit ćete poruku s brojem hiperveza čije su adrese promijenjene.
- Promijenjene su adrese više hiperveza, kao na slici ispod.
Zaštitite svoje vrijedne Outlook podatke
Budući da je Outlook sklon pogreškama i oštećenjima, morate poduzeti neke učinkovite mjere opreza kako biste zaštitili svoju Outlook datoteku. Prije svega, trebate redovito izrađivati sigurnosne kopije PST podataka. Također, trebali biste izgraditi dobru naviku zatvaranja Outlooka na pravilan način. Na kraju, ali ne manje važno, bolje je da pripremite potent Outlook popravak korisnost, kao što je DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com