How to format a line in my outlook msg using VBA?

[lindalibinbin]

Hi Everyone,

Complete VBA newbie here. I have the following code for sending out an outlook email with an attachment, and there's one line in the body (cells(9,2) particularly) I would like to bold+underline. Please help! Much appreciated.

Sub Email()
'
'
Dim OutApp As Object
Dim OutMail As Object
Dim FileName1 As String
Dim Msg As String, URL As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
FileName1 = Cells(12, 2)

On Error Resume Next
With OutMail
.to = Cells(3, 2)
.CC = Cells(4, 2)
.BCC = ""
.Subject = Cells(5, 2)
.Body = Cells(6, 2) & vbCrLf & vbCrLf & Cells(7, 2) & vbCrLf & Cells(8, 2) & vbCrLf & vbCrLf & Cells(9, 2) & vbCrLf & vbCrLf & Cells(10, 2) & vbCrLf & Cells(11, 2)
.Attachments.Add (FileName1)
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Thanks again!

 

[anvg]

Hi
Try

[CODE].HTMLBody = "<p>" & Cells(6, 2) & "<br><br>" & Cells(7, 2) & "<br>" & Cells(8, 2) & "<br><br><b>" & Cells(9, 2) & "</b><br><br>" & Cells(10, 2) & "<br>" & Cells(11, 2) & "</p>"[/CODE]

Regards,

 

[lindalibinbin]

Thanks for the reply. I don't quite understand though (sorry i'm very new at this). Do you mean to have the code written as the below (I changed cell locations)?

With OutMail
.to = Cells(48, 3)
.CC = Cells(49, 3)
.BCC = ""
.Subject = Cells(50, 3)
.HTMLBody = "" & Cells(51, 3) & "" & "" & Cells(52, 3) & "" & Cells(53, 3) & "" & "" & "" & Cells(54, 3) & "" & "" & "" & Cells(55, 3) & "" & Cells(56, 3)
.Attachments.Add (filename)

 

[lindalibinbin]

oh I got it!! thank you very much. With your help I was able to play around with font, spacing and text size as well! Now my email looks more professional. Thanks again.