quote:

---

Originally posted by HuwR

borge,

to accomplish this bit

quote:

---

Alternatively an option which will enable the forum admin to approve "send mail" for members before reaching the required number of posts to send

---

The admin can just increase the members post count manually to allow them to send mail

---

quote:

---

Originally posted by Desmomax

great mod! works fine!!!
is it possible to do same with private messages?
10x

---

	    			strPMNID = rsName("MEMBER_ID")
    				strPMRecv = rsName("M_PMRECEIVE")
	    			strPMNEmail = rsName("M_PMEMAIL")

'######## Private Message Spam Mod ############
   strSql = "SELECT M_NAME, M_POSTS FROM " & strMemberTablePrefix & "MEMBERS M"
   strSql = strSql & " WHERE M.MEMBER_ID = " & MemberID
   set rs = my_Conn.Execute (strSql)

   If Not rs.EOF then
      intMPosts = rs("M_POSTS")

Dim strSpamMin
strSpamMin = "10"

      if intMPosts < 10 then
         strErrMessage = "<li>You have not posted at least " & strSpamMin & " messages to be able to Private Message other members.</li>"
            strSpammerName = RS("M_NAME")

         'Send email to forum admin
         strRecipients = strSender
         strFrom = strForumTitle & " <" & strSender & ">"
         strSubject = "Possible Private Message Spam Poster"
         strMessage = "There is a possible spam poster at " & strForumTitle & vbNewLine & vbNewLine
         strMessage = strMessage & "Member " & strSpammerName & ", with MemberID " & MemberID & ", has been trying to send Private Messages to " & Request.Form("sendto") & ", without having the required " & strSpamMin & " posts to be allowed to Private Message other users." & vbNewLine & vbNewLine 
         strMessage = strMessage & "Here are the message contents: " & VbNewLine & Request.Form("Msg") & vbNewLine & vbNewLine & vbNewLine & vbNewLine
         strMessage = strMessage & "This is a message sent automatically by " & strForumTitle & "."
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
	boolSend = false
     end If
   end if
   rs.Close
'############# End of Private Message Spam Mod #############

				if strPMRecv = "0" then
					strErrMessage = strErrMessage & "Sorry, " & arrNames(i) & " does not wish to receive private messages"
					boolSend = false
				end if
			end if

quote:

---

Originally posted by sergiomura

Hi!
I'm Sergio from Italy.
This mod is really beautiful, but we must consider that many of us use a pop-up box to send and receive the mp. So the code must change for use in pm_send_info.asp
Is it possible?

Sergio

---

strMessage = strMessage & "Here are the message contents: " & VbNewLine & Request.Form("Msg") & vbNewLine & vbNewLine & vbNewLine & vbNewLine
strMessage = strMessage & Request.ServerVariables("remote_addr") & " " & Now() & "Server Time" & vbNewline
strMessage = strMessage & "This is a message sent automatically by the Spam Control Mod ;)."