January 7th 09, 08:50 PM
posted to microsoft.public.outlook.program_vba
|
|
|
Question about CDO 1.21
Got it working, thanks for your help.
"Ken Slovak - [MVP - Outlook]" wrote:
This has nothing to do with CDO and everything to do with using a For...Each
loop. That and a count up For loop establish an index counter into the
collection of items and every time you delete an item it messes with the
index. Usually that results in deleting 1/2 of the items within the loop.
Use a count down For loop (Step -1) or a Do loop that checks for count of
items instead and it should work as expected.
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm
"Bob Smith" wrote in message
...
I have a real simple function that all it does is Delete messages older
than
X days. I'm not sure why, but if I run it once it deletes some of the
messages but not all. With 1000's of messages in the folder it may take 3
or
4 runs for it to finally delete all the messages over X days. Is there
some
problem with CDO where it can only process a small number of messages at
one
time?
Dim NumDaysToDelete
NumDaysToDelete = 3
CleanMail(NumDaysToDelete)
Sub CleanMail
Dim oSession
Set oSession = CreateObject("MAPI.Session")
strProfileInfo = "cgyex001" & vblf & "ecntrckm"
oSession.Logon "", "", False, True, 0, True, strProfileInfo
Const CdoDefaultFolderInbox = 1 ' uncomment for VBScript code
Dim oFolder
Set oFolder = oSession.GetDefaultFolder(CdoDefaultFolderInbox)
Dim oMessages
Set oMessages = oFolder.Messages
For Each oMessage In oMessages
If DateDiff("d",oMessage.TimeReceived,now) = NumDaysToDelete Then
oMessage.Delete
End if
Next
End Sub
|