|
-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
/new_post.asp
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=" mailto:group1@mydomain.com - group1@mydomain.com " Case "3" strUserEmail=" mailto:group2@mydomain.com - group2@mydomain.com " Case "4" strUserEmail=" mailto:group1@mydomain.com - group1@mydomain.com " Case "5" strUserEmail=" mailto:group9@mydomain.com - group9@mydomain.com " Case Else strUserEmail=" mailto:admin@mydomain.com - 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%>">
/include/quick_reply_form_inc.asp
Line 201 ADD
vbCrLf & " <input type=""hidden"" name=""cat"" id=""cat"" value=""" & intCatID & """ />" & _
*edit: corrected my case statement... had a little PHP syntax mixed in 
*edit #2: moved the entire code body to ~line 1116 to also allow for replies to topics.
*edit #3: ammendment of quick reply form
|