Bir və ya daha çox e-poçtdakı bütün hiperlinkləri çıxarmaq lazım olduqda, onları bir-bir kopyalamaq axmaqlıqdır. Bu yazı sizə bir çox e-poçtdakı bütün hiperlinkləri Excel-ə tez bir zamanda ixrac etməyin bir üsulunu öyrədəcək.
Bəzi səbəblərə görə, məsələn, bütün göndərdiyiniz e-məktublardakı hiperlinkləri daxil etmək, siz hiperlinkləri çıxartmalısınız. Şübhəsiz ki, onları əl ilə çıxarmaq və kopyalamaq məsləhət görülmür. VBA-dan istifadə kimi daha ağıllı bir yanaşmaya can atmalısınız. Burada bir çox e-poçtdakı bütün hiperlinkləri asan bir klik vasitəsilə Excel-ə ixrac edə bilən VBA kodunun belə bir hissəsini sizə təqdim edəcəyik.
Birdən çox e-poçtdakı bütün hiperlinkləri Excel-ə ixrac edin
- Başlamaq üçün Outlook proqramınızı normal olaraq işə salın.
- Sonra, Outlook pəncərəsində "Alt + F11" düymələrini vurmalısınız.
- Dərhal Outlook VBA redaktoruna giriş əldə edəcəksiniz.
- Daha sonra, "Microsoft Word Obyekt Kitabxanası" və "Microsoft Excel Obyekt Kitabxanası"nı aktivləşdirməlisiniz. "Alətlər" > "İstinadlar" düyməsini basın və sonra açılan informasiya qutusunda onları aktivləşdirin.
- Sonra, istifadə olunmamış modulu açmalısınız, burada aşağıdakı VBA kodunu bu modula köçürməlisiniz.
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
- Bundan sonra, cari VBA redaktoru pəncərəsindən çıxa bilərsiniz.
- Daha sonra Tez Giriş Alətlər Panelinə yeni əlavə edilmiş makro əlavə etmək üçün Tez Giriş Alətlər Panelini fərdiləşdirmək üçün "Outlook Seçimləri"nə daxil olun.
- Nəhayət, bir çəkiliş edə bilərsiniz:
- Əvvəlcə e-poçt siyahısında hiperlinkləri çıxarmaq istədiyiniz e-poçtları seçin.
- Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
- Makro tamamlandıqda, aşağıdakı şəkildəki kimi bir Excel faylı alacaqsınız:
Gözlənilməz Outlook Problemlərini həll edin
Outlook problemləri zaman-zaman heç bir əlamət olmadan baş verə bilər. Lakin kiçik səhvlərə gəldikdə, Outlook sadə bir yenidən başlatma və ya onunla bərpa edilə bilər. inbox təmir aləti. Ancaq bəzi ciddi çətinliklərlə qarşılaşsanız, daxili vasitələr təsir göstərməyəcəkdir. Bu nöqtədə, son çarəniz mütləq daha nüfuzlu və möhkəm bir vasitədir, məsələn DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com