Apply Bold To Partial String

[ir121973]

Hi, I wonder whether someone could help me please.

I'm using a script to send out a automated email which contains several lines of text.

One such line is as follows:

vbNewLine & vbNewLine & _"Please DO NOT copy the username and password from this email, but key them directly into the login page." & _

Could someone tell me please how I could bold text the wording DO NOT.

I've been researching this, but all of the information I've found relates to cell or comment values rather than text within the code itself.

Many thanks and kind regards

Chris

 

[wideboydixon]

If you want to add formatting to the body of the e-mail then you'll need to get the .HTMLBody property of the message and not the .Body property. If you do that, however, you'll have to use "<p> ... </p>" or "<br/>" to generate new lines in your message. For example:

newMail.HTMLBody = "<br/><br/>Please <b>DO NOT</b> copy the username and password from this email, but key them directly into the login page."

If you're doing this then perhaps it's also a nice touch to provide a link to the login page using <a> tags around the word "login".

WBD

 

[wideboydixon]

Duplicate.

 

[ir121973]

Hi @wideboydixon, thank you for taking the time to come back to me with this and my apologies for not coming back to you sooner.

I wasn't able to get the solution working you kindly provided, but I found a post here: excel vba - Change HTML email body font type and size in VBA - Stack Overflow

Some of the issues I have is that part of the body of the text extract cell values, my apologies not making this clearer.

Here is the complete email text:

With OutMail
                .To = cell.Value
                .Subject = "Splunk Access"
                .Body = "Hi " & Cells(cell.Row, "A").Value _
                    & vbNewLine & vbNewLine & _
                        "I have been asked to create an account for you." & _
                    vbNewLine & vbNewLine & _
                        "Your username and password details are:" & _
                    vbNewLine & vbNewLine & _
                        "Username: " & Cells(cell.Row, "C").Value & _
                    vbNewLine & _
                        "Password: " & Cells(cell.Row, "I").Value & _
                    vbNewLine & vbNewLine & _
                        "Please DO NOT copy the username and password from this email, but key them directly into the login page." & _
                    vbNewLine & vbNewLine & _
                        "When you do log into your account, at your earliest convenience change your password to a more secure one." & _
                    vbNewLine & vbNewLine & _
                        "You can do this by clicking on your name on the top menu and select 'Edit Account'." & _
                    vbNewLine & vbNewLine & _
                        "You can use this link to get to the log in page for this environment: " & _
                    vbNewLine & vbNewLine & _
                        "PROD: https://...."

So I'm now trying to bring the two together.

Have you any ideas please?

Many thanks and kind regards

Chris