Hello,
I am running the following code:
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:
Code:
"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