Set Text As Bold using VB - Can Anyone Help ??

[liammoohan]

I have used the below code which generates an e-mail however I am trying to get a certain line to appear BOLD and UNDERLINED.

Does anyone know how I could get the line highlighted in RED to show IN BOLD and UNDERLINED when the e-mail is created?

.Body = BodyMessage()

'-----------------------------------------------------------------------
'Function to create body message string
Private Function BodyMessage()
Dim s As String

s = "Hello" & Chr(10) & Chr(10) _
& "Your " & Request & " Request #" & RequestID & " has been raised." _
& Chr(10) & Chr(10) _
& "You will receive confirmation once your request has been completed." _
& Chr(10) & Chr(10)

s = s & "For Administration Use Only" _
& Chr(10) & Chr(10) _
& "Contact Strategy - " _
& "<\\Liam\Agent Administration Suite\CS>" _
    & "As file name " & SaveFileCS & ".xls" _
    & Chr(10)
    
s = s & "Human Resources - " & _
    "<\\Liam\Agent Administration Suite\HR>" _
    & "As file name " & SaveFileHR & ".xls" _
    & Chr(10)
s = s & "IT Support - " _
    & "<\\Liam\Agent Administration Suite\ITS>" _
    & "As file name " & SaveFileITS & ".xls" _
    & Chr(10)
    
s = s & "Caseflow - " _
    & "<\\Liam\Agent Administration Suite\CASEFLOW>" _
    & "As file name " & SaveFileCASEFLOW & ".xls" _
    & Chr(10)
    
s = s & "Security/Reception - " _
    & "<\\Liam\Agent Administration Suite\SECURITY>" _
    & "As file name " & SaveFileSECURITY & ".xls" _
    & Chr(10) & Chr(10)
    
s = s & "General Viewing - " _
    & "<\\Liam\Agent Administration Suite\GENERAL>" _
    & "As file name " & SaveFileGENERAL & ".xls"

BodyMessage = s

End Function

 

[Colin Legg]

Untested, but try wrapping it with bold and underline tags:

s = s & "<b><u>For Administration Use Only</u></b>" _

 

[Norie]

You can''t use just Body if you want to format the body of the email.

You need to use HTMLBody and construct the appropriate HTML along the lines of what Colin posted.

By the way we're assuming, well I am anyway, that you are using MS Outlook.