Sådan batch-kopieres alle hyperlinks i flere e-mails til en ny Outlook-e-mail

Hvis du vil kopiere alle hyperlinks i flere e-mails og derefter sende dem i en ny e-mail til en anden, kan du bruge fremgangsmåden introduceret i denne artikel. Det er i stand til at lade dig få dette på én gang.

Til tider kan det være nødvendigt at udtrække og sende hyperlinks fra flere modtagne e-mails til en bestemt e-mailadresse. For eksempel sender din kollega dig nogle e-mails, der indeholder hyperlinks relateret til et igangværende projekt. Derefter vil du gerne udtrække disse hyperlinks til en enkelt e-mail og sende denne e-mail til din anden e-mailadresse. I dette tilfælde er most direkte måde er at kopiere hyperlinks til den nye e-mail én efter én fra kilde-e-mails. Men det er for dumt og ineffektivt. Nu, derefter, vil vi dele dig en mere bekvem og hurtig metode.

Batchkopier alle hyperlinks i flere e-mails til en ny e-mail

1. Start Outlook-applikationen lige fra starten.
2. Vælg derefter de e-mails, som du vil udtrække hyperlinks fra.
3. Udløs derefter Outlook VBA-editor i henhold til "Sådan køres VBA-kode i din Outlook".
4. I VBA-editorvinduet skal du aktivere referencen til "MS Word Object Library ”som pr.“Sådan tilføjes et objekt Library Reference i VBA".
5. Indsæt senere følgende kode i et 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. Tryk derefter på "F5" for at køre denne makro lige nu.
7. Til sidst, når makroen er færdig, vil der dukke en ny mail op, som indeholder alle de hyperlinks, der er udtrukket fra de tidligere valgte e-mails.

Vær særlig opmærksom på ukendte hyperlinks

Det er især nødvendigt for Outlook-brugere at passe på alle mistænkelige hyperlinks i ukendte e-mails. Det er fordi, at most af dem kan bære virus, som direkte kan resultere i korruption af Outlook-data. Det er klart, at ingen er klar til at miste deres Outlook-data. Derfor bør du i det daglige arbejde passe på de ukendte mails, hvilket forhindrer vira og malware. Plus, hvis det er muligt, foreslås det at få fat i en erfaren og pålidelig Outlook reparation værktøj, såsom DataNumen Outlook Repair. Det vil helt sikkert hjælpe dig meget, når din Outlook PST-fil bliver kompromitteret.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com