Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)
-   -   Outlook 2k3 Script: Pb extracting list of items (http://www.outlookbanter.com/outlook-vba/32103-outlook-2k3-script-pb-extracting.html)

news.microsoft.com November 6th 06 11:27 AM

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



Ken Slovak - [MVP - Outlook] November 6th 06 03:24 PM

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



bbnimda November 6th 06 08:54 PM

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





Ken Slovak - [MVP - Outlook] November 6th 06 09:57 PM

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 ???



news.microsoft.com November 7th 06 08:42 AM

Outlook 2k3 Script: Pb extracting list of items
 
Okay

I'll try that

Tks


"Ken Slovak - [MVP - Outlook]" a écrit dans le message
de news: ...
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