title: Draft 4 separate emails at once using VBA
body: <p>I'm trying to use the code below to draft 4 identical emails to 4 separate addresses contained in my Rlist. This seemed to work yesterday - it drafted all four separately. However, today the email gets drafted and the &quot;to&quot; section shuffles through my Rlist and ends on the last &quot;R&quot; in the list, leaving me with ONE email instead of 4. Let me know if you see the issue please!</p>
  <pre><code>Sub EmailAll()
  
      Dim OApp As Object, OMail As Object, signature As String
      Set OApp = CreateObject(&quot;Outlook.Application&quot;)
      Set OMail = OApp.CreateItem(0)
     
      Dim Rlist As Range
      Set Rlist = Range(&quot;P&quot; &amp; Selection.Row &amp; &quot;:S&quot; &amp; Selection.Row)
      Dim R As Range
      
      For Each R In Rlist
      
          With OMail
          .Display
          End With
              signature = OMail.HTMLbody
          With OMail
          .To = R
          .cc = Sheets(&quot;Emails&quot;).Range(&quot;g2&quot;)
          .Subject = ActiveCell &amp; &quot; &amp; &quot; &amp; ActiveCell.Offset(0, 1)
          .HTMLbody = &quot;email contents&quot;
          
          End With
      Next R
      
      Set OMail = Nothing
      Set OApp = Nothing
      End Sub
  </code></pre>