Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
using vbCrLf in email body does not work with HTMLBody
I was using the following to include some user defined text in the message
body. The vbCrLf was working fine when the message was in text format. When I switched to HTML, the vbCrLf instruction does not work. Is there another approach? Also, How do I specify a font for the HTML body in the code? Thanks very much. With SafeItem .To = emails .CC = "" .BCC = "" .Subject = Worksheets("eMail").Range("C117").Value & _ Format(Sheets("Main").Range("AB5").Value, "mm/dd/yy") & _ ", " & Format(Sheets("Main").Range("AB6").Value) & _ " - " & Worksheets("eMail").Cells(4, i).Value .HTMLBody = Worksheets("eMail").Range("C121").Value & vbCrLf & _ Worksheets("eMail").Range("C122").Value & vbCrLf & _ Worksheets("eMail").Range("C123").Value & vbCrLf & _ Worksheets("eMail").Range("C124").Value & vbCrLf & _ Worksheets("eMail").Range("C125").Value & vbCrLf & _ Worksheets("eMail").Range("C126").Value & vbCrLf & _ Worksheets("eMail").Range("C127").Value & vbCrLf & _ Worksheets("eMail").Range("C128").Value & vbCrLf & _ Worksheets("eMail").Range("C129").Value & vbCrLf & _ Worksheets("eMail").Range("C130").Value & vbCrLf & _ vbCrLf & _ Worksheets("eMail").Range("C134").Value & _ Worksheets("eMail").Range("C135").Value & _ Worksheets("eMail").Range("C136").Value & _ Worksheets("eMail").Range("C137").Value & _ Worksheets("eMail").Range("C138").Value & _ Worksheets("eMail").Range("C139").Value .Attachments.Add FilenameStr .Attachments.Add FilenameStr2 .Attachments.Add FilenameStr3 .Attachments.Add FilenameStr4 .Send 'or use .Display End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
using vbCrLf in email body does not work with HTMLBody
Try replacing vbCrLf with "<BR"
-- If this post helps click Yes --------------- Jacob Skaria "Tom Joseph" wrote: I was using the following to include some user defined text in the message body. The vbCrLf was working fine when the message was in text format. When I switched to HTML, the vbCrLf instruction does not work. Is there another approach? Also, How do I specify a font for the HTML body in the code? Thanks very much. With SafeItem .To = emails .CC = "" .BCC = "" .Subject = Worksheets("eMail").Range("C117").Value & _ Format(Sheets("Main").Range("AB5").Value, "mm/dd/yy") & _ ", " & Format(Sheets("Main").Range("AB6").Value) & _ " - " & Worksheets("eMail").Cells(4, i).Value .HTMLBody = Worksheets("eMail").Range("C121").Value & vbCrLf & _ Worksheets("eMail").Range("C122").Value & vbCrLf & _ Worksheets("eMail").Range("C123").Value & vbCrLf & _ Worksheets("eMail").Range("C124").Value & vbCrLf & _ Worksheets("eMail").Range("C125").Value & vbCrLf & _ Worksheets("eMail").Range("C126").Value & vbCrLf & _ Worksheets("eMail").Range("C127").Value & vbCrLf & _ Worksheets("eMail").Range("C128").Value & vbCrLf & _ Worksheets("eMail").Range("C129").Value & vbCrLf & _ Worksheets("eMail").Range("C130").Value & vbCrLf & _ vbCrLf & _ Worksheets("eMail").Range("C134").Value & _ Worksheets("eMail").Range("C135").Value & _ Worksheets("eMail").Range("C136").Value & _ Worksheets("eMail").Range("C137").Value & _ Worksheets("eMail").Range("C138").Value & _ Worksheets("eMail").Range("C139").Value .Attachments.Add FilenameStr .Attachments.Add FilenameStr2 .Attachments.Add FilenameStr3 .Attachments.Add FilenameStr4 .Send 'or use .Display End With |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
using vbCrLf in email body does not work with HTMLBody
Thanks, Jacob
"Jacob Skaria" wrote: Try replacing vbCrLf with "<BR" -- If this post helps click Yes --------------- Jacob Skaria "Tom Joseph" wrote: I was using the following to include some user defined text in the message body. The vbCrLf was working fine when the message was in text format. When I switched to HTML, the vbCrLf instruction does not work. Is there another approach? Also, How do I specify a font for the HTML body in the code? Thanks very much. With SafeItem .To = emails .CC = "" .BCC = "" .Subject = Worksheets("eMail").Range("C117").Value & _ Format(Sheets("Main").Range("AB5").Value, "mm/dd/yy") & _ ", " & Format(Sheets("Main").Range("AB6").Value) & _ " - " & Worksheets("eMail").Cells(4, i).Value .HTMLBody = Worksheets("eMail").Range("C121").Value & vbCrLf & _ Worksheets("eMail").Range("C122").Value & vbCrLf & _ Worksheets("eMail").Range("C123").Value & vbCrLf & _ Worksheets("eMail").Range("C124").Value & vbCrLf & _ Worksheets("eMail").Range("C125").Value & vbCrLf & _ Worksheets("eMail").Range("C126").Value & vbCrLf & _ Worksheets("eMail").Range("C127").Value & vbCrLf & _ Worksheets("eMail").Range("C128").Value & vbCrLf & _ Worksheets("eMail").Range("C129").Value & vbCrLf & _ Worksheets("eMail").Range("C130").Value & vbCrLf & _ vbCrLf & _ Worksheets("eMail").Range("C134").Value & _ Worksheets("eMail").Range("C135").Value & _ Worksheets("eMail").Range("C136").Value & _ Worksheets("eMail").Range("C137").Value & _ Worksheets("eMail").Range("C138").Value & _ Worksheets("eMail").Range("C139").Value .Attachments.Add FilenameStr .Attachments.Add FilenameStr2 .Attachments.Add FilenameStr3 .Attachments.Add FilenameStr4 .Send 'or use .Display End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlink in body of VBA email | Excel Discussion (Misc queries) | |||
how do you email a portion of a worksheet (range) as an insert into the body of an email? | Excel Programming | |||
Email Workseet as Body of email | Excel Programming | |||
body of email disappears when I send an email from Excel | Excel Discussion (Misc queries) |