Hi

A while since I worked on this.

From previous threads I've created a macro that I click and it replies
to an email with "Dear John" or whatever using the code (in part)

NewMsg.Body = "Dear " & Left$(myItem.SenderName, InStr(1,
myItem.SenderName, " ") - 1) _
& "," & vbCr & vbCr & vbCr

Trouble is the font is different in my new email when I hit enter
after "Dear John"

How do I set the font here?

Mark

BTW the full code is:

Sub Dear_Name()
Dim myItem As Outlook.MailItem
Dim NewMsg As Outlook.MailItem

' get valid ref to current item
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set myItem = ActiveExplorer.Selection.Item(1)
myItem.Display
Case "Inspector"
Set myItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0

If myItem Is Nothing Then
MsgBox "Could not use current item. Please select or open a
single email.", _
vbInformation
GoTo ExitProc
End If

Set NewMsg = myItem.Reply

NewMsg.Body = "Dear " & Left$(myItem.SenderName, InStr(1,
myItem.SenderName, " ") - 1) _
& "," & vbCr & vbCr & vbCr & "Regards, ..." & vbCr & vbCr &
"_____________________________________________" _
& vbCr & "From: " & (myItem.SenderName) & vbCr & "Sent: " &
(myItem.SentOn) & vbCr & "To: " & (myItem.To) & vbCr & "Subject: " &
(myItem.Subject) & vbCr & vbCr & myItem.Body
myItem.Close olDiscard
NewMsg.Display

'Edit "Regards, ..." to whatever you want

ExitProc:
Set myItem = Nothing
Set NewMsg = Nothing
End Sub