Belirli Bir Göndericiden Gelen Tüm E-postaları Excel Dosyasına Aktarmanın 2 Yöntemi

Belirli bir göndericiden gelen e-postaları hızlı bir şekilde Excel dosyasına aktarmak istiyorsanız, bu makalede açıklanan aşağıdaki 2 yöntemi kullanabilirsiniz.

Özet oluşturmak gibi bazı nedenlerle, belirli göndericiden gelen e-postalar gibi belirli e-postaları Excel dosyasına aktarmanız gerekebilir. Dışa aktarma söz konusu olduğunda, çoğu kullanıcının aklına ilk gelen özellik yerleşik "dışa aktar" olacaktır. Ancak dürüst olmak gerekirse, Outlook VBA kullanmak geleneksel "Dışa Aktar" özelliğinden çok daha kullanışlı olacaktır. Şimdi bu iki yöntemi ayrıntılı olarak inceleyeceğiz.

Yöntem 1: “Dışa Aktar” Özelliğini Kullanın

1. En başta, Outlook uygulamanızı başlatın.
2. Ardından, "Arama Araçları" şeridini etkinleştirecek olan e-posta listesindeki arama kutusuna tıklayın.
3. Şeritteki "Kimden" düğmesini tıklayın.
4. Ardından, "gönderen adı" karakterini belirli gönderenin adıyla değiştirin.
5. Bundan sonra, listede yalnızca belirli göndericiden gelen e-postalar gösterilir. Şimdi hepsini seçmek için “Ctrl + A” tuşlarına basın.
6. Ardından sağ tıklayın ve “Taşı” > “Diğer Klasör”ü seçin.
7. Ardından, açılan "Öğeleri Taşı" iletişim kutusunda yeni bir klasör oluşturun ve belirli e-postaları taşımak için bu klasörü seçin.
8. Bundan sonra, “Dosya” > “Aç” > “İçe Aktar” seçeneğine gidebilirsiniz.
9. Ardından aşağıdaki iletişim kutusunda 'Dosyaya aktar' > 'İleri' > 'Microsoft Excel 97 – 2003' > 'İleri'yi seçin.
10. Ardından, belirli gönderenden gelen e-postaları depolayan belirli klasörü seçin ve "İleri" ye basın.
11. Ardından, bir Excel dosyası seçmek veya yeni bir Excel dosyası oluşturmak için "gözat" düğmesine tıklayın.
12. Daha sonra, "İleri" > "Bitir"i tıklayın.
13. Son olarak, Outlook dışa aktarma için çalışacaktır. Dışa aktarma işlemi tamamlandıktan sonra bu Excel dosyasını bulup açabilirsiniz.

Yöntem 2: Outlook VBA'yı kullanın

1. İlk etapta “Alt + F11” tuşlarına basın.
2. Ardından açılan pencerede yeni bir modül açın ve aşağıdaki kodları içine kopyalayın.

Sub ExportEmailsfromSpecificSender()
    Dim objEmails, objSpecificEmails As Outlook.Items
    Dim objItem As Object
    Dim strSpecificSender As String
    Dim strFilter As String
    Dim objExcelApplication As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
    Dim strFilePath As String
 
    On Error Resume Next
    'Get the emails from a specific sender
    Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items
    strSpecificSender = InputBox("Input the name of the specific sender:", "Specify Sender")
    strFilter = "[From] = '" & strSpecificSender & "'"
    Set objSpecificEmails = objEmails.Restrict(strFilter)
 
    Set objExcelApplication = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApplication.Workbooks.Add
 
    'Export the specific emails to worksheet
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Received"
         .Cells(1, 3) = "Body"
         .Cells(1, 4) = "Categories"
         .Cells(1, 5) = "Size"
    End With
 
    nRow = 2
    For Each objItem In objSpecificEmails
        With objExcelWorksheet
             .Name = "From " & strSpecificSender
             .Cells(nRow, 1) = objItem.Subject
             .Cells(nRow, 2) = objItem.ReceivedTime
             .Cells(nRow, 3) = objItem.Body
             .Cells(nRow, 4) = objItem.Categories
             .Cells(nRow, 5) = objItem.Size
        End With
        nRow = nRow + 1
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit

    'Save the Excel workbook
    strFilePath = "C:\Report\Emails from " & strSpecificSender & ".xlsx"
    objExcelWorkbook.Close True, strFilePath
 
    'Notify you of the export complete
    MsgBox ("Export Complete!")
End Sub

3. Ardından, araç çubuğundaki "Çalıştır" simgesini tıklayın.
4. Bundan sonra, belirli gönderenin adını girmeniz istenecektir.
5. Daha sonra, "Tamam" ı tıklayın.
6. Outlook, belirtilen göndericiden gelen e-postaları anında dışa aktarmaya başlayacak ve Excel dosyasını önceden belirlenmiş hedef klasöre kaydedecektir.
7. Dışa aktarma tamamlandıktan sonra, açmak ve kontrol etmek için hedef klasöre gidebilirsiniz.

Outlook Sorunlarından Esnek Bir Şekilde Kurtulun

Outlook'un çeşitli hatalara açık olması nedeniyle, güçlü bir Outlook düzeltmesi yakınlardaki alet, örneğin DataNumen Outlook Repair. Bu durumda, küçük hataları çözmek için Scanpst.exe'yi kullanmanız yeterlidir. Ancak ciddi sorunlar için daha sağlam araca başvurabilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. hasarlı SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com