title: Outlook Recipient address in to field
body: <p>I'm creating a custom reply were the outlook send from account is changed and some field are automatically filled.</p>
  
  <p>First I'll explain how it works we receive an e-mail. The e-mail address that receives this e-mail is in the CC. I created a button in the top-bar. When i press this button a new e-mail screen opens with some information already filled in and the remaining information we will need to fill in our self.</p>
  
  <p>For the most I have everything setup. But one thing I can't get to work. I want the new e-mail to be send to the original TO (recipient) Address.</p>
  
  <p>For now i have this code:</p>
  
  <pre><code>Sub ReplyUsingAccount()
  Dim oAccount As Outlook.Account
  Dim objItem As Outlook.MailItem
  Dim oMail As Outlook.MailItem
  Dim strAcc As String
  Dim i As Long
  Set objItem = ActiveExplorer.Selection.Item(1)
  strAcc = "myemail@email.nl"
  For Each oAccount In Application.Session.Accounts
      If oAccount.DisplayName = strAcc Then
          Set oMail = Application.CreateItem(olMailItem)
          With oMail
              .SendUsingAccount = oAccount
              .To = objItem.RecipientEmailAddress
              .Subject = "Aangaande uw bestelling bij "
                         .HTMLBody = "&lt;br&gt;&lt;br&gt;&lt;br&gt;" &amp; _
                          "&lt;hr width=""50%"" size=""2"" noshade /&gt;" &amp; _
                          "&lt;font color=""#6699ff""&gt;" &amp; _
                          objItem.HTMLBody &amp; "&lt;/font&gt;"
              .Display
          End With
      End If
  Next oAccount
  Set oAccount = Nothing
  Set objItem = Nothing
  Set oMail = Nothing
  End Sub
  </code></pre>
  
  <p>The <strong><code>.To = objItem.RecipientEmailAddress</code></strong> won't work.
  Anyone got a solution for that.</p>
  
  <p>Thanks in advance.</p>