Outlook'tan gelen maıl listesi indirmek

[baydeniro]

Merhaba arkadaşlar. Linkteki dosyada OUTLOOK Gelen Kutusundaki mailleri listelemektedir. Ayrıca kodlar aşağıda bulunmaktadır. Acaba koda FİLTRE eklemek mümkün mü ? Örneğin; 01.01.2016 dan sonrası gibi, şı kişiden gelen, konusu .................. olan gibi.

http://www.mediafire.com/download/n4cd425ncno41cz/SORU_3.xlsm

Sub GetFromInbox()
Const olFolderInbox = 6
Dim olApp As Object, olNs As Object
Dim oRootFldr As Object
Dim lCalcMode As Long

Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set oRootFldr = olNs.GetDefaultFolder(olFolderInbox) '.Folders(InputBox("Maillerin bulunduğu klasörü giriniz", "BDD"))
Set oWS = ActiveSheet

x = Date
lRow = 2
lCalcMode = Application.Calculation
Application.Calculation = xlCalculationManual
'Application.ScreenUpdating = False
GetFromFolder oRootFldr
' Application.ScreenUpdating = True
Application.Calculation = lCalcMode

Set oWS = Nothing
Set oRootFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub

Private Sub GetFromFolder(oFldr As Object)
Dim oItem As Object, oSubFldr As Object

For Each oItem In oFldr.Items
Range("g1").Value = lRow
If TypeName(oItem) = "MailItem" Then
With oItem
' If .Subject = "Is Goremezlik Raporu" Then
oWS.Cells(lRow, 1).Value = .SenderName
oWS.Cells(lRow, 2).Value = .to
oWS.Cells(lRow, 3).Value = .cc
oWS.Cells(lRow, 4).Value = .Subject
oWS.Cells(lRow, 5).Value = .ReceivedTime
oWS.Cells(lRow, 6).Value = .body
lRow = lRow + 1
' If lRow = 10 Then Exit Sub
' End If
End With
End If
Next

' Recurse all Subfolders
For Each oSubFldr In oFldr.Folders
GetFromFolder oSubFldr
Next
End Sub

 

[baydeniro]

Merhaba arkadaşlar. Linkteki dosyada OUTLOOK Gelen Kutusundaki mailleri listelemektedir. Ayrıca kodlar aşağıda bulunmaktadır. Acaba koda FİLTRE eklemek mümkün mü ? Örneğin; 01.01.2016 dan sonrası gibi, şı kişiden gelen, konusu .................. olan gibi.

 

[baydeniro]

Merhaba arkadaşlar. Linkteki dosyada OUTLOOK Gelen Kutusundaki mailleri listelemektedir. Ayrıca kodlar aşağıda bulunmaktadır. Acaba koda FİLTRE eklemek mümkün mü ? Örneğin; 01.01.2016 dan sonrası gibi, şı kişiden gelen, konusu .................. olan gibi.

 

[baydeniro]

Merhaba arkadaşlar. Linkteki dosyada OUTLOOK Gelen Kutusundaki mailleri listelemektedir. Ayrıca kodlar aşağıda bulunmaktadır. Acaba koda FİLTRE eklemek mümkün mü ? Örneğin; 01.01.2016 dan sonrası gibi, şu kişiden gelen, konusu .................. olan gibi.

 

[baydeniro]

Merhaba arkadaşlar. Linkteki dosyada OUTLOOK Gelen Kutusundaki mailleri listelemektedir. Ayrıca kodlar aşağıda bulunmaktadır. Acaba koda FİLTRE eklemek mümkün mü ? Örneğin; 01.01.2016 dan sonrası gibi, şu kişiden gelen, konusu .................. olan gibi.