Our user need input email, how admin can send bulk email to all member in admin login?
Thx
------------------
Thx
------------------
Jun 26, 1999, 5:16 PM
Veteran / Moderator (8669 posts)
Jun 26, 1999, 5:16 PM
Post #2 of 12
Views: 5637
I suppose you'd need to make two more subroutines, one for the form which the admin would use to write the message (in html.pl) and one to pull the email addresses out and send the message to everyone (in db.cgi).
I'll put it on my list to think about how to do it and I'll get back to you if I come up with the code.
------------------
JPD
I'll put it on my list to think about how to do it and I'll get back to you if I come up with the code.
------------------
JPD
Jun 26, 1999, 7:07 PM
Veteran / Moderator (8669 posts)
Jun 26, 1999, 7:07 PM
Post #3 of 12
Views: 5647
Okay. Here's what I came up with. It does not do any error-checking to make sure the email address is correct.
In default.cfg add
$admin_email = "you\@server.com";
# Email program on your system -- leave the flags as they are so any errors will be caught
$mailprog = "|/usr/sbin/sendmail -t -oeq";
# Field number of email field
$db_email_field = 4;
Change the above values to match your system and your database.
In db.cgi, sub main, in the midst of all the other "elsif" statements, add
elsif ($in{'send_email'}) { if ($per_admin) { &send_email; } else { &html_unauth; } }
Somewhere in db.cgi, add the following new subroutine:
#-----------------------------------
unless ($in{'subject'}) { $message .= "You must fill in a subject for your message.<BR>"; }
unless ($in{'emailmessage'}) { $message .= "Your email message is empty.<BR>"; }
if ($message) {
chomp($message);
&html_send_email_form($message);
return;
}
open (DB, "<$db_file_name") or &cgierr("error in send email. unable to open db file: $db_file_name.\nReason: $!");
if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = &split_decode($line);
push(@email_list,$data[$db_email_field]);
}
foreach $email (@email_list) {
open (MAIL, "$mailprog") or &cgierr("unable to open mail program");
print MAIL "To: $email\n";
print MAIL "From: $admin_email\n";
print MAIL "Subject: $in{'subject'}\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL $in{'emailmessage'};
close (MAIL);
}
&html_send_email_success;
}
In html.pl add the following two subroutines:
#--------------------------------
my ($message) = $_[0];
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send an email</b></td></tr>
<tr><td><p><center><$font_title><b>Send an email</b></font></center><br>|;
# <-- introductory text -->
if ($message) { print qq|There was a problem: $message|; }
print qq|
<$font>Fill in your email address, the subject of your email and the
message you wish to send.</font>
|;
# <-- email form -->
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<table>
<tr><td align=right><$font>Subject:</font></td>
<td><input type=text name="subject" value="$in{'subject'} size=40></td></tr>
<tr><td align=right><$font>Your message:</font></td>
<td><textarea name="emailmessage" width=40 height=10>$in{'emailmessage'}</textarea></td></tr>
</table>
<center>
<INPUT TYPE="SUBMIT" NAME="send_email" VALUE="Send Email">
<INPUT TYPE="RESET" VALUE="Reset Form">
</center>
</form>
|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
sub html_send_email_success {
#----------------------------------
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send an email</b></td></tr>
<tr><td><p><center><$font_title><b>Email sent</b></font></center><br>
|;
# <-- text -->
print qq|<$font>Your email message was sent.</font>|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
In html.pl, sub html_footer, add the following line:
I have tested this for syntax errors, but that's all. Seems like it would work.
------------------
JPD
In default.cfg add
Code:
# Your email address. Be sure to leave in the \ before the @ $admin_email = "you\@server.com";
# Email program on your system -- leave the flags as they are so any errors will be caught
$mailprog = "|/usr/sbin/sendmail -t -oeq";
# Field number of email field
$db_email_field = 4;
Change the above values to match your system and your database.
In db.cgi, sub main, in the midst of all the other "elsif" statements, add
Code:
elsif ($in{'send_email_form'}) { if ($per_admin) { &html_send_email_form; }else { &html_unauth; } } elsif ($in{'send_email'}) { if ($per_admin) { &send_email; } else { &html_unauth; } }
Somewhere in db.cgi, add the following new subroutine:
Code:
sub send_email { #-----------------------------------
unless ($in{'subject'}) { $message .= "You must fill in a subject for your message.<BR>"; }
unless ($in{'emailmessage'}) { $message .= "Your email message is empty.<BR>"; }
if ($message) {
chomp($message);
&html_send_email_form($message);
return;
}
open (DB, "<$db_file_name") or &cgierr("error in send email. unable to open db file: $db_file_name.\nReason: $!");
if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = &split_decode($line);
push(@email_list,$data[$db_email_field]);
}
foreach $email (@email_list) {
open (MAIL, "$mailprog") or &cgierr("unable to open mail program");
print MAIL "To: $email\n";
print MAIL "From: $admin_email\n";
print MAIL "Subject: $in{'subject'}\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL $in{'emailmessage'};
close (MAIL);
}
&html_send_email_success;
}
In html.pl add the following two subroutines:
Code:
sub html_send_email_form { #--------------------------------
my ($message) = $_[0];
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send an email</b></td></tr>
<tr><td><p><center><$font_title><b>Send an email</b></font></center><br>|;
# <-- introductory text -->
if ($message) { print qq|There was a problem: $message|; }
print qq|
<$font>Fill in your email address, the subject of your email and the
message you wish to send.</font>
|;
# <-- email form -->
print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<table>
<tr><td align=right><$font>Subject:</font></td>
<td><input type=text name="subject" value="$in{'subject'} size=40></td></tr>
<tr><td align=right><$font>Your message:</font></td>
<td><textarea name="emailmessage" width=40 height=10>$in{'emailmessage'}</textarea></td></tr>
</table>
<center>
<INPUT TYPE="SUBMIT" NAME="send_email" VALUE="Send Email">
<INPUT TYPE="RESET" VALUE="Reset Form">
</center>
</form>
|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
sub html_send_email_success {
#----------------------------------
&html_print_headers;
# <-- top of page formatting -->
print qq|
<html><head><title>$html_title: Send an email</title></head>
<body bgcolor="#DDDDDD">
<center>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 align=center valign=top>
<tr><td bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Send an email</b></td></tr>
<tr><td><p><center><$font_title><b>Email sent</b></font></center><br>
|;
# <-- text -->
print qq|<$font>Your email message was sent.</font>|;
# <-- end of page formatting -->
&html_footer;
print qq|</td></tr></table></body></html>|;
}
In html.pl, sub html_footer, add the following line:
Code:
print qq!| <A HREF="$db_script_link_url&send_email_form=1">Send mass mailing</A> ! if ($per_admin);I have tested this for syntax errors, but that's all. Seems like it would work.
------------------
JPD
Jun 28, 1999, 12:21 AM
User (473 posts)
Jun 28, 1999, 12:21 AM
Post #7 of 12
Views: 5648
Wow, Great mod...
Only one thing, I found out, that the message goes to all owners of records in the DB. I have owners of more than one record, so they will have unneccesary more than one message. Is it possible to send just one message to owners of more records, maybe take the list of emailadresses out of the PW file, or something???
Thanks in advance.
Greetings,
--------
Mart.
Only one thing, I found out, that the message goes to all owners of records in the DB. I have owners of more than one record, so they will have unneccesary more than one message. Is it possible to send just one message to owners of more records, maybe take the list of emailadresses out of the PW file, or something???
Thanks in advance.
Greetings,
--------
Mart.
Jun 28, 1999, 12:22 AM
User (429 posts)
Jun 28, 1999, 12:22 AM
Post #8 of 12
Views: 5629
If you have a problem with timeouts because you're sending to too many addresses, you could use BCC: instead of To: when you're mailing, placing all or batches of addresses in there.
adam
adam
Jun 28, 1999, 1:45 AM
User (473 posts)
Jun 28, 1999, 1:45 AM
Post #9 of 12
Views: 5628
Thanks, but thats not what I mean, if I understand you good.
When I use BCC, all the adresses came in the mail to everyone I sent.
I think the emailadresses must be taken out of the pwfile, only I don't know how....
Greetings,
----------
Mart
When I use BCC, all the adresses came in the mail to everyone I sent.
I think the emailadresses must be taken out of the pwfile, only I don't know how....
Greetings,
----------
Mart
Jun 28, 1999, 7:54 AM
Veteran / Moderator (8669 posts)
Jun 28, 1999, 7:54 AM
Post #10 of 12
Views: 5639
Mart, instead of
if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = &split_decode($line);
push(@email_list,$data[$db_email_field]);
}
use
if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = split (/:/, $line);
push(@email_list,$data[7]);
}
Adam was referring to the question about whether the server would time out, not your question about using the password file.
------------------
JPD
Code:
open (DB, "<$db_file_name") or &cgierr("error in send email. unable to open db file: $db_file_name.\nReason: $!"); if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = &split_decode($line);
push(@email_list,$data[$db_email_field]);
}
use
Code:
open (DB, "<$auth_pw_file") or &cgierr("error in send email. unable to open password file: $$auth_pw_file.\nReason: $!"); if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;
LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { next LINE; }
chomp ($line);
@data = split (/:/, $line);
push(@email_list,$data[7]);
}
Adam was referring to the question about whether the server would time out, not your question about using the password file.
------------------
JPD
Jun 28, 1999, 8:12 AM
User (91 posts)
Jun 28, 1999, 8:12 AM
Post #11 of 12
Views: 5622
A quick note and maybe a laugh on scripting email routines.
Be very careful!
When I first experimented with email routines I accidentally placed the routine in a never ending loop that sent out about 12,000 emails before I figured out what was going on. Luckily I sent them to myself but I crashed my hosts server as well as my isp's mail server. Needless to say neither were too happy with Mike!
Thought that you might get a chuckle out of that. So just be careful of your coding.
Mike
Be very careful!
When I first experimented with email routines I accidentally placed the routine in a never ending loop that sent out about 12,000 emails before I figured out what was going on. Luckily I sent them to myself but I crashed my hosts server as well as my isp's mail server. Needless to say neither were too happy with Mike!
Thought that you might get a chuckle out of that. So just be careful of your coding.
Mike
Jul 20, 2003, 4:28 PM
Novice (27 posts)
Jul 20, 2003, 4:28 PM
Post #12 of 12
Views: 5493
I have sucessfully implmented your "Admin bulk email to all" code.
I have been trying to blend it with your "forward record" mod so that each email is personalized with an old fashioned "inside address" that contains the recipient's name, company name etc. However I cannot quite get it to pull the respective records.
Can you help?
Would you like me to post what I have done so far?
Respectfully,
Chef Mars
I have been trying to blend it with your "forward record" mod so that each email is personalized with an old fashioned "inside address" that contains the recipient's name, company name etc. However I cannot quite get it to pull the respective records.
Can you help?
Would you like me to post what I have done so far?
Respectfully,
Chef Mars