| Author |
 Topic  |
|
kolucoms6
Average Member
845 Posts |
 Posted - 08 March 2007 : 04:44:15
|
Is it possible to send email verification reminder to only few select members instead of all ?If yes, how..Kindly guide me... |
|
|
JJenson
Advanced Member
USA
2121 Posts |
Posted - 12 March 2007 : 10:57:03
|
| I do not believe there is a way to do this right now. I have not come across or head about any mods that do this. You could always try and write you own? |
 |
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 14 March 2007 : 08:49:43
|
If what you want to do is be able to select certain members to "remind" about their pending registration, then the answer is yes. It is possible, I added it to my forums some time ago as I would have people register and then never finish the process for weeks.
If I remember correctly, the only changes you need to make are in admin_accounts_pending.asp.
around line 206 (before elseif strAction = "delete" then), add:
'#########################################
elseif strAction = "remindall" then
Call EmailMembers("remindall")
Response.Write " <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Reminded!</b></font></p>" & vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>All Pending Members have reminded! Their registration e-mails have been re-sent to them.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
WriteFooter
Response.End
elseif strAction = "remind" then
Call EmailMembers("remind")
Response.Write " <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Members Reminded!</b></font></p>" & vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_accounts_pending.asp" & strPage & """>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Selected Pending Members have reminded! Their registration e-mails have been re-sent to them.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp" & strPage & """>Back To Members Pending</font></a></p><br />" & vbNewLine
WriteFooter
Response.End
'###########################################
around line 619 (after the next), add:
'######################################################
'#################email reminder
elseif who = "remindall" then
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE, M_DATE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " ORDER BY MEMBER_ID ASC"
set rsApprove = Server.CreateObject("ADODB.Recordset")
rsApprove.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsApprove.EOF then
recApproveCount = ""
else
allApproveData = rsApprove.GetRows(adGetRowsRest)
recApproveCount = UBound(allApproveData, 2)
end if
rsApprove.Close
set rsApprove = Nothing
if recApproveCount <> "" then
mM_NAME = 0
mM_EMAIL = 1
mM_KEY = 2
mM_APPROVE = 3
mM_DATE = 4
for RowCount = 0 to recApproveCount
MP_MemberName = allApproveData(mM_NAME,RowCount)
MP_MemberEMail = allApproveData(mM_EMAIL,RowCount)
MP_MemberKey = allApproveData(mM_KEY,RowCount)
MP_MemberApprove = allApproveData(mM_APPROVE,RowCount)
MP_MemberDate = allApproveData(mM_Date,RowCount)
if MP_MemberApprove = 1 then
'## E-mails Message to all pending members.
strRecipientsName = MP_MemberName
strRecipients = MP_MemberEMail
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
days = DateDiff("d", StrToDate(MP_MemberDate), strForumTimeAdjust)
if days > 20 then
strMessage = "**********************" & vbNewline & vbNewline
strMessage = strMessage & "*****FINAL NOTICE*****" & vbNewline & vbNewline
strMessage = strMessage & "**********************" & vbNewline & vbNewline
strMessage = strMessage & "Hello " & MP_MemberName & vbNewline & vbNewline
else
strMessage = "Hello " & MP_MemberName & vbNewline & vbNewline
end if
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
strMessage = strMessage & "Your registration has been approved for **" & days & "** days and is awaiting email validation." & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & MP_MemberKey & vbNewline & vbNewline
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
next
end if
elseif who = "remind" then
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_DATE, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
set rsApprove = my_Conn.Execute(strSql)
if not(rsApprove.EOF) and not(rsApprove.BOF) and rsApprove("M_APPROVE") = 1 then
'## E-mails Message to all pending members.
strRecipientsName = rsApprove("M_NAME")
strRecipients = rsApprove("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration Reminder "
days = DateDiff("d", StrToDate(rsApprove("M_DATE")), strForumTimeAdjust)
if days > 20 then
strMessage = "**********************" & vbNewline & vbNewline
strMessage = strMessage & "*****FINAL NOTICE*****" & vbNewline & vbNewline
strMessage = strMessage & "**********************" & vbNewline & vbNewline
strMessage = strMessage & "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
else
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
end if
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
strMessage = strMessage & "Your registration has been approved for **" & days & "** days and is awaiting email validation." & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & rsApprove("M_KEY") & vbNewline & vbNewline
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
'####################################################
Try this and let me know if I forgot anything. |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 14 March 2007 : 10:02:07
|
I added code at "around line 206 " but 619 line number not there.
Can you give me the exact 3-4 lines code at line number 619 in yours ?
Do I need add the code after these below lines ? :
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
Also, I believe we need to add few code after below code :
" <li><a href=""javascript:del_all()"">Delete All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:del_selected()"">Delete Selected Pending Members</a></li>" & vbNewLine & _
" <li><a href=""admin_accounts_pending_reminder.asp"">Send Reminder</a></li></font></td>" & vbNewLine & _
|
Edited by - kolucoms6 on 14 March 2007 10:56:55 |
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 14 March 2007 : 10:27:14
|
Line 619 see below:
elseif who = "selected" then
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
set rsApprove = my_Conn.Execute(strSql)
if not(rsApprove.EOF) and not(rsApprove.BOF) and rsApprove("M_APPROVE") = 0 then
'## E-mails Message to all pending members.
strRecipientsName = rsApprove("M_NAME")
strRecipients = rsApprove("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
if strAuthType="db" then
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & rsApprove("M_KEY") & vbNewline & vbNewline
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
!!!!!!!!!!!!!!!!!!!!!!!!LINE #619 after other code added already
end if
end sub
%> |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 14 March 2007 : 10:27:52
|
Kolucoms, please do not post multiple replies in quick succession, if you need to make additions or changes to reply you've just made, edit it instead.
|
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 14 March 2007 : 10:28:29
|
quote:
Originally posted by kolucoms6
Also, I believe we need to add few code after below code :
" <li><a href=""javascript:del_all()"">Delete All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:del_selected()"">Delete Selected Pending Members</a></li>" & vbNewLine & _
" <li><a href=""admin_accounts_pending_reminder.asp"">Send Reminder</a></li></font></td>" & vbNewLine & _
Good catch. I always seem to forget something. :)
This should give you the links to activate it:
if strRestrictReg = "1" then
Response.Write " <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <li><a href=""javascript:appr_all()"">Approve All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:appr_selected()"">Approve Selected Pending Members</a></li></font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <li><a href=""javascript:remind_all()"">Remind All Pending Members</a></li>" & vbNewLine & _
" <li><a href=""javascript:remind_selected()"">Remind Selected Pending Members</a></li></font></td>" & vbNewLine
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _ |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 14 March 2007 : 10:38:36
|
Ok Shaggy.
quote:
Originally posted by Shaggy
Kolucoms, please do not post multiple replies in quick succession, if you need to make additions or changes to reply you've just made, edit it instead.
|
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 14 March 2007 : 10:55:42
|
When I click on Remind Selected Pending Members, I get an error :
Object expected.
Seems like some Javascript Error. |
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 14 March 2007 : 13:54:11
|
Right, next forgotten piece coming your way. Sorry about that...
I really should have commented this one better. :)
Insert at line # 67 before ( " function remind_all(){" & vbNewLine & _):
'#################email reminder
" function remind_all(){" & vbNewLine & _
" var where_to= confirm(""Do you really want to Remind all Pending Members?"");" & vbNewLine & _
" if (where_to== true) {" & vbNewLine & _
" document.delMembers.action.value = 'remindall';" & vbNewLine & _
" document.delMembers.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" function remind_selected(){" & vbNewLine & _
" var where_to= confirm(""Do you really want to Remind the Selected Pending Members?"");" & vbNewLine & _
" if (where_to== true) {" & vbNewLine & _
" document.delMembers.action.value = 'remind';" & vbNewLine & _
" document.delMembers.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
'#############################
I am adding comments as we go.
|
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 14 March 2007 : 14:16:05
|
Gr8..Its working...Thanks a lot...
One more small question :Below options are NOT available.How to make them avaialble to Admin ?
Approve All Pending Members
Approve Selected Pending Members
What is strRestrictReg ?
|
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 15 March 2007 : 13:22:38
|
Glad it is working.
strRestrictReg is set when you have restrict registration turned on in admin options.
for the options not showing, look for
if strRestrictReg = "1" then scolspan = " colspan=""
what is the value after colspan?
|
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 15 March 2007 : 13:59:23
|
| if strRestrictReg = "1" then scolspan = " colspan=""2""" |
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 15 March 2007 : 14:24:12
|
| increase colspan by 1 |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 15 March 2007 : 14:31:56
|
means if strRestrictReg = "1" then scolspan = " colspan=""3""" ??
Did it, but no difference.. |
Edited by - kolucoms6 on 15 March 2007 14:35:20 |
|
|
|
PPSSWeb
Junior Member
312 Posts |
Posted - 15 March 2007 : 14:49:37
|
Please verify that you have "Restrict Registration: " selected in the admin options -> E-mail Server Configuration.
|
|
|
|
Topic |
|
Topic Locked
