Does it work if you access fewer items at a time in the loop? Try calling
the loop with a counter variable that does 100 items at a time and then
calling it again until all the items in the folder are processed.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"news.microsoft.com" wrote in message
...
Hi all

I want to exctract from a specific folder items that math my request but
my outlook hang

if companies = "my wated companies" than put the object in body mail

myfolder contain over 9000 task

here is may code

Sub CommandButtonS1_click
Set myItem2 = Application.CreateItem(0)
Set Rep2Base = Application.GetNamespace("MAPI").Folders("publics
folders").Folders("all public folders").Folders("myfolder")
MyIndex=0
total=Rep2Base.items.count
do while myindex Total
MonIndex=MonIndex+1
Set myItem = Rep2Base.Items(MonIndex)
if MyItem.companies = "CompaniesABC" then
MyItem2.body = MyItem2.body & chr(13)
MyItem2.body = MyItem2.body & myItem.companies & ";" & myItem.mileage &
";" & myItem.Subject & ";" & myItem.UserProperties("Custom1") & ";" &
myItem.UserProperties("Custom2") & ";" & myItem.UserProperties("Custom3")
end if
loop
MyItem2.display
end sub


Tks