Move E-Mails to Another Folder

[LMS]

Re: Need help with saving "sent items" email automatically to desktop folder

Any update soon?

- - - Updated - - -

Any update soon?

 

[LMS]

The following code works to move emails to the "FolderName" but is I get a response from Microsoft that an email was not received or did come thru etc., when I try to move the email coming back from Microsoft as an automatic reply, I can't move it to a folder. So what do I change for that type of response please:

Sub MoveSelectedMessagesToFolder()
Dim objFolder As outlook.MAPIFolder, objInbox As outlook.MAPIFolder
Dim objNS As outlook.NameSpace, ObjItem As outlook.mailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
On Error Resume Next
Set objFolder = objInbox.Folders("FolderName")
'Assume this is a mail folder
If objFolder Is Nothing Then
MsgBox "This folder doesn’t exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If
If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If
For Each ObjItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If ObjItem.Class = olMail Then
ObjItem.Move objFolder
End If
End If
Next
Set ObjItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub

 

[LMS]

The following code works to move emails to the "FolderName" but is I get a response from Microsoft that an email was not received or did come thru etc., when I try to move the email coming back from Microsoft as an automatic reply, I can't move it to a folder. So what do I change for that type of response please:

Sub MoveSelectedMessagesToFolder()
Dim objFolder As outlook.MAPIFolder, objInbox As outlook.MAPIFolder
Dim objNS As outlook.NameSpace, ObjItem As outlook.mailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
On Error Resume Next
Set objFolder = objInbox.Folders("FolderName")
'Assume this is a mail folder
If objFolder Is Nothing Then
MsgBox "This folder doesn’t exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If
If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If
For Each ObjItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If ObjItem.Class = olMail Then
ObjItem.Move objFolder
End If
End If
Next
Set ObjItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub

 

[LMS]

Update on this please?

 

[LMS]

Update on this please?

 

[Diane Poremsky]

This line: If ObjItem.Class = olMail Then tell it to work for mail. I think the autoreplies are reports, so you could try using olreportitem:
If ObjItem.Class = olMail or If ObjItem.Class = olreportitem then

 

[LMS]

I added that exact line you posted but there is the error re the word "If" in the middle

 

[LMS]

I also tried the following and it did not do it:

If ObjItem.Class = olMail Or olreportitem Then
ObjItem.Move objFolder

 

[Diane Poremsky]

You need ObjItem.Class = but not the If. (Sorry about that).

 

[LMS]

So is this the line?

ObjItem.Class = olMail or If ObjItem.Class = olreportitem then

 

[Diane Poremsky]

No.
If ObjItem.Class = olMail or ObjItem.Class = olreportitem then

 

[LMS]

I did it and no error but did not move the email......anything else to try please?

 

[Diane Poremsky]

No, I have no idea why it's not working. Add the Message Class field to the view and see what message class it is - maybe it's not a report.

 

[LMS]

Don't understand what to add and where? Details please?

 

[Diane Poremsky]

Use a list view on the folder, right click on the row of field names and choose Field Chooser. Find Message Class and drag it to the row of field names.
http://www.slipstick.com/tutorial/customize-or-reset-current-view-in-outlook/ has screenshots of the row of field names.

 

[LMS]

I did it but nothing new shows up

 

[Diane Poremsky]

You could always remove this - If ObjItem.Class = olMail Then - and the matching end if.

 

[LMS]

Please explain what to do as I simply set it up as If ObjItem.Class = olreportitem then but it did not work

 

[Diane Poremsky]

Sheesh... all this time wasted on a typo. I went from memory and it's not olreportitem, it's olreport. I should have picked up my error when you didn't correct the case when you said it didn't work. Always remember that the VB Editor will fix the case and if something like olMail is upper/lower, olwhatever will convert to upper/lower, if it's correct. If it doesn't convert, its not correct.

 

[Diane Poremsky]

BTW, if you wanted to move everything in the folder, change
If ObjItem.Class = olMail Or ObjItem = olReport Then
ObjItem.Move objFolder
End If

to just

ObjItem.Move objFolder