By reporting abuse, a moderator will be asked to review the content of this interaction to take further action, if necessary.
If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "<font face=""Arial"">Contact Us Form submitted: " & Now() & vbCrLf & "<br>" & "<br>" strBody = strBody & "<strong>FROM:</strong> http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "<br>" & "<br>" strBody = strBody & "<strong>SENDER'S IP ADDRESS:</strong> " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "<br>" & "<br>" strBody = strBody & "<strong>SENDER'S NAME:</strong> " & Replace(ContactUs_Name,vbCr,"<br>") & "<br>" strBody = strBody & "<strong>SENDER'S E-MAIL ADDRESS:</strong> " & Replace(ContactUs_Email,vbCr,"<br>") & "<br>" strBody = strBody & "<strong>MESSAGE SUBJECT:</strong> " & Replace(ContactUs_Subject,vbCr,"<br>") & "<br>" & "<br>" strBody = strBody & "<strong>MESSAGE:</strong> " & Replace(ContactUs_Body,vbCr,"<br>") & "<br>" strBody = strBody & "</font>" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver 'Name of your SMTP server entered in before the <HEAD> object marker ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'Use 25, or 587 if your alternate non-SSL port is 587 for non-SSL. Use 465 for SSL ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' SMTP server connection timeout. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail 'Name of your full e-mail address as entered in before the <HEAD> object marker ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ' Your password as entered in before the <HEAD> object marker. ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail 'Name of your full e-mail address as entered in before the <HEAD> object marker. You are sending TO and FROM the same e-mail address but using a REPLY TO e-mail address captured from the CONTACT US e-mail address ObjSendMail.Subject = ContactUs_Subject ' The subject of the message ObjSendMail.From = ContactUs_Email ' The e-mail address entered into the form, used as both the REPLY TO and address of the person to be contacted ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody ' uncomment to send HTML 'ObjSendMail.TextBody = strBody ' uncomment to send TEXT - only one of the two can be uncommented ObjSendMail.Send Set ObjSendMail = Nothing
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add noreply@smartertools.com to your trusted senders list in your email software.
A code was sent to the recovery email address. Please provide the 6-digit code.
A code can be retrieved from your authentication app. Please provide the 6-digit code.
An email was sent to your recovery email address. If you need further assistance, please contact your system admin.
Passkeys let you sign in quickly and securely using your fingerprint, face, or device PIN. No password needed!