Kā kopēt visas hipersaites vairākos e-pastos uz jaunu Outlook e-pastu

Ja vēlaties kopēt visas hipersaites vairākos e-pasta ziņojumos un pēc tam nosūtīt tos jaunā e-pastā kādam citam, varat izmantot šajā rakstā sniegto pieeju. Tas ļauj jums to iegūt vienā piegājienā.

Reizēm, iespējams, vajadzēs iegūt un nosūtīt hipersaites no vairākiem saņemtajiem e-pastiem uz noteiktu e-pasta adresi. Piemēram, jūsu kolēģis jums nosūta dažus e-pastus, kuros ir hipersaites, kas saistītas ar notiekošu projektu. Pēc tam jūs vēlaties iegūt šīs hipersaites uz vienu e-pastu un nosūtīt šo e-pastu uz citu savu e-pasta adresi. Šajā gadījumā most tiešs veids ir kopēt hipersaites uz jauno e-pastu pa vienam no avota e-pastiem. Bet tas ir pārāk stulbi un neefektīvi. Tagad, tālāk, mēs jums dalīsimies ar ērtāku un ātrāku metodi.

Sērijveidā kopējiet visas hipersaites vairākos e-pastos uz jaunu e-pastu

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam atlasiet e-pastus, no kuriem vēlaties iegūt hipersaites.
3. Pēc tam aktivizējiet Outlook VBA redaktoru atbilstoši “Kā palaist VBA kodu programmā Outlook".
4. VBA redaktora logā iespējojiet atsauci uz “MS Word Object Library ”atbilstoši“Kā pievienot objektu Library Atsauce VBA".
5. Vēlāk ievietojiet šādu kodu 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. Pēc tam nospiediet “F5”, lai palaistu šo makro tūlīt.
7. Visbeidzot, kad makro būs pabeigts, tiks parādīts jauns pasts, kurā būs visas hipersaites, kas iegūtas no iepriekš atlasītajiem e-pastiem.

Pievērsiet īpašu uzmanību nezināmām hipersaitēm

Īpaši nepieciešams, lai Outlook lietotāji piesargātos no visām aizdomīgajām hipersaitēm nezināmos e-pastos. Tas ir tāpēc, ka most no tiem var būt vīrusi, kas var tieši izraisīt Outlook datu bojājumus. Acīmredzot neviens nav gatavs zaudēt savus Outlook datus. Tādējādi ikdienas darbā jums vajadzētu uzmanīties no nezināmiem e-pastiem, novēršot vīrusus un ļaunprātīgu programmatūru. Turklāt, ja iespējams, ieteicams iegūt pieredzējušu un uzticamu cilvēku Outlook remonts rīks, piemēram, DataNumen Outlook Repair. Tas, protams, jums daudz palīdzēs, ja tiks apdraudēts jūsu Outlook PST fails.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar