Microsoft Outlook email

Outlook Banter (http://www.outlookbanter.com/)

- Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)

- - Outlook Code (http://www.outlookbanter.com/outlook-vba/51334-outlook-code.html)

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

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:

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