title: Save email to draft folder in Outlook
body: <p>I already have the codes to send emails but I don't want it to send I only want it to save in the drafts folder in Outlook.</p>
  
  <p>I have tried adding <code>.Close</code> function and it doesn't work that way. Any idea?</p>
  
  <pre><code>    Dim iCfg As CDO.Configuration
      Dim iMsg As CDO.message
      Dim EmailAddr As String
      Dim wsEmail As Worksheet
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("Forecast")
      Set wsEmail = ThisWorkbook.Worksheets("Recepient")
  
      Set iCfg = New CDO.Configuration
      With iCfg
          .Fields(cdoSMTPServer) = "XXX"
          .Fields(cdoSMTPServerPort) = 25
          .Fields(cdoSendUsingMethod) = cdoSendUsingPort
          .Fields(cdoSMTPConnectionTimeout) = 200
          .Fields.Update
      End With
  
      Set iMsg = New CDO.message
      With iMsg
          Set .Configuration = iCfg
          .To = Worksheets("Recepient").Cells(5, 2).Value
          .cc = Worksheets("Recepient").Cells(5, 3).Value
          .From = "Automated Notification &lt;NoReplyEmail@agit.com&gt;"
          .Subject = "OPEN REQUEST " &amp; Format(Now, "dd-mmm-yyyy")
          .HTMLBody = strBodyStandard
          .Close (olsave)
      End With
  
      Set iMsg = Nothing
      Set iCfg = Nothing
  End Sub
  </code></pre>