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), 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