hi @cturley I think the issue is in the line Set olDestFldr = objNS.Folders("DFPHouse")
Folder cannot be set in that way. You have to use one of the getFolder methods.
Here's some sample code I wrote to move one item from default folder to customfolderSub outlooktest() Dim olApp As New Outlook.Application, objNS As Outlook.Namespace, items As Outlook.items, item As Outlook.MailItem, singlefolder As Outlook.Folder, testfolders As Outlook.Folders Dim destFolder As Outlook.Folder, destfolderId As String Set objNS = olApp.GetNamespace("MAPI") Set items = objNS.GetDefaultFolder(olFolderInbox).items Set item = items.GetFirst destfolderId = getfolderId("customfolder") Set destFolder = objNS.GetFolderFromID(destfolderId) item.Move destFolder End Sub Function getfolderId(foldername) Dim olApp As New Outlook.Application, objNS As Outlook.Namespace, mainfolder As Outlook.Folder, subfolders As Outlook.Folders, singlefolder As Outlook.Folder Set objNS = olApp.GetNamespace("MAPI") Set mainfolder = objNS.Folders.GetFirst Set subfolders = mainfolder.Folders For Each singlefolder In subfolders If singlefolder.name = foldername Then getfolderId = singlefolder.EntryID End If Next End Function
Usually custom folders get created inside the main folder so I wrote above function to look for subfolders in the main folder. Modify it if your folder hierarchy is different. Let me know if that helps.