Outlook İçinde Otomatik Koşullu Mail Taşıma-Arşivleme

[baysevimli]

Değerli Arkadaşlar Merhaba,

Bir makro yardımı ile Outlook'umdaki Gelen Kutusunun altındaki "E-Rapor" isimli klasörümdeki tüm mailleri hergün saat 17:00'de resimdeki ok ile gösterdiğim "E-Rapor" klasörüne otomatik taşımasını istiyorum. Nasıl yapabilirim ? İlginiz için teşekkür ederim.

 

[baysevimli]

Yardımcı olabilecek kimse yok mu ?

 

[hamitcan]

Taşıma işini yaptım ama otomatiğe bağlama işini düşünüyorum. Outlook olunca işler biraz farklı.

Sub MoveItems()
    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("deneme1")
    Set myItems = myInbox.Items
    Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("deneme2")

 Set myItem = myItems.Find("[SenderName] <> 'x'")
      While TypeName(myItem) <> "Nothing"
 
        myItem.Move myDestFolder
        Set myItem = myItems.FindNext
    Wend
  
End Sub