![]() |
Outlook 2k3 Script: Pb extracting list of items
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 |
Outlook 2k3 Script: Pb extracting list of items
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 |
Outlook 2k3 Script: Pb extracting list of items
yes if do it on 2 or 300 items it works with out problem
any idea ??? "Ken Slovak - [MVP - Outlook]" a écrit dans le message de news: ... 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 |
Outlook 2k3 Script: Pb extracting list of items
You're either running into memory leaks or more likely the 256 RPC channel
limit. The only way around that is to reduce your loop size and call the loop code repeatedly from another procedure. Otherwise the internal object variables created in the loop won't get released and you'll have the same problem. When the loop procedure ends the objects are released so you need to call the loop repeatedly. -- 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 "bbnimda" wrote in message ... yes if do it on 2 or 300 items it works with out problem any idea ??? |
All times are GMT +1. The time now is 08:44 AM. |
Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com