How do you assign an outlook subfolder (under "inbox") to an object 1

[Pack10]

I'm working with an outlook group mailbox, no problem reading in emails from the inbox....but I now want to move them to another folder under the inbox after I am done processing....
I can't get the syntax correct -- here is my code that assigns the inbox fine...


Set MySPBAVInbox = objNS.Folders("Mailbox - SPB Verification").Folders("Inbox").Items

 

[lameid]

I think I wrote this for use with Outlook 98... so you might want to consider late binding over early...

Function moveMailItemDestination(ByVal OutDestFolder As Outlook.MAPIFolder, ByVal Outmailitem As Outlook.MailItem) As Boolean
On Error GoTo moveMailItemDestination_err
    moveMailItemDestination = False
    Outmailitem.Move OutDestFolder
    moveMailItemDestination = True
    
moveMailItemDestination_exit:
    Exit Function
moveMailItemDestination_err:
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "moveMailItemDestination"
    Resume moveMailItemDestination_exit
End Function

To get your subfolder...

Set MySPBAVInbox = objNS.Folders("Mailbox - SPB Verification").Folders("Inbox").Folders("SubFolderName")

 

[Pack10]

Thank you I can't wait to try out the code

 

[Pack10]

Worked like a charm. Perfect. I can't thank you enough.

 

[Pack10]

lameid ... you have helped me a few times now, thank you sooooo much.