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

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