I thought i sent it in plain text; here's the code again; I checked the
format and it says it's in plain text; I hope that's how you recieve it
this works:
use Mail::Sender;
my $email= '[EMAIL PROTECTED]';
my($ke,$na,$valu,@valu);
eval {
my $sender = new Mail::Sender {
smtp => '00.00.00.00,
from => '[EMAIL PROTECTED]',
auth=>'LOGIN',
authid=>'user',
authpwd=>'pswd',
to=>"$email",
bcc=>'[EMAIL PROTECTED]',
subject => 'form1',
on_errors => 'die'
};
$sender->Open();
$sender->SendLineEnc("A Form1 awaits your approval.");
$sender->SendLineEnc("\nNot really, this is only a test.");
$sender->SendLineEnc("\n\nThe form3 id needed to view the form 1 is:
$form3id");
$sender->SendLineEnc("\nThe person who filled it out is: $fn $ln");
$sender->SendLineEnc("\nThe email address is: $em");
$sender->Close();
#print"email sent<br>";
};
if ($@) {
text("Failed to send the message: [EMAIL PROTECTED]");
}
else{
$redirect =
"http://www.me.org/beta/members_only/forms/if_form_1_confirm.asp?form3_id=$f
orm3id";
print "Location: $redirect\n";
print "URI: $redirect\n\n";
}
this doesn't with no error messages and it redirects to the right page:
my $sqlSel=qq{SELECT TOP 1 * FROM sync_form3 WHERE form3_ID=\'$form3id\' AND
form1_date_inserted IS NULL};
my @row_ary = $dbhSQL->selectrow_array($sqlSel);
if(@row_ary eq ''){
use Mail::Sender;
my $email= '[EMAIL PROTECTED]';
my($ke,$na,$valu,@valu);
eval {
my $sender = new Mail::Sender {
smtp => '00.00.00.00,
from => '[EMAIL PROTECTED]',
auth=>'LOGIN',
authid=>'user',
authpwd=>'pswd',
to=>"$email",
bcc=>'[EMAIL PROTECTED]',
subject => 'form1',
on_errors => 'die'
};
$sender->Open();
$sender->SendLineEnc("A Form1 awaits your approval.");
$sender->SendLineEnc("\nNot really, this is only a test.");
$sender->SendLineEnc("\n\nThe form3 id needed to view the form 1 is:
$form3id");
$sender->SendLineEnc("\nThe person who filled it out is: $fn $ln");
$sender->SendLineEnc("\nThe email address is: $em");
$sender->Close();
#print"email sent<br>";
};
if ($@) {
text("Failed to send the message: [EMAIL PROTECTED]");
}
else{
$redirect =
"http://www.me.org/beta/members_only/forms/if_form_1_confirm.asp?form3_id=$f
orm3id";
print "Location: $redirect\n";
print "URI: $redirect\n\n";
}}
else{ $redirect =
"http://www.me.org/beta/members_only/forms/if_form_1.asp?form3_id=$form3id";;
print "Location: $redirect\n";
print "URI: $redirect\n\n";
}
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
