Cum să exportați rapid toate hyperlinkurile din mai multe e-mailuri Outlook în Excel

Când trebuie să extrageți toate hyperlinkurile dintr-unul sau mai multe e-mailuri, este o prostie să le copiați unul câte unul. Această postare vă va învăța o metodă de a exporta rapid toate hyperlinkurile din mai multe e-mailuri în Excel.

Din anumite motive, cum ar fi înregistrarea hyperlinkurilor din toate e-mailurile trimise, va trebui să extrageți hyperlinkurile. Fără îndoială, nu este recomandabil să le extragi și să le copiați manual. Trebuie să tânjiți după o abordare mult mai inteligentă, cum ar fi utilizarea VBA. Aici vă vom împărtăși o astfel de bucată de cod VBA, care poate exporta toate hyperlinkurile din multe e-mailuri în Excel printr-un clic ușor.

Exportați toate hyperlinkurile din mai multe e-mailuri în Excel

1. Pentru început, lansați programul Outlook ca de obicei.
2. Apoi, în fereastra Outlook, trebuie să apăsați butoanele tastei „Alt + F11”.
3. Imediat, veți avea acces la editorul Outlook VBA.
4. Ulterior, trebuie să activați „Microsoft Word Object Library”, precum și „Microsoft Excel Object Library”. Faceți clic pe „Tools” > „References” și apoi activați-le în caseta de dialog pop-up.
5. Apoi, trebuie să deschideți un modul neutilizat, în care trebuie să copiați codul VBA de mai jos în acest modul.

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. După aceea, puteți ieși din fereastra actuală a editorului VBA.
7. Accesați ulterior „Opțiuni Outlook” pentru a personaliza Bara de instrumente Acces rapid pentru a adăuga macrocomandă nou adăugată la Bara de instrumente Acces rapid.
8. În sfârșit, puteți face o fotografie:

• În primul rând, în lista de e-mailuri, selectați e-mailurile ale căror hyperlinkuri doriți să le extrageți.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Când macro-ul se termină, veți obține un fișier Excel, ca în imaginea de mai jos:

Remediați problemele neașteptate ale Outlook

Problemele cu Outlook pot apărea din când în când, fără niciun semn prevestitor. Dar, în ceea ce privește erorile minore, Outlook se poate recupera printr-o simplă repornire sau prin... instrument de reparare inbox. Dar dacă întâmpinați unele probleme grave, mijloacele interne nu vor face efecte. În acest moment, ultima soluție este cu siguranță un instrument mai reputat și mai robust, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com