Outlook Code

[Guest]

Hi

I have copied the code below. However I cannot seem to get it wo work, what
do I need to change where it sys Personal Folders as this is the bit that
seems not to work. I have both my own folder in outlook and a public one.

Set TargetFolderItems = ns.Folders.Item( _
"Personal Folders").Folders.Item("Temp").Items

 

[Michael Bauer [MVP - Outlook]]

Split it to see what in particular raises the error:

Dim F as Outlook.Mapifolder
Dim Items as Outlook.Items

Set F=ns.Folders.Item("Personal Folders")
Set F=F.Folders.Item("Temp")
Set Items=F.Items

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>


Am Wed, 27 Jun 2007 01:20:02 -0700 schrieb Duncan: