Så här exporterar du snabbt alla hyperlänkar i flera Outlook-e-postmeddelanden till Excel

Outlook-lösningar September 29, 2025

När du behöver extrahera alla hyperlänkar i ett eller flera e-postmeddelanden är det dumt att kopiera dem en efter en. Det här inlägget lär dig en metod för att snabbt exportera alla hyperlänkar i många e-postmeddelanden till Excel.

Av vissa anledningar, som att logga in hyperlänkarna i alla dina skickade e-postmeddelanden, måste du extrahera hyperlänkarna. Utan tvivel är det inte tillrådligt att extrahera och kopiera dem manuellt. Du måste längta efter en mycket smartare strategi, som att använda VBA. Här delar vi dig en sådan bit VBA-kod, som kan exportera alla hyperlänkar i många e-postmeddelanden till Excel med ett enkelt klick.

Exportera snabbt alla hyperlänkar i flera Outlook-e-postmeddelanden till Excel

Exportera alla hyperlänkar i flera e-postmeddelanden till Excel

  1. Till att börja med, starta ditt Outlook-program som vanligt.
  2. Sedan, i Outlook-fönstret, måste du trycka på "Alt + F11" -knapparna.
  3. Omedelbart får du tillgång till Outlook VBA-redigeraren.
  4. Därefter måste du aktivera både ”Microsoft Word Object Library” och ”Microsoft Excel Object Library”. Klicka på ”Verktyg” > ”Referenser” och aktivera dem sedan i dialogrutan som visas.
  5. Därefter måste du öppna en oanvänd modul där du måste kopiera VBA-koden nedan till den här modulen.
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

VBA-kod - Exportera alla hyperlänkar i flera Outlook-e-postmeddelanden till Excel

  1. Därefter kan du avsluta det aktuella VBA-redigeringsfönstret.
  2. Senare öppna "Outlook-alternativ" för att anpassa snabbåtkomstverktygsfältet för att lägga till det nyligen tillagda makrot till snabbåtkomstverktygsfältet.
  3. Slutligen kan du ta ett skott:
  • Först och främst, i e-postlistan, välj de e-postmeddelanden vars hyperlänkar du vill extrahera.
  • Klicka sedan på makroknappen i snabbåtkomstverktygsfältet.
  • När makrot är klart får du en Excel-fil, som bilden nedan:Exporterade hyperlänkar i Excel

Åtgärda oväntade Outlook-problem

Problem med Outlook kan uppstå då och då utan några tecken. Men när det gäller små fel kan Outlook återställas genom en enkel omstart eller dess verktyg för reparation av inkorgen. Men om du stöter på några allvarliga problem, kommer de interna medlen inte att påverka. Vid denna tidpunkt är din sista utväg definitivt ett mer ansedd och robust verktyg, till exempel DataNumen Outlook Repair.

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 skadad mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.