you;re definetely not using a standard approach :)
i assume you want to retrieve the info of userdefined fields.

try the XrefItem.UserProperties.find("SampleNum") method of the xRefItem
object instead of using the GetInspector.controls().Value method.

and would be lot's faster!

you;re method is even slower that if you'd ask excel to select
each cell and then retrieve the activecell's value, since the getinspector
method involves a lot of screenhandling too!


are all items in the folder of the same olitemtype?
(mailItem / etc..



names of the userproperties may not be exactly the same as the controls...
to be sure of the names..

For a first time scan..
dim xUPS as outlook.userpropeties
dim xUP as outlook.userproperty
dim i as integer

set xUPS = xrefitem.userproperties

For i=1 to xUPS.count
set xUP = xUps(i)
debug.print i;xUp.name;xUp '.Value is default property
Next

Note that although the userproperties is a collection you can only use a
numerical index!. You'll have to use the FIND method for a string index.

Hope this is it.. :)
Suc6



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Dick Kusleika" wrote:

Tony

I don't have an answer for you, but I'll give you something to try.
First, I don't know what ModifiedFormPages are, but I'll assume
they're some sort of customization and the info on there is not
accessible from the UserProperties property of the Item object.

I would guess that all the calls to GetInspector is what's eating the
ram. I wonder if something like this would work

With XRefPage.GetInspector.ModifiedFormPages("Cross Reference")
ActiveCell.offset(x) = .Controls("SampleNum")
ActiveCell.Offset(x,1) = .Controls("Date")
'etc...
End With

Maybe only one GetInspector call will reduce the consumption. If not,
then I'm way off.