troykoelling has asked for the wisdom of the Perl Monks concerning the following question:
As I said, the mail sends and there exists an attachment which contains the first 80% of the file (as compared by opening the original and the attached versions in vim.) As an additional point of interest, $msg->print(); prints out exactly what I receive, i.e. ~80% of the word document inline with the message. Thank you Monks, Troymy $from_address = 'troy.koelling@colorado.edu'; my $to_address = 'troy.koelling@colorado.edu'; my $subject = '[POC] Online Application Completed'; my $message_body = "An application has been completed online."; my $attachment = "$uploaded_file_dir/$cgi_cfn{'file'}"; my $filename = $cgi_cfn{'poc_template'}; $msg = MIME::Lite->new ( From => $from_address, To => $to_address, Subject => $subject, Type =>'multipart/mixed' ) or print "Error creating multipart container: $!\n"; $msg->attach ( Type => 'TEXT', Data => $message_body ) or print "Error adding the text message part: $!\n"; $msg->attach ( Type => 'application/msword', Path => $attachment, Filename => $filename, ) or die "Error adding $attachment: $!\n"; $msg->send();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: MIME::Lite Word attachments
by Joost (Canon) on Feb 11, 2005 at 22:15 UTC | |
by troykoelling (Initiate) on Feb 11, 2005 at 23:57 UTC |