What's the error? That would be the biggest help in getting you an answer.
________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ben Eagle Sent: Tuesday, January 30, 2007 1:57 PM To: perl-win32-web@listserv.ActiveState.com Subject: Trying to Send mail I am trying to get mail working but I have yet been able to get tit to work properly, I am using MIME::Lite Not sure what I am doing wrong use MIME::Lite; # set up email $to = "[EMAIL PROTECTED], [EMAIL PROTECTED]"; $from = "[EMAIL PROTECTED]"; $subject = "Email Sent via Perl"; $message = "This email was sent using Perl."; $file = "graph1.jpg"; # send email email($to, $from, $subject, $message, $file); # email function sub email { # get incoming parameters local ($to, $from, $subject, $message, $file) = @_; # create a new message $msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Data => $message ); # add the attachment $msg->attach( Type => "image/jpeg", Path => $file, Filename => $file, Disposition => "attachment" ); # send the email MIME::Lite->send('smtp', 'email01.alinean.com', Timeout => 60); $msg->send(); } it gives me a error on $msg->send(); not sure why
_______________________________________________ Perl-Win32-Web mailing list Perl-Win32-Web@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
