Dėl tam tikrų priežasčių „Outlook“ el. laiške įterpėte kelis hipersaitus į tekstus. Ir kai kurie iš jų yra susieti su tuo pačiu adresu. Jei norite pakeisti šių hipersaitų adresus paketais, galite naudoti šiame straipsnyje aprašytus metodus.
Pavyzdžiui, sukūrėte „Outlook“ el. laišką, kurio žinutės tekste yra daug hipersaitų. Tačiau vėliau jūs sužinojote, kad adresas yra neteisingas. Ir daugelis hipersaitų naudoja šį adresą. Todėl turite pakeisti šių hipersaitų adresus. Atsakydami į šią problemą, toliau pasidalinsime 2 paprastais ir greitais būdais.
1 būdas: suraskite ir pakeiskite rankiniu būdu
- Norėdami pradėti, atidarytame el. laiške paspauskite klavišų kombinaciją „Alt + F9“.
- Tada visi hipersaitų adresai bus rodomi tiesiogiai.
- Dabar paspauskite „Ctrl + H“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
- Šiame naujame dialogo lange įveskite seną hipersaito adresą laukelyje „Rasti ką“ ir naują adresą laukelyje „Pakeisti į“.
- Po to spustelėkite mygtuką „Pakeisti viską“.
- Vėliau uždarykite dialogo langą „Rasti ir pakeisti“.
- Grįžę į pranešimo turinį, dar kartą paspauskite „Alt + F9“ klavišus, kad paslėptumėte hipersaitų adresus.
- Tada paspauskite „Ctrl + A“, kad pasirinktumėte visą pranešimo turinį.
- Galiausiai bakstelėkite klavišą „F9“, kad atnaujintumėte visus pakeistus hipersaitų adresus.
- Dabar patikrinkite hipersaitų adresus, užvesdami žymeklį virš tekstų. Visi hipersaitai, susieti su senais adresais, buvo pakeisti, kaip nurodyta toliau pateiktoje ekrano kopijoje.
2 būdas: pasinaudokite Outlook VBA
- Pirmiausia paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių.
- Tada naujame lange įjunkite „MS Word objektų biblioteką“ pagal straipsnį „Kaip pridėti objektų bibliotekos nuorodą VBA".
- Tada į modulį įdėkite šį VBA kodą.
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
- Po to pridėkite šią makrokomandą į pranešimų lango greitosios prieigos įrankių juostą su nuoroda „Kaip paleisti VBA kodą „Outlook“.".
- Galiausiai atlikite toliau nurodytus veiksmus, kad išbandytumėte.
- Iššokančiuose dialogo languose įveskite seną ir naują hipersaitų adresus.
- Kai makrokomanda bus baigta, gausite pranešimą, nurodantį hipersaitų, kurių adresai buvo pakeisti, skaičių.
- Kelių hipersaitų adresai buvo pakeisti, kaip paveikslėlyje žemiau.
Apsaugokite savo vertingus „Outlook“ duomenis
Kadangi „Outlook“ yra linkusi į klaidas ir sugadinimą, turite imtis veiksmingų atsargumo priemonių, kad apsaugotumėte „Outlook“ failą. Visų pirma, turite reguliariai daryti atsargines PST duomenų kopijas. Be to, turėtumėte susikurti gerą įprotį tinkamai uždaryti „Outlook“. Paskutinis, bet ne mažiau svarbus dalykas yra tai, kad geriau paruošti stiprų Outlook taisymas naudingumas, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com