Outlook 2010 VBA question

[Biking Loki]

I found and modified the following code to make a 1 click macro that would move the selected email(s) to a folder designated in the macro. It works perfectly but I am wondering if there is a way to add the ability to also mark it as read. Is that possible?

'Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveToFiled()
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem

Set ns = Application.GetNamespace("MAPI")

'Define path to the target folder
Set moveToFolder = ns.Folders("XXXX@XXX.com").Folders("Inbox").Folders("ALL_MAIL")

If Application.ActiveExplorer.Selection.Count = 0 Then
MsgBox ("No item selected")
Exit Sub
End If

If moveToFolder Is Nothing Then
MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If

For Each objItem In Application.ActiveExplorer.Selection
If moveToFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Move moveToFolder
End If
End If
Next

Set objItem = Nothing
Set moveToFolder = Nothing
Set ns = Nothing

End Sub

 

[Biking Loki]

Have you tried deleting the item?

         If objItem.Class = olMail Then
                objItem.Delete
                
            End If

It took a little trial and error but this is what I came up with and it works. Thank you!

Sub MarkUnreadDelete()
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim objItem As Outlook.MailItem

Set ns = Application.GetNamespace("MAPI")
 
For Each objItem In Application.ActiveExplorer.Selection
        If objItem.Class = olMail Then

                objItem.UnRead = False

                objItem.Delete
        End If
    Next
End Sub