2 Metodi za paketno spreminjanje naslovov več hiperpovezav v vaši Outlookovi e-pošti

Iz nekaterih razlogov ste v Outlookovo e-pošto vstavili več hiperpovezav do besedil. In nekateri od njih so povezani z istim naslovom. Če želite paketno spremeniti naslove teh hiperpovezav, lahko uporabite metode, predstavljene v tem članku.

Na primer, sestavili ste Outlookovo e-poštno sporočilo, ki ima v telesu sporočila veliko hiperpovezav. Vendar ste pozneje ugotovili, da je naslov napačen. In številne hiperpovezave uporabljajo ta naslov. Zato morate paketno spremeniti naslove teh hiperpovezav. V odgovor na to težavo bomo v nadaljevanju delili 2 preprosta in hitra pristopa.

1. način: Ročno iskanje in zamenjava

1. Za začetek v odprtem e-poštnem sporočilu pritisnite tipke »Alt + F9«.
2. Nato bodo neposredno prikazani vsi naslovi hiperpovezav.
3. Zdaj pritisnite »Ctrl + H«, da odprete pogovorno okno »Najdi in zamenjaj«.
4. V tem novem pogovornem oknu vnesite stari naslov hiperpovezave v polje »Najdi kaj« in nov naslov v polje »Zamenjaj z«.
5. Po tem kliknite gumb »Zamenjaj vse«.
6. Pozneje zaprite pogovorno okno »Najdi in zamenjaj«.
7. Ko se vrnete v telo sporočila, znova pritisnite tipki "Alt + F9", da skrijete naslove hiperpovezav.
8. Nato pritisnite »Ctrl + A«, da izberete celotno telo sporočila.
9. Nazadnje tapnite tipko »F9«, da posodobite vse spremenjene naslove hiperpovezav.
10. Zdaj preverite naslove hiperpovezav tako, da pustite kazalec lebdeti nad besedili. Vse hiperpovezave, ki so povezane s starimi naslovi, so bile spremenjene, kot je naslednji posnetek zaslona.

2. način: Uporabite Outlook VBA

1. Najprej pritisnite »Alt + F11«, da zaženete urejevalnik VBA.
2. Nato v novem oknu omogočite »Knjižnico objektov MS Word« v skladu s člankom »Kako dodati referenco knjižnice objektov v VBA".
3. Nato v modul vstavite naslednjo kodo VBA.

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. Nato dodajte ta makro v orodno vrstico za hitri dostop okna sporočila s sklicevanjem na »Kako zagnati kodo VBA v Outlooku".
5. Če želite poskusiti, sledite spodnjim korakom.

• V pojavna pogovorna okna vnesite stare in nove naslove hiperpovezav.
• Ko se makro konča, boste prejeli sporočilo s številom hiperpovezav, katerih naslovi so bili spremenjeni.
• Naslovi več hiperpovezav so bili spremenjeni, kot je spodnja slika.

Zaščitite svoje dragocene Outlookove podatke

Ker je Outlook nagnjen k napakam in poškodbam, morate sprejeti nekaj učinkovitih previdnostnih ukrepov, da zaščitite Outlookovo datoteko. Najprej morate redno izdelovati varnostne kopije podatkov PST. Prav tako bi se morali navaditi, da pravilno zaprete svoj Outlook. Nenazadnje je bolje, da si pripravite potent Outlook popravek uporabnost, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server okrevanje in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com