in reply to MIME::Lite behaving strange

First of all, 'use strict' does not work if you put a '#' before it

I tried your code with my values for mailserver, recipient etc., but had to change my $from="bla@xyz"; to my $from='bla@xyz'; because if you use an address with '@' in it, you better not interpolate the string.

Sent it and it worked. Attachement came in flawlessly (if I didn't use any special characters).

Could it be that in your csv file there are 8-bit characters, for example umlauts? Usually you need something like $part->attr('content-type.charset' => 'UTF-8'); to identify the right character encoding

You could look a bit closer at the garbage you are receiving (compare it to the source file) or post it here. In most cases it is not random garbage but gives broad hints about what happened to the source file. Was it base64 encoded or maybe packed?

UPDATE: added info about character encoding

Replies are listed 'Best First'.
Re^2: MIME::Lite behaving strange
by bar10der (Beadle) on Apr 01, 2009 at 15:18 UTC
    I have changed the code and this is how it looks now- 
    #!/usr/bin/perl -w

use MIME::Lite;
use strict;
use warnings;

my $mail_host = 'servername.com';
my $to='fname.lname@sun.com';
my $from="west";
my $subject="Reports";
my $body = "See attached reports.\n";


### Create the multipart container
my $msg = MIME::Lite->new (
  From => $from,
  To => $to,
  Subject => $subject,
  Type =>'multipart/mixed'
) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
  Type => 'TEXT',
  Data => $body
) or die "Error adding the text message part: $!\n";

### Add the file
$msg->attach (
   Type => 'text/plain; charset=UTF-8',
   Path     => '/dir/dir/dir/report',
   Filename => 'test.txt',
   Disposition => 'attachment'
) or die "Error adding untouched_tickets.csv: $!\n";

### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;

    [download]

    Content of the test.txt on server is -

    this is a test message

    However content of the test.txt which came through email is -

    

mkStats.pl
CheckDB.pl
CleanUp.pl
reports.pl

    [download]
    So the attachment is containing these 4 file names everytime I send email, no matter which file I am attaching.
[reply]
[d/l]
[select]

      You set 'Filename' to test.txt, but Filename is only how the file is called in the attachment. The file itself should be found in 'Path'. So Path     => '/path/to/the/file/test.txt' (or Path => 'test.txt' if the file is in the current path) would be more appropriate to get anything useful (with appropriate values for /path/to/the/file)

[reply]
[d/l]
[select]
        Ah...that was it then!! Many thanks for helping me out. Really appreciate your help.
[reply]
        it is throwing me error : Failed to connect to mail server: Invalid Argument on this line: $msg->send; where the arguments passed are same as shown above
[reply]

In Section Seekers of Perl Wisdom