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 |
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 |
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 |
All times are GMT +1. The time now is 01:47 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com