Outlook 2003 de email silme konusu.

[Kemal Demir]

İyi akşamlar arkadaşlar,

Arayuz olarak excel kullanılarak Outlook içerisinde mevcut olan "Gelen Kutusu" klasorü içerisindeki maillerde excel dosyasında userformdaki listbox içerisindeki emailleri önemsizler klasorune tasımadan silmek istiyorum.

Ek'teki dosya üzerinden gidebilirmiyiz.

Teşekkurler.

 

[hamitcan]

"to delete outlook mail in vba" şeklinde google da bir aratın. Ben bir şeyler buldum.Sizin de işinize yarayabilir.

 

[Kemal Demir]

İyi geceler hamit bey,

Web üzerinden buldugunuz orneklerı paylaşabilirmisiniz.Mevcut örnek üzerinden gidebilirmiyiz.

Yada ek'teki örnek üzerinden ılerlememiz mümkünmüdür.

Teşekkurler.

 

[hamitcan]

Açıkcası konuyla ilgili fazla bilgim yok. Sadece, size yardımcı olması için biraz araştırdım. Siz de bakın. Ben de bulduğum örnekleri eklerim.

 

[Kemal Demir]

Teşekkurler hamit bey,

Bende bakıyorum tekrar teşekkurler.Buldugumda paylaşırım.

Buldum Junkmail(onemsizleri) in içini boşaltan kodlar.Aramak lazım biraz daha bakacagım .

Public Sub EmptyJunkEmailFolder()

    Dim outApp As Outlook.Application
    Dim junkFolder As Outlook.MAPIFolder
    Dim junkItem, deleteItem As Object
    Dim entryID As String
    
    Set outApp = CreateObject("outlook.application")
    Set junkFolder = outApp.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk)
    
    For Each junkItem In junkFolder.Items
        entryID = junkItem.entryID  ' Store item entry id
        junkItem.Delete             ' Delete from junk mail folder
               
        ' To permanently delete item find and delete from deleted items
        Set deleteItem = outApp.Session.GetItemFromID(entryID)
        deleteItem.Delete
    Next
    
    Set junkItem = Nothing
    Set deleteItem = Nothing
    Set junkFolder = Nothing
    Set outApp = Nothing
    
End Sub