deleting outlook items from excel vba

[Premanshu]

Hi,

I have a code which can delete mail items from outlook express from inbox folder if a certain mail has a particular subject line.

My problem is when i try to run this same code for deleting mails from the deleted items folder making the neccessary change in the macro i get an error.

Can anyone please help on this:-

the code is as below

Sub DeleteMail()
Dim out_app As Outlook.Application
Dim folders As Outlook.Namespace
Dim myfolder As Outlook.MAPIFolder
Dim mails_itm As MailItem


Set start_fm = Range("a1")
Set out_app = New Outlook.Application
Set folders = out_app.GetNamespace("mapi")
Set myfolder = folders.GetDefaultFolder(olFolderInbox)


'''''this below line i'll use when i'll try to delete mail from deleted items
'Set myfolder = folders.GetDefaultFolder(olFolderDeletedItems)



For Each mails_itm In myfolder.Items
If mails_itm.Subject = "target" Then
mails_itm.Delete
End If
Next mails_itm

End Sub

many thanks in advance

Regards,
Premanshu

 

[Akashwani]

Hi Premanshu,

Take a look here....

http://www.outlookcode.com/forums.aspx

http://www.codeforexcelandoutlook.com/

Good luck.

ak

 

[Premanshu]

thank you so much Akashwani.....
this is really a great help.


Regards,
Premanshu.

 

[Michael M]

Premanshu
Try this code

Sub RemoveAllItemsAndFoldersInDeletedItems()
    Dim oDeletedItems As Outlook.Folder
    Dim oFolders As Outlook.Folders
    Dim oItems As Outlook.Items
    Dim i As Long
    'Obtain a reference to deleted items folder
    Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems)
    Set oItems = oDeletedItems.Items
    For i = oItems.Count To 1 Step -1
        oItems.Item(i).Delete
    Next
    Set oFolders = oDeletedItems.Folders
    For i = oFolders.Count To 1 Step -1
        oFolders.Item(i).Delete
    Next
End Sub

found at
http://msdn.microsoft.com/en-us/library/bb960906(office.12).aspx

 

[Premanshu]

Hey Michael

i think this is the exact thing i was looking for...an ultimate solution for the issue i was facing.

Thank you sooooo very much for the help..

Regards,
Premanshu.