quote:

---

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
this is a change to the private messages so that you can send to multiple recipients instead of just only 1 person at a time.

For example, suppose I want to send the same private message to Richard, Gor, and Huwr. I would just put "Richard, Gor, Huwr" in the send To input box and the message would get sent to all 3.

Just copy and past the text to replace privatesend_info.asp from the private messages MOD.

txt file: http://www.calvsa.net/snitz31sr4/privatesend_info.txt

you can try testing sending multiple recipients before you use this mod, at: http://www.calvsa.net/snitz31sr4/

- Alan

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

I just visited your site.I have some questions:

1) How have you done the automatic letter that comes with the private messages?
2) How have you done the buddy list!?


cheers
/CHEETAH

---

quote:

---

I just visited your site.I have some questions:

1) How have you done the automatic letter that comes with the private messages?
2) How have you done the buddy list!?


cheers
/CHEETAH

---

quote:

---

is this a problem with this add-on in particular or in Private messages mod in general?

- Alan
www.iamviet.com

---

quote:

---

I just tryed a username like īsabella on my test site, registered it, sent PM's to it, sent PM's from it and all the PM's worked.

I am using Richards latest version of PM and Aznknight's privatesend_info.asp

Intrepidone

---

quote:

---

hey dewattstanfield,

release your code that sends pm to all members, it'll go well with this mod of sending to multiple recipients. I'll combine the two and release it as a new mod with both of us as authors.

- Alan
www.iamviet.com

---

if Request.Form("sendto") = "" then
Go_Result "You Must Supply a member name to send this message!", 0
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
end if

'##### PM all members one line ####
if Request.form("allmem") = false then
if Request.Form("sendto") = "" then
Go_Result "You Must Supply a member name to send this message!", 0
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
end if
'##### pm all members one line ####
end if

'**********************START MULTIPLE RECIPIENTS MOD****************
dim arrNames, strMessage, BoolSend

'############### Start PM all members #################		
if Request.form("allmem") = "true" then
strSql = "SELECT M_NAME"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_PMRECEIVE = 1"
strSQL = strSQL & " ORDER BY M_NAME Asc"
set rsName = my_Conn.Execute (strSql)
rsName.movefirst
while not rsName.eof
arrAllNames = arrAllNames & rsName("M_NAME") & ","
rsName.movenext
wend
rsName.close
set rsName = nothing
arrNames = split(arrAllNames, ",")
else
'############## End PM all members ###################

arrNames = split(Request.Form("sendto"), ",")

'############### PM all members one line ###################	
end if

my_Conn.Execute (strSql)

if request.form("allmem") = false then	'################# PM all members Mod - Take out e-mail notification ################
if strEmail = "1" and rsName("M_PMEMAIL") = "1" then
DoReplyEmail Request.Form("sendto")
end if	'################ PM all members Mod - Take out e-mail notification ################

<td bgColor="<% =strPopUpTableColor %>"><input name="sendto" value="<% =Request.Querystring("mname") %>" size="50">  <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>-1"><a href="JavaScript:pmmembers();">Memberlist</a>

<!-- All Member PM Modification Begin -->
<%if (mLev = 4) then %>
<input type="checkbox" name="allmem" value="true">Send PM to all users
<%end if%>
<!-- All Member PM Modification End -->