Bir veya daha fazla e-postadaki tüm bağlantıları ayıklamanız gerektiğinde, bunları tek tek kopyalamak mantıksızdır. Bu yazıda, birçok e-postadaki tüm bağlantıları Excel'e hızlı bir şekilde aktarmanın bir yöntemini öğreteceğiz.
Gönderilen tüm e-postalarınızdaki köprüleri günlüğe kaydetmek gibi bazı nedenlerle, köprüleri çıkarmanız gerekir. Hiç şüphe yok ki, bunları manuel olarak ayıklamak ve kopyalamak tavsiye edilmez. VBA kullanmak gibi çok daha akıllı bir yaklaşımı özlemelisiniz. Burada size, birçok e-postadaki tüm köprüleri kolay bir tıklamayla Excel'e aktarabilen böyle bir VBA kodunu paylaşacağız.
Birden Çok E-postadaki Tüm Köprüleri Excel'e Aktar
- Öncelikle Outlook programınızı normal şekilde başlatın.
- Ardından, Outlook penceresinde “Alt + F11” tuş düğmelerine basmanız gerekir.
- Hemen, Outlook VBA düzenleyicisine erişebileceksiniz.
- Ardından, "Microsoft Word Nesne Kitaplığı" ve "Microsoft Excel Nesne Kitaplığı"nı etkinleştirmeniz gerekir. "Araçlar" > "Referanslar" seçeneğine tıklayın ve açılan iletişim kutusunda bunları etkinleştirin.
- Ardından, aşağıdaki VBA kodunu bu modüle kopyalamanız gereken kullanılmayan bir modülü açmanız gerekir.
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, mevcut VBA editör penceresinden çıkabilirsiniz.
- Daha sonra, yeni eklenen makroyu Hızlı Erişim Araç Çubuğuna eklemek üzere Hızlı Erişim Araç Çubuğunu özelleştirmek için "Outlook Seçenekleri"ne erişin.
- Sonunda bir çekim yapabilirsiniz:
- Öncelikle, e-posta listesinde köprülerini çıkarmak istediğiniz e-postaları seçin.
- Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayın.
- Makro bittiğinde, aşağıdaki resimdeki gibi bir Excel dosyası alacaksınız:
Beklenmeyen Outlook Sorunlarını Düzeltin
Outlook sorunları zaman zaman, hiçbir belirti vermeden ortaya çıkabilir. Ancak, küçük hatalar söz konusu olduğunda, Outlook basit bir yeniden başlatma veya ayarların güncellenmesiyle düzelebilir. gelen kutusu onarım aracı. Ancak bazı ciddi sıkıntılarla karşılaşılırsa, içsel yollar etki etmeyecektir. Bu noktada, son çareniz kesinlikle daha saygın ve sağlam bir araçtır. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com