title: Send Excel range into Email body with autofit
body: <p>I'm currently using Ron de <a href="http://www.rondebruin.nl/win/s1/outlook/bmail2.htm" rel="nofollow">Bruin's RangetoHTML</a> function  to send a couple of tables out in an e-mail.  I'd like to have these tables auto-fit to the screen in outlook.</p>
  
  <p>Currently, I have to click on each table and go to layout->autofit to screen on each table.  I was wondering if this task could be folded into the macro in some way.</p>
  
  <p>Edit: This was my first guess at a solution:</p>
  
  <pre><code>objMail.HTMLBody = RangetoHTML(Range("A1:G14")) &amp; _
      RangetoHTML(Range(Range("vmRange").Value)) &amp; _
      RangetoHTML(Range(Range("hpRange").Value)) &amp; _
      RangetoHTML(Range(Range("esrRange").Value))
  
  For Each tbl In objMail.body.tables
      tbl.Columns.AutoFit 'Note: This doesn't actually work
  Next tbl
  </code></pre>