Apabila anda perlu mengekstrak semua hiperpautan dalam satu atau lebih e-mel, adalah bodoh untuk menyalinnya satu persatu. Catatan ini akan mengajar anda kaedah untuk mengeksport semua hiperpautan dalam banyak e-mel ke Excel dengan cepat.
Atas sebab-sebab tertentu, seperti mencatat pautan hiperpautan di semua e-mel yang dihantar, anda perlu mengekstrak pautan tersebut. Tanpa keraguan, tidak boleh digali dan disalin secara manual. Anda mesti mengharapkan pendekatan yang lebih bijak, seperti menggunakan VBA. Di sini kami akan berkongsi sekeping kod VBA seperti ini, yang dapat mengeksport semua pautan dalam banyak e-mel ke Excel melalui satu klik mudah.
Eksport Semua Pautan Pautan dalam Pelbagai E-mel ke Excel
- Untuk bermula, lancarkan program Outlook anda seperti biasa.
- Kemudian, di tetingkap Outlook, anda perlu menekan butang "Alt + F11".
- Sekali gus, anda akan mendapat akses ke penyunting Outlook VBA.
- Seterusnya, anda perlu mendayakan “Microsoft Word Object Library” serta “Microsoft Excel Object Library”. Klik “Tools” > “References” dan kemudian dayakannya dalam kotak dialog timbul.
- Seterusnya, anda perlu membuka modul yang tidak digunakan, di mana anda harus menyalin kod VBA di bawah ke dalam modul ini.
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
- Selepas itu, anda boleh keluar dari tetingkap editor VBA semasa.
- Nanti akses "Opsyen Outlook" untuk menyesuaikan Bar Alat Akses Pantas untuk menambahkan makro yang baru ditambahkan ke Bar Alat Akses Pantas.
- Akhirnya anda boleh mengambil gambar:
- Pertama, dalam senarai e-mel, pilih e-mel yang hiperpautan yang ingin anda ekstrak.
- Kemudian, klik pada butang makro di Bar Alat Akses Pantas.
- Apabila makro selesai, anda akan mendapat fail Excel, seperti gambar di bawah:
Selesaikan Masalah Outlook yang Tidak dijangka
Isu Outlook boleh berlaku dari semasa ke semasa tanpa sebarang petanda. Tetapi, dari segi ralat kecil, Outlook boleh dipulihkan dengan memulakan semula yang mudah atau alat pembaikan peti masuk. Tetapi jika menghadapi beberapa masalah yang teruk, kaedah dalaman tidak akan memberi kesan. Pada ketika ini, jalan terakhir anda pasti merupakan alat yang lebih terkenal dan mantap, seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com