Web Wiz Support and Community Forums : PM all users? https://forums.webwiz.net/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 08 Apr 2026 05:21:51 +0000 Tue, 20 Apr 2004 09:04:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.08 360 https://forums.webwiz.net/RSS_post_feed.asp?TID=10023 <![CDATA[Web Wiz Support and Community Forums]]> https://forums.webwiz.net/forum_images/web_wiz_forums.png https://forums.webwiz.net/ <![CDATA[PM all users? : No need to move: http://foru...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54669.html#54669 Author: FreeMen
Subject: 10023
Posted: 20 April 2004 at 9:04am

No need to move:

http://forums.webwiz.net/forum_posts.asp?TID=29 55

]]> Tue, 20 Apr 2004 09:04:57 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54669.html#54669 <![CDATA[PM all users? : Good idea, since it was removed...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54640.html#54640 Author: FreeMen
Subject: 10023
Posted: 20 April 2004 at 1:46am

Good idea, since it was removed there...]]> Tue, 20 Apr 2004 01:46:33 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54640.html#54640 <![CDATA[PM all users? : Perhaps this should be moved to...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54574.html#54574 Author: MadDog
Subject: 10023
Posted: 19 April 2004 at 1:32pm

Perhaps this should be moved to the mods forum? ]]> Mon, 19 Apr 2004 13:32:21 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54574.html#54574 <![CDATA[PM all users? : I found this by Fernan some time...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54536.html#54536 Author: FreeMen
Subject: 10023
Posted: 19 April 2004 at 8:10am

I found this by Fernan some time ago. Check it out....

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<%
 '*********************************************************** *****************************
'PM Groups Mod by Fernan http://uz.webhop.info
 '*********************************************************** *****************************
'Set the buffer to true
Response.Buffer = True
'Make sure this page is not cached
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "private"
'Declare variables
Dim strMode    'Holds the mode of the page
Dim strPostPage   'Holds the page the form is posted to
Dim lngMessageID  'Holds the pm id
Dim strTopicSubject  'Holds the subject
Dim strBuddyName  'Holds the to username
Dim dtmReplyPMDate  'Holds the reply pm date
Dim strMessage   'Holds the post message
Dim intForumID   'Holds the forum number
Dim SQL
Dim intRecordLoopScan

'Set the mode of the page
strMode = "PM"
lngMessageID = 0

'If the user is user is using a banned IP redirect to an error page
If bannedIP() Then
 'Clean up
 Set rsCommon = Nothing
 adoCon.Close
 Set adoCon = Nothing
 'Redirect
 Response.Redirect("insufficient_permission.asp?M=IP")
End If
 
'If Priavte messages are not on then send them away
If blnPrivateMessages = False Then
 'Clean up
 Set rsCommon = Nothing
 adoCon.Close
 Set adoCon = Nothing
 'Redirect
 Response.Redirect("default.asp")
End If

'If the user is not allowed then send them away
If Not blnAdmin Then
 'Clean up
 Set rsCommon = Nothing
 adoCon.Close
 Set adoCon = Nothing
 'Redirect
 Response.Redirect("insufficient_permission.asp")
End If

%>
<html>
<head>
<script  language="JavaScript">
function CheckForm () {
 var errorMsg = "";

 
 if (document.frmPMs.pmSubject.value==""){
  errorMsg += "\n\tYou must enter a subject.";
 }
 
 if (document.frmPMs.pmBody.value==""){
  errorMsg += "\n\tYou must enter a message body.";
 }

 
 if (errorMsg != ""){
  msg =  "___________________________________________________________ ____\n\n";
  msg += "The form has not been submitted because there are problem(s) with the form.\n";
  msg += "Please correct the problem(s) and re-submit the form.\n";
  msg +=  "___________________________________________________________ ____\n\n";
  msg += "The following field(s) need to be corrected: -\n";
  errorMsg += alert(msg + errorMsg + "\n\n");
  return false;
 }
 return true;
}
</script>
</head>
<title>PM Groups Mod by Fernan</title>

<%
 '*********************************************************** **********************************
%>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber1" height="95" align = "center">
    <tr>
      <td width="100%" height="95" valign="top">
<form method="post" name="frmPMs" action="send_pms.asp" onSubmit="return CheckForm();">
  <br>
  <p style="margin-left: 10; margin-right: 10">
Group to PM: 
      <select size="1" name="pmGID">
<%
SQL = "SELECT tblGroup.Group_ID, tblGroup.Name FROM tblGroup Where Not tblGroup.Name = 'Guest'"
rsCommon.CursorType = 1
rsCommon.Open SQL, adoCon
For intRecordLoopScan = 1 to rsCommon.RecordCount
If Not rsCommon.EOF Then
%>
<option value="<% = rsCommon("Group_ID") %>"><% = rsCommon("name") %></option>"
<%
End If
rsCommon.MoveNext
Next
%>
<option value="All">All</option>
      </select><br><br>
Subject: <input type="text" name="pmSubject" size="30" maxlength="41"><br>
<br>
<textarea rows="13" name="pmBody" cols="54"></textarea><br><br>
<center><input type="Submit" value="Send" name="Submit">&nbsp;&nbsp;<input type="reset" value="Reset" name="Reset"></center>
      </form>
      </p>
      </td>
    </tr>
  </table>

<%
'Reset server variables
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%><br />
<div align="center">
</div>
</html>

Save as something and just go to that page...

Good luck!

]]> Mon, 19 Apr 2004 08:10:48 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54536.html#54536 <![CDATA[PM all users? : Ahh, good idea! Maybe this will...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54248.html#54248 Author: Mikael
Subject: 10023
Posted: 16 April 2004 at 4:54pm

Ahh, good idea! Maybe this will be included in the admin-area in the next version...

]]> Fri, 16 Apr 2004 16:54:06 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54248.html#54248 <![CDATA[PM all users? : re create the private message...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54230.html#54230 Author: dj air
Subject: 10023
Posted: 16 April 2004 at 2:51pm

re create the private message form .. but instead of just adding it for one user .. do a loop... so that it loops around untill the records are eof

for each loop do an add new for the user from your self

]]> Fri, 16 Apr 2004 14:51:44 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54230.html#54230 <![CDATA[PM all users? : I found a mass e-mail function...]]> https://forums.webwiz.net/pm-all-users_topic10023_post54229.html#54229 Author: Mikael
Subject: 10023
Posted: 16 April 2004 at 2:48pm

I found a mass e-mail function in the forum, but I want to mass-PM all my users. Is there a simple way to do this in?]]> Fri, 16 Apr 2004 14:48:33 +0000 https://forums.webwiz.net/pm-all-users_topic10023_post54229.html#54229