I'm trying to send a form email with recipient dependent variables reported in a few HTML tables. I would like the email to be formatted nicely, but I've been having a hard time doing anything but line by line entry of the HTML. For example:
Code:
    Dim myOlApp As Outlook.Application
    Dim MyItem As Outlook.MailItem
    Dim AragForm As Worksheet
    Set myOlApp = CreateObject("Outlook.Application")
    Set MyItem = myOlApp.CreateItem(olMailItem)
    Set AragForm = Sheets("Scratch")
    With MyItem
      .Subject = "ARAG CONDITION REPORT"
      .BodyFormat = olFormatHTML
      .HTMLBody = ""<HTML><BODY><div align="center"><big><big><font size="+1"><big><big><b>ARAG CONDITION REPORT</b></big></big></font></big></big><br>
                                  </div>
                                  <div class="Part">
                                  <table border="0" cellpadding="2" cellspacing="2" width="100%">
                                  <tbody>
                                  <tr>
                                   ....///Lots of HTML tables, hopefully at some point with variables loaded
                                  </BODY>
                                  </HTML>""
      .Display
    End With
Now to be fair, I didn't think that would work in the least, but I thought I would try it anyway. Is there a way to do this without pulling every element? I could try to go into an existing HTML or OFT file, but then I'm not so sure how I would throw in the variables. If anyone has a good resource on that please let me know.

I also tried working with some of this guy's code: http://www.rondebruin.nl/ in particular using the RangetoHTML Function he has here: http://www.rondebruin.nl/mail/folder3/mail2.htm
That function allowed me format the email on a temp sheet in the workbook then throw it into an email, but it's really slow (probably because of the reliance on copy).

Any thoughts or pointers on a better way to go on this?

Thanks.