Soru Makro ile Outlook Alt Klasörden Mailleri Excele Aktarma

[mortifera]

Merhaba,

Gelen kutusu altında alt klasör adı diyelim elma olsun. Bu alt klasördeki mailleri, kimden ve tarih bilgisi ile nasıl excele aktarabilirim?

Teşekkür ederim.

 

[mortifera]

Desteğiniz çok kıymetli. Teşekkür ederim.

 

[RBozkurt]

Deneyiniz,

Sub MailListele()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olMailItem As Object
    Dim selectedFolder As Object
    Dim row As Long
    
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set selectedFolder = olNamespace.PickFolder
    
    For Each olFolder In selectedFolder.Folders
        row = row + 1
        Cells(row, 1).Value = olFolder.Name
    Next olFolder
    
    For Each olMailItem In selectedFolder.Items
        row = row + 1
        Cells(row, 2).Value = olMailItem.Subject
        Cells(row, 3).Value = olMailItem.SenderName
        Cells(row, 4).Value = olMailItem.SenderEmailAddress
        Cells(row, 5).Value = olMailItem.ReceivedTime
    Next olMailItem
    
    Set olFolder = Nothing
    Set olMailItem = Nothing
    Set selectedFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

 

[mortifera]

Cevabınız tam olarak kör istedi bir göz allah verdi iki göz gibi oldu. Çok teşekkür ederim ^^

 

[RBozkurt]

Cevabınız tam olarak kör istedi bir göz allah verdi iki göz gibi oldu. Çok teşekkür ederim ^^

İyi çalışmalar.