Kiedy potrzebujesz wyodrębnić wszystkie hiperłącza z jednego lub kilku e-maili, kopiowanie ich pojedynczo jest nierozsądne. Ten post nauczy Cię, jak szybko wyeksportować wszystkie hiperłącza z wielu e-maili do Excela.
Z pewnych powodów, takich jak rejestrowanie hiperłączy we wszystkich wysłanych e-mailach, musisz je wyodrębnić. Bez wątpienia niewskazane jest ich ręczne rozpakowywanie i kopiowanie. Musisz tęsknić za znacznie sprytniejszym podejściem, takim jak używanie VBA. Tutaj udostępnimy Ci taki fragment kodu VBA, który jednym kliknięciem jest w stanie wyeksportować wszystkie hiperłącza w wielu e-mailach do Excela.
Eksportuj wszystkie hiperłącza w wielu wiadomościach e-mail do programu Excel
- Na początek uruchom normalnie program Outlook.
- Następnie w oknie Outlooka musisz nacisnąć klawisze „Alt + F11”.
- Od razu uzyskasz dostęp do edytora Outlook VBA.
- Następnie należy włączyć „Bibliotekę obiektów Microsoft Word” oraz „Bibliotekę obiektów Microsoft Excel”. Kliknij „Narzędzia” > „Odwołania”, a następnie włącz je w wyskakującym oknie dialogowym.
- Następnie musisz otworzyć nieużywany moduł, w którym musisz skopiować poniższy kod VBA do tego modułu.
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
- Następnie możesz wyjść z bieżącego okna edytora VBA.
- Później uzyskaj dostęp do "Opcji programu Outlook", aby dostosować pasek narzędzi szybkiego dostępu, aby dodać nowo dodane makro do paska narzędzi szybkiego dostępu.
- Wreszcie możesz zrobić zdjęcie:
- Po pierwsze, na liście e-mail wybierz e-maile, których hiperłącza chcesz wyodrębnić.
- Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
- Po zakończeniu makro otrzymasz plik Excel, taki jak na poniższym obrazku:
Napraw nieoczekiwane problemy z programem Outlook
Problemy z Outlookiem mogą pojawiać się od czasu do czasu bez żadnych oznak. Jednak w przypadku drobnych błędów, Outlook może zostać przywrócony przez proste ponowne uruchomienie lub narzędzie do naprawy skrzynki odbiorczej. Ale jeśli napotkasz poważne problemy, wewnętrzne środki nie przyniosą efektów. W tym momencie ostatnią deską ratunku jest zdecydowanie bardziej renomowane i solidne narzędzie, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com