Sending custom text in email

[fletcjas]

Hello,
I am running the following code:

Set emailObj = CreateObject("CDO.Message")


emailObj.From = "FROM EMAIL ADRESS"
emailObj.To = Me.EmailAddress.Value


'emailObj.To = "TO EMAIL ADDRESS"
emailObj.Subject = "Portal Account Reset"
emailObj.TextBody = "CUSTOM TEXT HERE"
Set emailConfig = emailObj.Configuration


emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVER"
'Exclude the following line
'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "EMAIL ADDRESS"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "EMAIL PASSWORD"
emailConfig.Fields.Update


emailObj.Send

I am looking to have the text say something like:

"Hello " & Me.FirstName.Value & ", Your login information has been reset." & "" & Chr(13) & Chr(10) & "The security questions have been removed, and your new password is:" & Me.Password.Value & " "- Please use this at next logon, Web address: https://SERVER" & "" & Chr(13) & Chr(10) & "If this was not requested, please contact a member of the team" & "" & Chr(13) & Chr(10) & "HBK Karate & "" & Chr(13) & Chr(10) & " https://SERVER"

I am looking for it to be formatted like this:

Hello NAME,
Your portal login information has been modified,
the security questions and password have been reset.

Your new password is: PASSWORD

Please login and change your password via https://SERVER.

If the account modification was not requested, please contact a member of the team.

regards
team
email@server
https://server

What am i doing wrong,



Thanks

Jason

[pbaldy]

To get the bold you'd need to use HTML in the body. It looks like it's covered here:

https://www.rondebruin.nl/win/s1/cdo.htm

[fletcjas]

To get the bold you'd need to use HTML in the body. It looks like it's covered here:

https://www.rondebruin.nl/win/s1/cdo.htm

Hey,

The bold shows where the text is pulled in from the database, I'm not worried about these being bold - Should have said that in the original thread.

Thanks

Jase

[pbaldy]

Oh, you're on the right track then. I'd use a variable:

stBody = "Hello " & Me.FirstName.Value & ", Your..."

and then

emailObj.TextBody = strBody

That makes it easier to debug the string.

[fletcjas]

Thanks for the reply. I had added extra speech marks where not required! This has been resolved! thanks for your help.. I should have spotted it.. Long day!

[pbaldy]

Ah good, glad you got it sorted. Sorry, I had only looked at the first bit of the string.