title: Outlook flag an email and move it to a folder
body: <p>Is there a script that would allow me to flag an email in outlook and then automatically move it to a folder?</p>
  
  <p>I found the following that will copy selected email and move it, but I need it to flag it as well;</p>
  
  <pre><code>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("Mailbox - Jim Merrell").Folders("@Filed")
  
  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
  </code></pre>
  
  <p>Cheers,
  Steven</p>