Moving mail from one folder to the other(Outlook)

[Comora]

Hello,
Is there a way to move(not copy) a specific mail from one custom folder to another customfolder?
Does someone know? Any input would be great!

[Comora]

Now, where are the proffesionals here? Can anybody help me out?

[Ishamel]

This code will move all of the mail items from the Inbox to the Personal Mail box where the Sender Name is 'Bob'

Set myInbox = myOlApp.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Bob'")
    
While TypeName(myItem) <> "Nothing"
    myItem.Move myDestFolder
    Set myItem = myItems.FindNext
Wend

[Comora]

Thanks again Ishamel.