putting text into BOLD in .SBODY

[Patriot2879]

Hi good morning, I am struggling to get the 'Please note' wording to be in bold, on the .SBody line. Please can you help, i have tried the <b> but that didn't work. I hope you can advise me please?

Sub Button3_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim sTo As String, sCC As String, sSbject As String, sBody As String
Set OutApp = CreateObject("Outlook.Application")
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

ssubject = "Info"
sTo = "don.duck@talktalk.com"
sCC = "peter.rabbit@talktalk.com
sBody = "Hi, good afternoon." & vbCrLf & vbNewLine &  "[B]Please note[/B]"
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sTo
.CC = sCC
.Subject = ssubject
.body = sBody
.Display
End With
End Sub

 

[JazzSP8]

Hi

Change

.body = sBody

to

.HTMLbody = sBody

 

[footoo]

Sub Button3_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim sTo As String, sCC As String, sSbject As String, sBody As String
Set OutApp = CreateObject("Outlook.Application")
With Application
    .EnableEvents = False
    .ScreenUpdating = False
sSbject = "Info"
sTo = "don.duck@talktalk.com"
sCC = "peter.rabbit@talktalk.com"
[COLOR=#0000ff]sBody = "< b >Hi, good afternoon.< br >< br >Please note< /b >"[/COLOR]
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = sTo
    .CC = sCC
    .Subject = sSbject
[COLOR=#0000ff]    .htmlbody = sBody[/COLOR]
    .Display
End With
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub

From here : https://www.google.com.hk/search?q=...j69i57j0l3.34304j1j8&sourceid=chrome&ie=UTF-8

 

[JazzSP8]

^^ Sorry, should really mention that using the HTMLbody will let you use the;

<b>

That you seemed to use when writing your post, or at least I'm assuming that is why your text suddenly went bold

 

[Patriot2879]

hi thank you for the advise but each line after the

& vbCrLf & vbNewLine &

are all in one and not gone on seperated line does a 'br' need to go in now to replace 'vbNewLine' please can you also advise where i put the bold code in please i want it in the same part as

& vbCrLf & vbNewLine &

, thank you for your help it is much appreciated.

Sub Button3_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim sTo As String, sCC As String, sSbject As String, sBody As String
Set OutApp = CreateObject("Outlook.Application")
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

ssubject = "Handover on day"
sTo = "Don.duck@talktalk.com"
sCC = "Don.duck@talktalk.com"
sBody = "Hi , good afternoon." & vbCrLf & vbNewLine & "Please find attached ??" & vbCrLf & vbNewLine & "Please note" & vbCrLf & vbNewLine & "-   We started the day with ?? unscheduled" & vbCrLf & vbNewLine & "-   Sickness - " & vbCrLf & vbNewLine & "-   Vehicle breakdown -" & vbCrLf & vbNewLine & "-   System issues - " & vbCrLf & vbNewLine & "-   ECO - " & vbCrLf & vbNewLine & "-   Stores on day raised for - " & vbCrLf & vbNewLine & "-   In day today there was an additional  ?? ." & vbCrLf & vbNewLine & "-   Extra jobs raised for" & vbCrLf & vbNewLine & "on day." & vbCrLf & vbNewLine & "Paper Jobs" & vbCrLf & vbNewLine & "Escalations" & vbCrLf & vbNewLine & "Thank you" 

Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sTo
.CC = sCC
.Subject = ssubject
.HTMLbody = sBody
.Display
End With
End Sub

 

[Patriot2879]

i have worked it out now, thank you so much for your help today much appreciated