Soru Mail Silmek

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kod ile Outlook gelen kutusunda Hüseyin den gelen maillleri silme işlemi yapıyor. Ben bu kodun Konu kısmına göre de silme işlemi yapabilir miyim. Örneğin Konu Kısmında Araçlar** içeren veya tam konu kısmını yazdığımda silme işlemi yapabilirmiyim. Aynı şekilde Bu işlemi sadece gelen kutusunda değilde gelen kutusu ve altı klasörlerinde de arama yapılması mümkün mü acaba. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.

Sub Mail_Silme()


Dim ol As Outlook.Application

Dim olNs As Outlook.Namespace
Dim olinbox As Outlook.MAPIFolder
Dim olItem As Object


On Error Resume Next

Set ol = Outlook.Application
Set olNs = ol.GetNamespace("MAPI")
Set olinbox = olNs.GetDefaultFolder(olFolderInbox)

For Each olItem In olinbox.Items

If olItem.Class = olMail Then
    
    
   If InStr(1, olItem.Sender, "Hüseyin") > 0 Then   '   Maili atan kişi adı yazılır
  
    If Err.Number <> 0 Then
    
        Err.Clear
        Else
  
   Set olItem = olItem.Move(Session.GetDefaultFolder(olFolderDeletedItems))
            olItem.Delete
            
            End If
            End If
  
                
            End If
            Next
            
            Set olItem = Nothing
            Set olinbox = Nothing
            Set olNs = Nothing
            
          
    End Sub