VBA-created Outlook email being cut off mid subject
I have a VBA program that creates an Outlook email in html format. The email contains some html tables. Sometimes the email is cut off in the middle of a table.
I've checked for stray single quotes in the data and there are none. Is there a length limit to Outlook emails created with VBA?
Is there anything else that could be causing the email to be cut short?
Here's the code that creates the email.
With oLookEmail
.To = "gzzzz@someco.com"
.BodyFormat = olFormatHTML
.HTMLBody = "<html><body style=""font-family:cambri
.Subject = strEmailSubject
.Display
End With
I've checked for stray single quotes in the data and there are none. Is there a length limit to Outlook emails created with VBA?
Is there anything else that could be causing the email to be cut short?
Here's the code that creates the email.
With oLookEmail
.To = "gzzzz@someco.com"
.BodyFormat = olFormatHTML
.HTMLBody = "<html><body style=""font-family:cambri
.Subject = strEmailSubject
.Display
End With
Scott McDaniel (EE MVE )
I'm not aware of any limits on email messages. More likely your code is not properly forming the tables in the HTML source - can you show how you build emailBody and emailbody2?
ASKER
I used debug.print to print out the email body. I then pasted it into a text file and opened it in a web browser. The html code is good and displays correctly in a browser.
Outlook makes a lot of formatting and other changes to the html code and cuts off the subject in the middle of one of the tables.
Here's what the code looks like before it's put into the Outlook email:
<html>
<body style="font-family:cambria
<b>Verification Due Date:</b> 1/23/2013
<br /><b>Verification Due By:</b> UPS (3:00)
<br /><b>Second Check:</b> No
<br /><b>Frequency:</b> B<br /><br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (4)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD CUR :</td>
<td>382.62 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD CUR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012</td>
<td>382.62</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
<br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (12)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD ARR :</td>
<td>207.69 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD ARR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>11/20/2012</td>
<td>207.69</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>11/20/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
<br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (51)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD CUR :</td>
<td>91.38 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD CUR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012</td>
<td>91.38</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
</body>
</html>
Outlook makes a lot of formatting and other changes to the html code and cuts off the subject in the middle of one of the tables.
Here's what the code looks like before it's put into the Outlook email:
<html>
<body style="font-family:cambria
<b>Verification Due Date:</b> 1/23/2013
<br /><b>Verification Due By:</b> UPS (3:00)
<br /><b>Second Check:</b> No
<br /><b>Frequency:</b> B<br /><br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (4)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD CUR :</td>
<td>382.62 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD CUR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012</td>
<td>382.62</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
<br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (12)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD ARR :</td>
<td>207.69 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD ARR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>11/20/2012</td>
<td>207.69</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>11/20/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
<br /><table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr style="font-weight:bold">
<td colspan=2>Name Removed (51)</b></td><td style="width:150px;">Notes
</tr><tr>
<td>Disposable:</td>
<td>0</td><td> </td>
</tr>
<tr>
<td>CHILD CUR :</td>
<td>91.38 </td><td> </td>
</tr>
<tr>
<td>STATE FEE:</td>
<td>2 </td><td> </td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">CHILD CUR</td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012</td>
<td>91.38</td>
<td> </td>
<td> </td>
<td>NV CHLDSPT</td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> -</td>
<td> </td>
<td>50</td>
<td>D</td>
<td>Balance</td>
<td>0</td>
</tr>
</table>
<table border="1" cellpadding="3" cellspacing="0" style="font-family:cambria
<tr>
<td colspan="2">144 STATE FEE </td>
<td>Amount</td>
<td>Rate</td>
<td>Basis</td>
<td>Vendor!!</td>
<td> </td>
</tr>
<tr>
<td>Start Date</td>
<td>10/30/2012 </td>
<td>2 </td>
<td> </td>
<td> </td>
<td>NV TREASUR </td>
<td> </td>
</tr>
<tr>
<td>Stop Date</td>
<td> - </td>
<td> </td>
<td>0 </td>
<td> </td>
<td>Balance</td>
<td>0 </td>
</tr>
</table>
</body>
</html>
What about AFTER you drop it in to the Outlook email? Can you post the body HTML after Outlook does it's thing?
ASKER
<html xmlns:v="urn:schemas-micro
/* Font Definitions */
@font-face
{font-family:Cambria;
panose-1:2 4 5 3 5 4 6 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;
span.EmailStyle17
{mso-style-type:personal-c
font-family:"Cambria","ser
font-weight:bold;}
.MsoChpDefault
{mso-style-type:export-onl
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![e
/* Font Definitions */
@font-face
{font-family:Cambria;
panose-1:2 4 5 3 5 4 6 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;
span.EmailStyle17
{mso-style-type:personal-c
font-family:"Cambria","ser
font-weight:bold;}
.MsoChpDefault
{mso-style-type:export-onl
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
That doesn't change the way that Outlook rewrites the HTML code. Outlook still adds tons of formatting code:
<html xmlns:v="urn:schemas-micro
/* Font Definitions */
@font-face
{font-family:Cambria;
panose-1:2 4 5 3 5 4 6 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;
span.EmailStyle17
{mso-style-type:personal-c
font-family:"Cambria","ser
font-weight:bold;}
.MsoChpDefault
{mso-style-type:export-onl
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![e
<html xmlns:v="urn:schemas-micro
/* Font Definitions */
@font-face
{font-family:Cambria;
panose-1:2 4 5 3 5 4 6 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;
span.EmailStyle17
{mso-style-type:personal-c
font-family:"Cambria","ser
font-weight:bold;}
.MsoChpDefault
{mso-style-type:export-onl
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![e
Outlook will add it's own formatting tags and such - I don't think you can change that.
Does the example above display correctly, or does it cut off somewhere?
Does the example above display correctly, or does it cut off somewhere?
ASKER
I've tested it for a while now and it does not cut off anymore. I think this fixed the issue. It would be nice to know why this fixed the issue. Can you explain why?
I think this fixed the issueIf you mean removing the "BodyFormat = olFormatHTML " line, then I'd simply assume that it was a matter of conflicting properties and such.