title: Automatically save draft email
body: <p>I'm looking for VBA code for Outlook 2013 that will automatically save a draft either when opening the composition window, when replying or forwarding an email (it's OK if it fires on newly-composed messages also) or just before sending it when hitting the Send button.</p>
  
  <p>Essentially emulating hitting the "Save" icon or Ctrl-S either before composing or before the message gets sent.</p>
  
  <p>Outlook generates a "Could not complete the operation because the mail provider does not support it" error when replying to or forwarding a non-Google Apps account email when Google Apps accounts are combined with other email accounts in Outlook.</p>
  
  <p>I discovered that a work-around is to manually save the email before sending it. I can do that manually but often forget. Can't do it after the error message appears. Trying to save after the "could not complete" error is thrown results in another error.</p>
  
  <p>BTW, I already have a routine running off the Application_ItemSend event; will adding another conflict?</p>
  
  <p>Update: Here is a version of what I tried:</p>
  
  <pre><code>Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
  ' Runs when the item is being sent.
      Call AutoSaveDraft(item)
      Call CheckSubject(item)
  End Sub
  </code></pre>
  
  <p>(CheckSubject fires)</p>
  
  <pre><code>Private Sub AutoSaveDraft(item As Object)
      item.Save
      SendKeys "+{F12}" ' Save the message. ##
      SendKeys "^S"
      Sleep 1000 ' Pause execution 1 second. The Windows sleep function is      called in the beginning ##
  End Sub
  </code></pre>
  
  <p>(Yes, I have all three potential save methods. Have also tried them individually.</p>