Als je alle hyperlinks in één of meerdere e-mails wilt extraheren, is het niet handig om ze één voor één te kopiëren. In dit artikel leer je een methode om snel alle hyperlinks in meerdere e-mails naar Excel te exporteren.
Om bepaalde redenen, zoals het registreren van de hyperlinks in al uw verzonden e-mails, moet u de hyperlinks extraheren. Het is zonder enige twijfel af te raden om ze handmatig uit te pakken en te kopiëren. Je moet verlangen naar een veel slimmere aanpak, zoals het gebruik van VBA. Hier zullen we zo'n stukje VBA-code met u delen, waarmee u met een eenvoudige klik alle hyperlinks in veel e-mails naar Excel kunt exporteren.
Exporteer alle hyperlinks in meerdere e-mails naar Excel
- Begin door uw Outlook-programma zoals gebruikelijk te starten.
- Vervolgens moet u in het Outlook-venster op de toetsknoppen "Alt + F11" drukken.
- U krijgt meteen toegang tot de Outlook VBA-editor.
- Vervolgens moet u zowel de 'Microsoft Word-objectbibliotheek' als de 'Microsoft Excel-objectbibliotheek' inschakelen. Klik op 'Extra' > 'Verwijzingen' en schakel ze vervolgens in via het pop-upvenster.
- Vervolgens opent u een ongebruikte module, waarin u onderstaande VBA-code naar deze module kopieert.
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
- Daarna kunt u het huidige VBA-editorvenster afsluiten.
- Ga later naar "Outlook-opties" om de werkbalk Snelle toegang aan te passen en de nieuw toegevoegde macro toe te voegen aan de werkbalk Snelle toegang.
- Eindelijk kun je een foto maken:
- Selecteer eerst in de e-maillijst de e-mails waarvan u de hyperlinks wilt extraheren.
- Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
- Wanneer de macro klaar is, krijg je een Excel-bestand, zoals de afbeelding hieronder:
Los onverwachte Outlook-problemen op
Problemen met Outlook kunnen zich van tijd tot tijd voordoen zonder voorafgaande waarschuwing. Kleine fouten kunnen echter vaak worden verholpen door Outlook opnieuw op te starten of door de instellingen aan te passen. inbox reparatieprogramma. Maar als er ernstige problemen optreden, zullen de interne middelen geen effect sorteren. Op dit punt is uw laatste redmiddel beslist een betrouwbaarder en robuuster hulpmiddel, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com