Hur man satsar på att kopiera alla hyperlänkar i flera e-postmeddelanden till en ny Outlook-e-post

Om du vill kopiera alla hyperlänkar i flera e-postmeddelanden och sedan skicka dem i ett nytt e-postmeddelande till någon annan kan du använda den metod som introducerades i den här artikeln. Det kan låta dig få detta på en gång.

Ibland kan du behöva extrahera och skicka hyperlänkar från flera mottagna e-postmeddelanden till en specifik e-postadress. Till exempel skickar din kollega några e-postmeddelanden som innehåller hyperlänkar relaterade till ett pågående projekt. Då vill du extrahera dessa hyperlänkar till ett enda e-postmeddelande och skicka det här e-postmeddelandet till din andra e-postadress. I det här fallet är most direkt sätt är att kopiera hyperlänkar till det nya e-postmeddelandet en efter en från käll-e-postmeddelandena. Men det är för dumt och ineffektivt. Nu, därefter kommer vi att dela dig med en mer bekväm och snabb metod.

Partikopiera alla hyperlänkar i flera e-postmeddelanden till en ny e-post

1. Starta Outlook-applikationen redan från början.
2. Välj sedan de e-postmeddelanden som du vill extrahera hyperlänkar från.
3. Nästa, utlösa Outlook VBA-redigerare enligt “Hur du kör VBA-kod i din Outlook".
4. I VBA-redigeringsfönstret aktiverar du referensen till “MS Word Object Library ”enligt“Hur man lägger till ett objekt Library Referens i VBA".
5. Senare lägger du in följande kod 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. Tryck därefter på "F5" för att köra detta makro just nu.
7. Slutligen, när makrot är klart kommer ett nytt e-postmeddelande att visas som innehåller alla hyperlänkar extraherade från de tidigare valda e-postmeddelandena.

Var särskilt uppmärksam på okända hyperlänkar

Det är särskilt nödvändigt för Outlook-användare att se upp för alla misstänkta hyperlänkar i okända e-postmeddelanden. Det beror på att most av dem kan ha virus, vilket direkt kan leda till korruption i Outlook-data. Uppenbarligen är ingen redo att förlora sina Outlook-data. Därför bör du i det dagliga arbetet se upp för de okända posten och förhindra virus och skadlig kod. Dessutom föreslås det om möjligt att få tag på en erfaren och pålitlig Outlook-reparation verktyg, såsom DataNumen Outlook Repair. Det kommer säkert att hjälpa dig mycket när din Outlook PST-fil blir äventyrad.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fixa sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com