This is where I'm at at the moment:
I'm passing a string to Outlook to be emailed. I would like to put the highlighted blue line above in bold so that Outlook recognises it as such. Is this possible? Any ideas?
Thanks!
Code:
If Who = "SSR" Then
Dim mess_body, Email, boldmess As String
Dim appOutLook, MailOutLook
Email = "Me"
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
mess_body = "Scheme: " + Scheme + vbCrLf
mess_body = mess_body + "Pin: " + Pin + vbCrLf + vbCrLf
mess_body = mess_body + "The " + Section + " section of the above scheme of yours has been accepted as " + SecStatus + " by the SSR Specialist. Please enter SUMIS to see details." + vbCrLf + vbCrLf + "If you are no longer responsible for this project, email SUMIS support at mailto:SSRBristol. "
[COLOR="Blue"] boldmess = "This is an automated email, please do not respond directly."[/COLOR]
mess_body = mess_body + vbCrLf + vbCrLf + boldmess
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = Email
.Importance = 2
.Subject = "SUMIS Update"
.Body = mess_body
.DeleteAfterSubmit = False
.Send
End With
End If
I'm passing a string to Outlook to be emailed. I would like to put the highlighted blue line above in bold so that Outlook recognises it as such. Is this possible? Any ideas?
Thanks!