Hi,
i have started to learn MIME::Lite and i have problmes for the sending part
, i want my script to use the servers's default mailprog.
This is how i did it(and i have an error)
######
$to= param('to');
$subject=param('subject');
$text =param('text');
MIME::Lite->send("sendmail", "$mailprog -t -oi -oem");
$msg = MIME::Lite->new(
>From =>"$infoEMAIL",
To =>"$to",
#Cc =>'[EMAIL PROTECTED], [EMAIL PROTECTED]',
Subject =>"$subject",
Type =>'multipart/mixed'
);
### Add the text message part:
### (Note that "attach" has same arguments as "new"):
$msg->attach(Type =>'TEXT',
Data =>"$text"
);
### Add the image part:
# $msg->attach(Type =>'image/gif',
# Path =>'aaa000123.gif',
# Filename =>'logo.gif',
# Disposition => 'attachment'
# );
$msg->send();
print "Location:$URLSCRIPT\n\n";
######################
thanx for any help
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
