Kopieren aller Hyperlinks in mehreren E-Mails in eine neue Outlook-E-Mail

Wenn Sie alle Hyperlinks in mehrere E-Mails kopieren und sie dann in einer neuen E-Mail an eine andere Person senden möchten, können Sie den in diesem Artikel beschriebenen Ansatz verwenden. Es ist in der Lage, Sie dies auf einmal zu bekommen.

Manchmal müssen Sie möglicherweise die Hyperlinks aus mehreren empfangenen E-Mails extrahieren und an eine bestimmte E-Mail-Adresse senden. Ihr Kollege sendet Ihnen beispielsweise einige E-Mails mit Hyperlinks zu einem laufenden Projekt. Anschließend möchten Sie diese Hyperlinks zu einer einzelnen E-Mail extrahieren und diese E-Mail an Ihre andere E-Mail-Adresse senden. In diesem Fall ist die most Der direkte Weg besteht darin, Hyperlinks einzeln aus den Quell-E-Mails in die neue E-Mail zu kopieren. Aber es ist zu dumm und ineffizient. Im Folgenden werden wir Ihnen eine bequemere und schnellere Methode vorstellen.

Kopieren Sie alle Hyperlinks in mehreren E-Mails stapelweise in eine neue E-Mail

1. Starten Sie gleich zu Beginn die Outlook-Anwendung.
2. Wählen Sie dann die E-Mails aus, aus denen Sie Hyperlinks extrahieren möchten.
3. Als nächstes lösen Sie den Outlook VBA-Editor gemäß „So führen Sie VBA-Code in Outlook aus".
4. Aktivieren Sie im VBA-Editorfenster den Verweis auf „MS Word Object Library "gemäß"So fügen Sie eine Objektbibliothek hinzurary Referenz in VBA".
5. Fügen Sie später den folgenden Code in ein Modul ein.

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. Drücken Sie danach "F5", um dieses Makro jetzt auszuführen.
7. Wenn das Makro abgeschlossen ist, wird eine neue E-Mail angezeigt, die alle aus den zuvor ausgewählten E-Mails extrahierten Hyperlinks enthält.

Achten Sie besonders auf unbekannte Hyperlinks

Outlook-Benutzer müssen sich insbesondere vor allen verdächtigen Hyperlinks in unbekannten E-Mails hüten. Es ist, weil das most Einige von ihnen können Viren enthalten, die direkt zu einer Beschädigung der Outlook-Daten führen können. Offensichtlich ist niemand bereit, seine Outlook-Daten zu verlieren. Daher sollten Sie bei der täglichen Arbeit auf unbekannte E-Mails achten, um Viren und Malware zu vermeiden. Wenn möglich, wird außerdem empfohlen, sich an einen erfahrenen und zuverlässigen Mitarbeiter zu wenden Outlook reparieren Werkzeug, wie z DataNumen Outlook Repair. Es wird Ihnen sicherlich sehr helfen, wenn Ihre Outlook PST-Datei kompromittiert wird.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Fix SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX