Userform prompt to move mailitem based on change in unread property

[Seth118]

Hello all,

So, I've got a business problem and came up with a solution...now i just need to get the code to work.

Here is the goal: When the user selects a mail item (in inspector or explorer) and it changes from unread to read, a userform will pop up and ask which folder they would like to move that mailitem to. They click a button, and it moves that specific mailitem (which just changed its unread property to false) to the respective folder. This has taken quite some time so far, so please help.

Here is what i have so far:

Sub getselecteditems()
End Sub


Dim myolexplorer As Outlook.Explorer
Dim myolselection As Outlook.Selection
Dim selobject As myolselection.Item


Set myolexplorer = Application.ActiveExplorer
Set myolselection = myolexplorer.Selection

If Me.myolselection.Count > 0 Then
For x = 1 To myolselection.Count

If myolselection.Class = olMail Then
If myolselection.Item(x).UnRead = False Then


UserForm2.Show vbModal

End If
End If
Next x
End If

End Sub


The userform code looks like this:

Private Sub CommandButton1_Click()
On Error GoTo error_movemessage


Dim myolapp As New Outlook.Application
Dim mynamespace As Outlook.NameSpace
Dim myinbox As Outlook.MAPIFolder
Dim mydestfolder As Outlook.MAPIFolder
Dim myitems As Outlook.Items
Dim myitem As Object

Set mynamespace = myolapp.GetNamespace("MAPI")
Set myinbox = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("RetainPermanently")
Set myitems = myinbox.Items
Set mydestfolder = myinbox
Set myitem = Application.ActiveInspector.CurrentItem

myitem.SaveSentMessageFolder mydestfolder
Unload Me

exit_CommandButton1_Click:
Exit Sub
error_movemessage:
MsgBox "ERROR! " & Err.Description
Resume exit_CommandButton1_Click


End Sub


Any help would be greatly appreciated.

[Seth118]

New code to replace the first section:

Private Sub Application_ItemLoad(ByVal Item As Object)
If Item.Class = olMail Then
If Item.UnRead Then
UserForm2.Show vbModal
End If
End If
End Sub