title: VBA: How to copy email to an Outlook folder?
body: <p>I have some code to &quot;move&quot; an email to a specific Outlook folder when tagged with a specific category, however now I need to copy instead of sending the email to a specific folder for just one of the <code>If</code> statements. It is the one that references: <code>&quot;PO Send to Kathy&quot;</code>.</p>
  <pre class="lang-vb prettyprint-override"><code>'Occurs when changing item
  Private Sub objInboxItemsOrder_ItemChange(ByVal Item As Object)
      Dim objMail As Outlook.MailItem
      Dim objTargetFolder As Outlook.Folder
  
      If TypeOf Item Is MailItem Then
          Set objMail = Item
          'Move mails based on color category
          If InStr(objMail.Categories, &quot;Karen&quot;) &gt; 0 Then
              Set objTargetFolder = Application.Session.Folders(&quot;orders@xxx.com&quot;).Folders(&quot;Karen&quot;)
              objMail.Move objTargetFolder
          ElseIf InStr(objMail.Categories, &quot;PO Send to Kathy&quot;) &gt; 0 Then
              Set objTargetFolder = Application.Session.Folders(&quot;orders@xxx.com&quot;).Folders(&quot;PO Send to Kathy&quot;)
              objMail.Move objTargetFolder
          ElseIf InStr(objMail.Categories, &quot;Quote&quot;) &gt; 0 Then
              Set objTargetFolder = Application.Session.Folders(&quot;orders@xxxx.com&quot;).Folders(&quot;Quote&quot;)
              objMail.Move objTargetFolder
          ElseIf InStr(objMail.Categories, &quot;PO Keep Here&quot;) &gt; 0 Then
              Set objTargetFolder = Application.Session.Folders(&quot;orders@xxx.com&quot;).Folders(&quot;Purchase Order&quot;)
              objMail.Move objTargetFolder
          End If
      End If
  End Sub
  </code></pre>