I found the way per what you gave me earlier, to make the words bold, but the areas to create the line space does not do it, and anything else I type is bold, rather than not bold...
So is there a way to create the line spaces and only bold the automatic words...and would like to hear back from the SMART WOMAN!!!!
Here is the two different ways I did it per the earlier code and then how you showed me to do it as one line re the words:
Public Sub E_Mail_From_Dad2()
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
Dim sMsghtmlbody As String
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
Set objMsg = Application.CreateItem(olMailItem)
objMsg.HTMLBody = vbCrLf & vbCrLf
objMsg.HTMLBody = objMsg.HTMLBody & "<B>Love You,</b>"
objMsg.HTMLBody = objMsg.HTMLBody & vbCrLf & vbCrLf
objMsg.HTMLBody = objMsg.HTMLBody & "<B>Dad</b>"
objMsg.To = oContact.Email1Address
objMsg.Subject = "From Dad"
objMsg.BodyFormat = olFormatHTML
MsgBody = objMsg.HTMLBody
'displays the message form so you can enter more text
objMsg.Display
'use this to send to outbox
'objMsg.Send
End Sub
Public Sub E_Mail_From_Dad3()
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
Dim sMsghtmlbody As String
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
Set objMsg = Application.CreateItem(olMailItem)
objMsg.HTMLBody = vbCrLf & vbCrLf & "<B>Love You, </b>" & "<B>Dad</b>"
objMsg.To = oContact.Email1Address
objMsg.Subject = "From Dad"
objMsg.BodyFormat = olFormatHTML
MsgBody = objMsg.HTMLBody
'displays the message form so you can enter more text
objMsg.Display
'use this to send to outbox
'objMsg.Send
End Sub