Re: MIME::Lite and body contents

Could you be more specific? What part of your code don't work?

Btw, Type should be text/plain, if it is a plain text file, or text/html if it is an html file.

$msg->attach(Type => 'text/plain',
             Path => $OutFile,
             ReadNow => 1);
[download]

Update: Corrected Path, as clinton said.

Igor 'izut' Sutton
your code, your rules.

Comment on Re: MIME::Lite and body contents Download Code

Replies are listed 'Best First'.
Re: MIME::Lite and body contents by g_speran (Scribe) on Feb 20, 2006 at 17:08 UTC
My apology; actually I had missed a section of code to include. This is a multipart e-mail. The ${OutFile} needs to be send as an attachment and as the contents of the body. Since then I have made the recommended changes and removed the single ticks ( ' ) from ${OutFile} and change type to 'text/plain'. What is happening is that I receive the file in the e-mail as the same attachment twice. The body is blank. Thanks, ############################################################ #### Emailing the Reports now ############################################################ # Send an Email with Attachment $Email_List="user\@companyname"; MIME::Lite->send('smtp',"$Email_Server",Timeout=>60); $msg = MIME::Lite->new( From => 'Netbackup@companyname.net', To => "$Email_List", Subject => "${hostname} Available Tape Report", Type => 'multipart/mixed'); $msg->attach(Type => 'application/vnd.ms-word', Path => "$OutFile", Filename => `${unxutil}basename \"${OutFile}\"`, ReadNow => 1, Disposition => 'attachment'); $msg->attach(Type => 'text/plain', Path => ${OutFile}, ReadNow => 1); $msg->send(); ############################################################ #### End Emailing the Report as an attachment and as the body ############################################################ [download] Edit: g0n - code tags	[reply] [d/l]

Replies are listed 'Best First'.

Re: MIME::Lite and body contents
by g_speran (Scribe) on Feb 20, 2006 at 17:08 UTC

############################################################
#### Emailing the Reports now
############################################################
# Send an Email with Attachment
$Email_List="user\@companyname";
MIME::Lite->send('smtp',"$Email_Server",Timeout=>60);
$msg = MIME::Lite->new(
             From => 'Netbackup@companyname.net',
             To => "$Email_List",
             Subject => "${hostname} Available Tape Report",
             Type => 'multipart/mixed');

$msg->attach(Type => 'application/vnd.ms-word',
             Path => "$OutFile",
             Filename => `${unxutil}basename \"${OutFile}\"`,
             ReadNow => 1,
             Disposition => 'attachment');

$msg->attach(Type => 'text/plain',
             Path => ${OutFile},
             ReadNow => 1);

$msg->send();
############################################################
#### End Emailing the Report as an attachment and as the body
############################################################
[download]

Edit: g0n - code tags

[reply]
[d/l]