Comment exporter rapidement tous les hyperliens dans plusieurs e-mails Outlook vers Excel

Lorsque vous devez extraire tous les liens hypertextes d'un ou plusieurs e-mails, les copier un par un est fastidieux. Cet article vous présente une méthode pour exporter rapidement tous les liens hypertextes de plusieurs e-mails vers Excel.

Pour certaines raisons, telles que la journalisation des hyperliens dans tous vos e-mails envoyés, vous devrez extraire les hyperliens. Sans aucun doute, il est déconseillé de les extraire et de les copier manuellement. Vous devez aspirer à une approche beaucoup plus intelligente, telle que l'utilisation de VBA. Ici, nous allons vous partager un tel morceau de code VBA, qui est capable d'exporter tous les hyperliens de nombreux e-mails vers Excel via un simple clic.

Exporter tous les hyperliens de plusieurs e-mails vers Excel

1. Pour commencer, lancez votre programme Outlook comme d'habitude.
2. Ensuite, dans la fenêtre Outlook, vous devez appuyer sur les touches "Alt + F11".
3. À la fois, vous aurez accès à l'éditeur Outlook VBA.
4. Vous devez ensuite activer la « Bibliothèque d’objets Microsoft Word » ainsi que la « Bibliothèque d’objets Microsoft Excel ». Cliquez sur « Outils » > « Références », puis activez-les dans la boîte de dialogue qui s’affiche.
5. Ensuite, vous devez ouvrir un module inutilisé, dans lequel vous devez copier le code VBA ci-dessous dans ce module.

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportAllHyperlinksInMultipleEmailsToExcel()
    Dim objSelection As Selection
    Dim objMail As MailItem
    Dim objMailDocument As Document
    Dim objHyperlink As Hyperlink
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkbook = objExcelApp.Workbooks.Add
       Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
       objExcelApp.Visible = True
       objExcelWorkbook.Activate
 
       With objExcelWorksheet
            .Cells(1, 1) = "No."
            .Cells(1, 2) = "Displaying Text"
            .Cells(1, 3) = "Address"
            .Cells(1, 4) = "Source Mail"
      End With
 
      On Error Resume Next
      i = 0
      For Each objMail In objSelection
          objMail.Display
          Set objMailDocument = objMail.GetInspector.WordEditor
          If objMailDocument.Hyperlinks.Count > 0 Then
             For Each objHyperlink In objMailDocument.Hyperlinks
                 If InStr(objHyperlink.Address, "www.") > 0 Then
                    i = i + 1
                    Call ExportToExcel(i, objMail, objHyperlink)
                 End If
             Next
          End If
          objMail.Close olDiscard
      Next
 
      objExcelWorksheet.Columns("A:D").AutoFit
    End If
End Sub

Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
    Dim nLastRow As Integer
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    objExcelWorksheet.Range("A" & nLastRow) = n
    objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
    objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
    objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub

6. Après cela, vous pouvez quitter la fenêtre actuelle de l'éditeur VBA.
7. Accédez ultérieurement aux "Options Outlook" pour personnaliser la barre d'outils d'accès rapide afin d'ajouter la macro nouvellement ajoutée à la barre d'outils d'accès rapide.
8. Enfin, vous pouvez prendre une photo :

• Tout d'abord, dans la liste des e-mails, sélectionnez les e-mails dont vous souhaitez extraire les hyperliens.
• Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
• Une fois la macro terminée, vous obtiendrez un fichier Excel, comme l'image ci-dessous :

Résoudre les problèmes Outlook inattendus

Des problèmes avec Outlook peuvent survenir de temps à autre sans prévenir. Cependant, pour les erreurs mineures, Outlook peut généralement se rétablir par un simple redémarrage. outil de réparation de boîte de réception. Mais si vous rencontrez des problèmes graves, les moyens internes ne feront aucun effet. À ce stade, votre dernier recours est certainement un outil plus fiable et plus robuste, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris mdf corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com