Batch Kopieer alle hyperlinks in meerdere e-mails naar een nieuwe Outlook-e-mail

Als u alle hyperlinks in meerdere e-mails wilt kopiëren en ze vervolgens in een nieuwe e-mail naar iemand anders wilt sturen, kunt u de aanpak gebruiken die in dit artikel is geïntroduceerd. Het is in staat om u dit in één keer te laten krijgen.

Soms moet u de hyperlinks van meerdere ontvangen e-mails extraheren en naar een specifiek e-mailadres sturen. Uw collega stuurt u bijvoorbeeld een aantal e-mails met hyperlinks naar een lopend project. Vervolgens wilt u deze hyperlinks naar een enkele e-mail extraheren en deze e-mail naar uw andere e-mailadres sturen. In dit geval is de most directe manier is om hyperlinks naar de nieuwe e-mail een voor een te kopiëren vanuit de bron-e-mails. Maar het is te dom en inefficiënt. Nu zullen we u hierna een gemakkelijkere en snellere methode geven.

Batch Kopieer alle hyperlinks in meerdere e-mails naar een nieuwe e-mail

1. Start vanaf het begin de Outlook-applicatie.
2. Selecteer vervolgens de e-mails waaruit u hyperlinks wilt extraheren.
3. Activeer vervolgens de Outlook VBA-editor volgens “Hoe u VBA-code in uw Outlook uitvoert'.
4. Schakel in het VBA-editorvenster de verwijzing naar “MS Word Object Library "volgens"Hoe u een object kunt toevoegen Library Referentie in VBA'.
5. Plaats later de volgende code in een module.

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. Druk daarna op "F5" om deze macro nu uit te voeren.
7. Ten slotte, wanneer de macro is voltooid, verschijnt er een nieuwe e-mail die alle hyperlinks bevat die uit de eerder geselecteerde e-mails zijn geëxtraheerd.

Besteed speciale aandacht aan onbekende hyperlinks

Vooral voor Outlook-gebruikers is het noodzakelijk om op hun hoede te zijn voor alle verdachte hyperlinks in onbekende e-mails. Het is omdat most van hen kunnen virussen bevatten, wat direct kan resulteren in beschadiging van Outlook-gegevens. Het is duidelijk dat niemand klaar is om zijn Outlook-gegevens te verliezen. Daarom moet u bij het dagelijkse werk opletten voor onbekende mails en virussen en malware voorkomen. Bovendien wordt, indien mogelijk, aangeraden om een ​​ervaren en betrouwbaar persoon in dienst te nemen Outlook-reparatie tool, zoals DataNumen Outlook Repair. Het zal u zeker veel helpen wanneer uw Outlook PST-bestand wordt aangetast.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com