Move mails from Inbox to another folder

[rollingzep]

Hi,

I have posted this question in another forum as well,

Move Mails from Inbox to Archive

Hi All, This is a requirement of an existing code. The below code works and saves the attachment and also marks the read mails as Processed. But I need to move these Processed mails from the Inbox to the folder, Archive_Proc. I am trying to Set the folder, objDestfolder as the destination...

www.vbaexpress.com

<p>

This is a requirement of an existing code. The below code works and saves the attachment and also marks the read mails as Processed.

But I need to move these Processed mails from the Inbox to the folder, Archive_Proc. I am trying to Set the folder, objDestfolder as the destination folder for these processed mails to be moved. But I am getting object not found error (bolded line).
How to fix the code?</p>

    Dim olApp As Object
    Dim MYFOLDER As Object
    Dim OlItems As Object
    Dim olMail As Object
    Dim x As Integer
    Dim subject As String
    Dim strFile As String
    Dim strFolderpath As String
    Dim objDestfolder As Object
    Dim mychar As Object
    Dim sreplace As String



Set olApp = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
    Set olApp = CreateObject("Outlook.Application")
End If


strFolderpath = "C:\Users\Testing"
'On Error Resume Next


' Set the Attachment folder.
strFolderpath = strFolderpath & "\Attachments\"


    Set MYFOLDER = olApp.GetNamespace("MAPI").Folders("WeeklyProceedings Mailbox").Folders("Inbox")

    Set OlItems = MYFOLDER.Items
  [B]  Set objDestfolder = MYFOLDER.Folders("Archive_Proc")[/B]

    For Each olMail In OlItems
        If olMail.subject Like "*Proceeding ID*" Then
            strFile = olMail & ".XML"
            strFile = strFolderpath & strFile
            If olMail.Attachments.Count > 0 Then
                For x = 1 To olMail.Attachments.Count
                    olMail.Attachments.Item(x).SaveAsFile strFile
                Next x
                
                subject = olMail.subject
                sreplace = "_"
                subject = Replace(subject, " ", sreplace)
                olMail.Body = olMail.Body & vbCrLf & "The file was processed " & Now()
                olMail.subject = "Processed - " & subject
                olMail.Move objDestfolder
                olMail.Save
            End If
        End If
    Next

Set MYFOLDER = Nothing
Set OlMail = Nothing
Set OlItems = Nothing
Set olApp = Nothing
Srt objDestfolder = Nothing

 

[welshgasman]

So is your structure correct, as that folder should be in Inbox/Archive Folders ?

 

[rollingzep]

So is your structure correct, as that folder should be in Inbox/Archive Folders ?

yes

 

[welshgasman]

That is a terrible name for a folder,
Folders? Folders might be a reserved name to indicate folders?
Write some code to debug.print folders at each level. I *think* you would need "conversation history" in there?
The logic would be the same for file folders.

 

[welshgasman]

Please advise the other forum that you have crossposted here.
If they discover themselves, you will likely be banned, and noone wants that. You need as many forums as you can access.

 

[welshgasman]

Use this in Outlook, or amend to run from Access, to see your structures.

Sub EnumerateFoldersInStores()
 Dim colStores As Outlook.Stores
 Dim oStore As Outlook.Store
 Dim oRoot As Outlook.Folder
 
 On Error Resume Next
 Set colStores = Application.Session.Stores
 For Each oStore In colStores
 Set oRoot = oStore.GetRootFolder
 Debug.Print (oRoot.FolderPath)
 EnumerateFolders oRoot
 Next
End Sub
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder)
 Dim folders As Outlook.folders
 Dim Folder As Outlook.Folder
 Dim foldercount As Integer
 
 On Error Resume Next
 Set folders = oFolder.folders
 foldercount = folders.Count
 'Check if there are any folders below oFolder
 If foldercount Then
 For Each Folder In folders
 Debug.Print (Folder.FolderPath)
 EnumerateFolders Folder
 Next
 End If
End Sub

 

[Candyman8019]

Try changing your bolded line to:

Set objDestfolder = MYFOLDER..Folders("Folders").Folders("Archive_Proc")

 

[rollingzep]

Use this in Outlook, or amend to run from Access, to see your structures.

Sub EnumerateFoldersInStores()
 Dim colStores As Outlook.Stores
 Dim oStore As Outlook.Store
 Dim oRoot As Outlook.Folder
 
 On Error Resume Next
 Set colStores = Application.Session.Stores
 For Each oStore In colStores
 Set oRoot = oStore.GetRootFolder
 Debug.Print (oRoot.FolderPath)
 EnumerateFolders oRoot
 Next
End Sub
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder)
 Dim folders As Outlook.folders
 Dim Folder As Outlook.Folder
 Dim foldercount As Integer
 
 On Error Resume Next
 Set folders = oFolder.folders
 foldercount = folders.Count
 'Check if there are any folders below oFolder
 If foldercount Then
 For Each Folder In folders
 Debug.Print (Folder.FolderPath)
 EnumerateFolders Folder
 Next
 End If
End Sub

Thanks man! I was able to resolve my issue.

 

[welshgasman]

Thanks man! I was able to resolve my issue.

Well please post the solution. You never know, it might help someone else?