|
We have the activate email and the welcome email go to our web administrator, they set the acount up, put them in appropriate groups based on who they are and then email them with the user and password details. We modified the register.asp to this.
'****************************************** '*** Send activate email *** '******************************************
'Inititlaise the subject of the e-mail that may be sent in the next if/ifelse statements strSubject = "" & strTxtWelcome & " " & strTxtEmailToThe & " " & strMainForumName
'If the members account needs to be activated or reactivated then send the member a re-activate mail a redirect them to a page to tell them there account needs re-activating If (blnEmailActivation = True AND strMode = "new") OR blnAccountReactivate = True Then
'Send an e-mail to enable the users account to be activated 'Initailise the e-mail body variable with the body of the e-mail strEmailBody = strTxtHi & " " & decodeString(strUsername) strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailThankYouForRegistering & " " & strMainForumName & "." strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtUsername & ": - " & decodeString(strUsername) strEmailBody = strEmailBody & vbCrLf & strTxtPassword & ": - " & strPassword strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtToActivateYourMembershipFor & " " & strMainForumName & " " & strTxtForumClickOnTheLinkBelow & ": -" strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumPath & "/activate.asp?ID=" & Server.URLEncode(strUserCode)
'Send the e-mail using the Send Mail function created on the send_mail_function.inc file blnSentEmail = SendMail(strEmailBody, decodeString(strUsername), mailto:admin@yourcompany.com - admin@yourcompany.com , strRealName, decodeString(strEmail), strSubject, strMailComponent, false)
'Reset server Object rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing
'Redirect the reactivate page If blnAccountReactivate = True Then Response.Redirect("register_confirm.asp?TP=REACT&FID=" & intForumID) 'Redirect to the activate page Else Response.Redirect("register_confirm.asp?TP=ACT&FID=" & intForumID) End If
'****************************************** '*** Send welcome email *** '******************************************
'Send the new user a welcome e-mail if e-mail notification is turned on and the user has given an e-mail address ElseIf blnEmail = True AND strEmail <> "" AND strMode = "new" Then
'Initailise the e-mail body variable with the body of the e-mail strEmailBody = strTxtHi & " " & decodeString(strUsername) strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailThankYouForRegistering & " " & strMainForumName & "." strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailYouCanNowUseTheForumAt & " " & strWebsiteName & " " & strTxtEmailForumAt & " " & strForumPath strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtUsername & ": - " & strUsername strEmailBody = strEmailBody & vbCrLf & strTxtPassword & ": - " & decodeString
------------- Clayton
|