Hvordan batchkopiere alle hyperkoblinger i flere e-poster til en ny Outlook-e-post

Hvis du vil kopiere alle hyperkoblinger i flere e-poster og deretter sende dem i en ny e-post til noen andre, kan du bruke tilnærmingen introdusert i denne artikkelen. Den er i stand til å la deg få dette på én gang.

Noen ganger kan det hende du må trekke ut og sende hyperkoblingene fra flere mottatte e-poster til en bestemt e-postadresse. For eksempel sender din kollega deg noen e-poster som inneholder hyperkoblinger relatert til et pågående prosjekt. Deretter vil du trekke ut disse hyperkoblingene til en enkelt e-post og sende denne e-posten til den andre e-postadressen din. I dette tilfellet er most direkte måte er å kopiere hyperkoblinger til den nye e-posten én etter én fra kilde-e-postene. Men det er for dumt og ineffektivt. Nå, deretter, vil vi dele deg en mer praktisk og rask metode.

Batchkopier alle hyperkoblinger i flere e-poster til en ny e-post

1. Start Outlook-applikasjonen helt i begynnelsen.
2. Deretter velger du e-postene du vil trekke ut hyperkoblinger fra.
3. Deretter utløser du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
4. I VBA-redigeringsvinduet aktiverer du referansen til "MS Word Object Library" i henhold til "Hvordan legge til et objekt Library Referanse i VBA".
5. Senere legger du følgende kode inn i en 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. Etter det, trykk "F5" for å kjøre denne makroen akkurat nå.
7. Til slutt, når makroen er fullført, vil en ny e-post dukke opp, som inneholder alle hyperkoblingene som er hentet fra de tidligere valgte e-postene.

Vær spesielt oppmerksom på ukjente hyperkoblinger

Det er spesielt nødvendig for Outlook-brukere å passe seg for alle mistenkelige hyperkoblinger i ukjente e-poster. Det er fordi at most av dem kan bære virus, noe som direkte kan føre til korrupsjon av Outlook-data. Det er klart at ingen er klare til å miste Outlook-dataene sine. Derfor, i det daglige arbeidet, bør du passe på de ukjente e-postene, forhindre virus og skadelig programvare. I tillegg, hvis mulig, er det foreslått å få tak i en erfaren og pålitelig Outlook reparasjon verktøy, for eksempel DataNumen Outlook Repair. Det vil helt sikkert hjelpe deg mye når Outlook PST-filen din blir kompromittert.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med