Outlook automation problem

[Magnus_Lei]

I am trying to write an automation that will delete the deleted files in the deleted items folder in outlook.....

Here is the code.

Private Sub Command1_Click()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objMail As MailItem

'Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")

'Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderDeletedItems)

'Loop through the folders under the Inbox
For Each objMail In objInbox.Items
objMail.Delete
Next objMail

End Sub

I get a code error when it gets to a certain part in the folder....

Type mismatch - error 13

[filburt1]

On what line?

[Magnus_Lei]

Next objMail

The problem is in the loop......i think

[Magnus_Lei]

Some times it's on the for each statment

[Magnus_Lei]

Figured it out take away Dim objMail As MailItem

and add
Set objMail = objOutlook.CreateItem(olMailItem)

That will take care of it.....My problem now is that it stops for some reason.....

[Magnus_Lei]

Halfway through deleting all of the e-mails it drops out of the loop.....

Is there something wrong with my loop?