In the past, you have given me the way to create some words that are in the outlook email upfront and then there is space below the words as well as another code that fonts the words.......So here is the code you gave me that creates the email to the identified contact, puts at the top the words: Dear "firstname" and adds the email template I want to use....So how do we put one space line below the words Dear First Name, so the words of the email template will be one line below, and secondly, how do we create the font and size for the words Dear FirstName.....as I would like the font to be Times New Roman, and the size 14....and maybe make it bold....Can we do this right away please?? Public Sub MacroName()
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
' Use a template
Set objMsg = Application.CreateItemFromTemplate("C:\Users\UserName\AppData\Roaming\Microsoft\Templates\emailtemplate.oft")
objMsg.To = oContact.Email1Address
'displays the message form so you can enter more text
objMsg.HTMLBody = "Dear " & oContact.FirstName & ":" & vbCrLf & vbCrLf & objMsg.HTMLBody
objMsg.BodyFormat = olFormatHTML
MsgBody = objMsg.HTMLBody
objMsg.Display
'use this to send to outbox
'objMsg.Send
Set objMsg = Nothing
End Sub
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
' Use a template
Set objMsg = Application.CreateItemFromTemplate("C:\Users\UserName\AppData\Roaming\Microsoft\Templates\emailtemplate.oft")
objMsg.To = oContact.Email1Address
'displays the message form so you can enter more text
objMsg.HTMLBody = "Dear " & oContact.FirstName & ":" & vbCrLf & vbCrLf & objMsg.HTMLBody
objMsg.BodyFormat = olFormatHTML
MsgBody = objMsg.HTMLBody
objMsg.Display
'use this to send to outbox
'objMsg.Send
Set objMsg = Nothing
End Sub