Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 124
Default 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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,934
Default 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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Calculations on Times Formatted as Text benneyb Excel Discussion (Misc queries) 5 September 5th 08 06:20 PM
font question #1 - roman numerals rockhammer Excel Programming 4 May 24th 07 06:32 PM
How do I convert Roman numerals to Arabic (reverse of ROMAN)? IanW[_2_] Excel Worksheet Functions 5 May 4th 07 12:50 PM
How do I get Roman Numeral Font? JRodriguez Excel Discussion (Misc queries) 2 April 7th 07 06:09 PM
How do i create a template that will only allow Times New Roman? Cat Re Excel Worksheet Functions 0 October 26th 06 06:04 PM


All times are GMT +1. The time now is 08:11 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"