Kuidas kopeerida kõik mitmes meilis olevad hüperlingid uude Outlooki meili

Outlooki lahendused September 29, 2025

Kui soovite kopeerida kõik mitmes meilis olevad hüperlingid ja seejärel saata need kellelegi teisele uues meilis, võite kasutada selles artiklis kirjeldatud lähenemisviisi. See võimaldab teil selle ühe korraga kätte saada.

Mõnikord peate võib-olla eraldama ja saatma hüperlingid mitmest vastuvõetud meilist kindlale e-posti aadressile. Näiteks saadab teie kolleeg teile e-kirju, mis sisaldavad käimasoleva projektiga seotud hüperlinke. Seejärel soovite need hüperlingid eraldada ühele meilile ja saata selle meili oma teisele e-posti aadressile. Sel juhul on most otsene viis on kopeerida hüperlingid lähtekirjadest ükshaaval uude meili. Kuid see on liiga rumal ja ebaefektiivne. Nüüd, edaspidi, jagame teile mugavamat ja kiiremat meetodit.

Kopeerige kõik mitmes meilis olevad hüperlingid uude meili

  1. Käivitage kohe alguses Outlooki rakendus.
  2. Seejärel valige meilid, millest soovite hüperlinke ekstraheerida.Valige Allikameilid
  3. Järgmisena käivitage Outlook VBA redaktor vastavalt "Kuidas Outlookis VBA-koodi käivitada".
  4. Lubage VBA redaktori aknas viide "MS Word Object Library" vastavalt "Kuidas lisada objektiliigrary Viide VBA-s".
  5. Hiljem sisestage järgmine kood moodulisse.
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

VBA-kood – kõigi mitmes meilis leiduvate hüperlingide pakettkopeerimine uude meili

  1. Pärast seda vajutage selle makro käivitamiseks kohe nuppu F5.
  2. Lõpuks, kui makro on lõpule jõudnud, kuvatakse uus kiri, mis sisaldab kõiki eelnevalt valitud meilidest ekstraheeritud hüperlinke.Kopeeritud hüperlingid uues meilis

Pöörake erilist tähelepanu tundmatutele hüperlinkidele

Eriti vajalik on Outlooki kasutajatel olla ettevaatlik kõigi kahtlaste hüperlinkide suhtes tundmatutes meilides. Põhjus on selles, et most neist võivad olla viirused, mis võivad otseselt põhjustada Outlooki andmete rikkumist. Ilmselgelt pole keegi valmis oma Outlooki andmeid kaotama. Seetõttu peaksite igapäevases töös jälgima tundmatuid kirju, vältides viiruseid ja pahavara. Lisaks on võimalusel soovitatav hankida kogenud ja usaldusväärne Outlooki parandamine tööriist, näiteks DataNumen Outlook Repair. See aitab teid kindlasti palju, kui teie Outlooki PST-fail satub ohtu.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.