############################################################
#### 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
############################################################