Kako paketno kopirati vse hiperpovezave v več e-poštnih sporočilih v novo Outlookovo e-poštno sporočilo

Če želite kopirati vse hiperpovezave v več e-poštnih sporočilih in jih nato poslati v novem e-poštnem sporočilu nekomu drugemu, lahko uporabite pristop, predstavljen v tem članku. Lahko vam omogoči, da to dobite naenkrat.

Včasih boste morda morali ekstrahirati in poslati hiperpovezave iz več prejetih e-poštnih sporočil na določen e-poštni naslov. Na primer, vaš sodelavec vam pošlje nekaj e-poštnih sporočil, ki vsebujejo hiperpovezave, povezane s projektom v teku. Nato želite te hiperpovezave ekstrahirati v eno e-pošto in to e-pošto poslati na svoj drugi e-poštni naslov. V tem primeru je most neposreden način je kopiranje hiperpovezav do novega e-poštnega sporočila eno za drugo iz izvornih e-poštnih sporočil. Vendar je preveč neumno in neučinkovito. Zdaj, nato, vam bomo delili bolj priročno in hitro metodo.

Paketno kopirajte vse hiperpovezave v več e-poštnih sporočilih v novo e-poštno sporočilo

1. Na začetku zaženite aplikacijo Outlook.
2. Nato izberite e-poštna sporočila, iz katerih želite izvleči hiperpovezave.
3. Nato sprožite urejevalnik Outlook VBA v skladu z "Kako zagnati kodo VBA v Outlooku".
4. V oknu urejevalnika VBA omogočite sklic na »MS Word Object Library "po"Kako dodati Lib predmetarary Referenca v VBA".
5. Kasneje vstavite naslednjo kodo v modul.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. Po tem pritisnite "F5", da takoj zaženete ta makro.
7. Nazadnje, ko se makro zaključi, se prikaže nova pošta, ki vsebuje vse hiperpovezave, ekstrahirane iz predhodno izbranih e-pošte.

Bodite posebno pozorni na neznane hiperpovezave

Uporabniki Outlooka morajo biti še posebej pozorni na vse sumljive hiperpovezave v neznanih e-poštnih sporočilih. To je zato, ker most med njimi lahko prenašajo viruse, kar lahko neposredno povzroči poškodbo Outlookovih podatkov. Očitno nihče ni pripravljen izgubiti svojih Outlookovih podatkov. Zato morate pri vsakdanjem delu paziti na neznano pošto, preprečiti viruse in zlonamerno programsko opremo. Poleg tega, če je mogoče, je priporočljivo, da se obrnete na izkušenega in zanesljivega Outlook popravilo orodje, kot je DataNumen Outlook Repair. Zagotovo vam bo zelo pomagalo, ko bo vaša Outlookova datoteka PST ogrožena.

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 popraviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com