converting to new mail queue api

This commit is contained in:
JT Smith 2006-03-21 03:36:44 +00:00
parent 7c71d93c1e
commit 47afbb0138
6 changed files with 13 additions and 13 deletions

View file

@ -534,9 +534,9 @@ sub www_emailGroupSend {
on a.userId=b.userId and b.fieldName='email' where a.groupId=".$session->db->quote($session->form->process("gid")));
while (($email) = $sth->array) {
if ($email ne "") {
my $mail = WebGUI::Mail::Send->new($session, {to=>$email,subject=>$session->form->process("subject"),from=>$session->form->process("from")});
my $mail = WebGUI::Mail::Send->create($session, {to=>$email,subject=>$session->form->process("subject"),from=>$session->form->process("from")});
$mail->addHtml($session->form->process("message","HTMLArea"));
$mail->send;
$mail->queue;
}
}
$sth->finish;