email_notify_subscriptions admin

Sorry I do not understand what you are asking

The reason why the admin can't sign others up for forum notification is that users must do this themselves if they want email notifications of posts.

If they don't request this themselves then this could be considered as spam.

Having such a feature whereby the admin could force users to have email notification of all posts would be illegal in the US and Europe whereby anti-spam laws require that the user subscribe themselves to such a service.

Isn't it simpler just to tell your moderators they need to sign up to email notification?

-borg-, you can determine whether or not this should be posted due to the legality issues in the US and Europe.... I had the same issue in needing to send an email to a group (in our case, Technical Services) whenever a post was made in specific areas of our forum.

(All line references are approximations)

Sending email to a group by Category

Line 106 ADD
Dim intCatID   'Holds the cat ID

Line 108 ADD
intCatID = trim(Request.Form("cat"))

Line 1116 ADD (right after the two end if's)
'******************************
'***   Send Email Notification #2   ***
'******************************
strUserEmail=""
Select Case intCatID
  '2 = Category 1
  '3 = Category 2
  '4 = Forum Rules
  '5 = Internal Use Only
  Case "2"
    strUserEmail="group1@mydomain.com"
  Case "3"
    strUserEmail="group2@mydomain.com"
  Case "4"
    strUserEmail="group1@mydomain.com"
  Case "5"
    strUserEmail="group9@mydomain.com"
  Case Else
    strUserEmail="admin@mydomain.com"
End Select
if strUserEmail<>"" then
  strEmailMessage = "*** TECH SERVICE EMAIL ***" & _
  "<br /><br />" & strTxtEmailClickOnLinkBelowToView & " : -" & _
  "<br /><a href=""" & strForumPath & "/forum_posts.asp?TID=" & lngTopicID & "&PID=" & lngMessageID & "#" & lngMessageID & """>" & strForumPath & "/forum_posts.asp?TID=" & lngTopicID & "&PID=" & lngMessageID & "#" & lngMessageID & "</a>"
  'If we are to send the post then attach it as well
  If blnSendPost = True Then strEmailMessage = strEmailMessage & "<br /><br /><hr />" & strPostMessage
    blnEmailSent = SendMail(strEmailMessage, decodeString(strUserName), decodeString(strUserEmail), strMainForumName, decodeString(strForumEmailAddress), decodeString(strEmailSubject), strMailComponent, true)
  end if

/include/message_form_inc.asp

Line 66 ADD
 <input type="hidden" name="cat" value="<%=intCatID%>">

Edited by gariputro - 26 January 2007 at 2:25pm