title: Code for forwarding emails is slow
body: <p>I send email to a big list of contacts. I don't want to lose the format of the original email.</p>
  
  <p>I am using this code:</p>
  
  <pre><code>Dim emailad, firstname, pretit, midtit, prebod, bod, postbod As String
  Dim n As Integer
  n = 1
  
  pretit = Sheets(CurrSh).Range("pretit").Value
  midtit = Sheets(CurrSh).Range("midtit").Value
  prebod = Sheets(CurrSh).Range("prebod").Value
  bod = Sheets(CurrSh).Range("bod").Value
  postbod = Sheets(CurrSh).Range("postbod").Value
  
  Dim objMail(1 To 500) As Object
  Set objitem = GetCurrentItem()
  
  '********** Send e-mail for each e-mail in the list ***********
  Set objMail(n) = CreateObject("Outlook.Application")
  
  While (Sheets(CurrSh).Range("emailad_ini").Offset(n, 0).Value &lt;&gt; "")
      emailad = Sheets(CurrSh).Range("emailad_ini").Offset(n, 0).Value
      firstname = Sheets(CurrSh).Range("firstname_ini").Offset(n, 0).Value
  
  
      Set objMail(n) = objitem.Forward
  
      objMail(n).To = emailad
      objMail(n).Subject = pretit &amp; " " &amp; firstname &amp; midtit &amp; "  FWD: " &amp; objitem.Subject
      objMail(n).HtmlBody = "&lt;HTML&gt;&lt;BODY&gt;&lt;FONT FACE='Arial'&gt;&lt;FONT SIZE='2'&gt;" &amp; prebod &amp; " " &amp; firstname &amp; "," &amp; "&lt;br&gt;" &amp; bod &amp; "&lt;br&gt;" &amp; postbod &amp; objMail(n).HtmlBody &amp; "&lt;/FONT&gt;&lt;/FONT&gt;&lt;/BODY&gt;&lt;/HTML&gt;"
      objMail(n).Display
      Set objMail(n) = Nothing
      n = n + 1
  Wend
  
  Theend:
  End Sub
  </code></pre>
  
  <p>The problem is this code is so slow.</p>