Outlook 2003 junk mail macro problem

[Walter349]

Can anyone tell me why the following code won't work?

Sub AddToJunkAndMove(objSel As Selection)
Dim objItem As Object
Dim objNS As NameSpace
Dim objDestFolder As MAPIFolder
Dim myOlApp As Outlook.Application

Set objNS = Application.GetNamespace("MAPI")
Set objDestFolder = objNS.Folders.Item("Mailbox - AAAAA, BBBBB").Folders.Item("Junk mail")

it always fails at the last line saying object could not be found. Yet the Mailbox and folder are correct

 

[BrainB]

Not absolutely certain but try changing the line to :-

Set objDestFolder = objNS.Folders("Mailbox - AAAAA, BBBBB").Folders("Junk mail")

Regards
BrianB
Use CupOfCoffee to speed up all windows applications
================================

 

[Walter349]

Thanks,

But that didn't work, it still comes up with Object not found. Highlighting the 'objDestFolder =' in the editor, shows as "objDestFolder = Nothing"

So it appears that it is not processing the DIM statements, but I cannot find out why.

 

[DeeBeeGee]

A bit of a guess but try

Set objDestFolder = New MAPIFolder

before you try and assign any values to it????