Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
The Dear x at the top is formatted as times new roman font...why?!
Dear x,
Thank you for the brief conversation last night. The first sentence is in calibri, the Dear x line in times new roman (don't know why on earth it should be ... calibri is my default font) I guess I need to use html body like i did for the signature but it seems a lot big change to solve such a little problem, any ideas? Thanks and regards, Mark Here's my code: Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim SigString As String Dim Signature As String Dim sSubject As String Dim psCustomerName As String psCustomerName = "Wilddan" Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Dear " & psCustomerName & "," & vbCrLf & vbCrLf & Signature & "<br" & "<br" & _ "Thank you for the brief conversation last night." With OutMail .To = " .CC = " .BCC = "" .Subject = sSubject .HTMLBody = strbody & vbNewLine & vbNewLine & Signature .Display End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
The Dear x at the top is formatted as times new roman font...why?!
Where exactly are those two lines at?
-- Rick (MVP - Excel) "Mark Stephens" wrote in message ... Dear x, Thank you for the brief conversation last night. The first sentence is in calibri, the Dear x line in times new roman (don't know why on earth it should be ... calibri is my default font) I guess I need to use html body like i did for the signature but it seems a lot big change to solve such a little problem, any ideas? Thanks and regards, Mark Here's my code: Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim SigString As String Dim Signature As String Dim sSubject As String Dim psCustomerName As String psCustomerName = "Wilddan" Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Dear " & psCustomerName & "," & vbCrLf & vbCrLf & Signature & "<br" & "<br" & _ "Thank you for the brief conversation last night." With OutMail .To = " .CC = " .BCC = "" .Subject = sSubject .HTMLBody = strbody & vbNewLine & vbNewLine & Signature .Display End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calculations on Times Formatted as Text | Excel Discussion (Misc queries) | |||
font question #1 - roman numerals | Excel Programming | |||
How do I convert Roman numerals to Arabic (reverse of ROMAN)? | Excel Worksheet Functions | |||
How do I get Roman Numeral Font? | Excel Discussion (Misc queries) | |||
How do i create a template that will only allow Times New Roman? | Excel Worksheet Functions |