Sending multiple .HTML tables in .HTMLBody
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.
