• Perl 5.8.8 on Linux RHEL 5.5.56
• Mail::Sender v0.8.22

######################################################################
+#####
    # In:
    # Out:
    # Works but no file attached.
    sub mailfile
    {my($replyaddr,$fnout,$subjparam)=@_; # mailsender()
    my(@a,@b,$i,$j,$k,$procname,$result,$s,$t);
    my(%data,$body,$divline,$fn,$hashcnt,$key,$err,$sender,$to);
    my($prefixsp);

    $procname="mailfile";

    $prefixsp='      '; # Prefix spaces to indent msgs nicely.
    $to=$replyaddr; # Send email to this address.
    if (len($to)<3) # Email must be at least n ctrs.
        {
        $s=$prefixsp."$procname ERROR: To address is missing or invali
+d.";
        writeerr($s);
        exit 10;
        }

    $divline="========================================\r";

    $s=$prefixsp."$procname: Going to create Mail::Sender ";
    if (len($fnout)>0)
        {
        $s.="with file $fnout";
        }
    $s.="...";
    writeerr("$s"); # DEBUG
    if (! -e $fnout)
        {
        $s="$procname ERROR: $fnout does not exist";
        writeerr($s);
        exit 1;
        }
    $sender=new Mail::Sender();

    # Line feeds for Outlook 2012 require \r.
    $body='';
    $body.="Log follows. Look for lines that say ERROR.\r";
    $body.=$divline;
    $body.="\r.\r"; # Required for email. Period on line by itself.

    if (len($fnout)>0)
        {
        if (-e $fnout) # If $fnout exists then...
            {
            @a=split('/',$fnout);
            $fn=$a[$#a]; # Drop directories from $fnout.
            $s=$prefixsp."$procname: Attaching output file: $fnout"; #
+ DEBUG
            writeerr($s);
            $result=0;

            # Was $result=$sender->MailFile(...)
            $result=$sender->MailFile(
                {
                file=>$fnout,
                client=>'xxxclient',
                smtp=>$server,
                port=>80,
                from=>$fromaddr,
                replyto=>$fromaddr,
                authid=>$authuser,
                authpwd=>$authpw,
                auth=>'LOGIN',
                debug=>'debugt.txt',

                ctype=>'application/vnd.ms-excel',
                multipart=>'multipart/mixed',
                encoding=>'base64',
                disposition=>"attachment; filename=$fnout",

                to=>$to,
                subject=>$subjparam,
                msg=>$body
                }) and print $prefixsp."$procname: Mail sent ok\n";
            if (($result<0) )
                {
                $s=$prefixsp."$procname ERROR: ".
                    "$result on MailFile(): '".
                    trim($Mail::Sender::Error)."'\n";
                writeerr($s);
                $sender->Close();
                exit 1;
                }

            } # if -e fnout
        else {
            $s=$prefixsp."$procname ERROR: $fnout does not exist.";
            writeerr($s);
            $sender->Close();
            exit 1;
            }
        }
    else {
        print "Filename $fnout was blank\n";

        } # else

    # Now close connection.
    $sender->Close();
    if ($@)
        {
        $s=$prefixsp."$procname ERROR: Could not make new Mail::Sender
+. $@";
        writeerr($s);
        exit 1;
        }
    else {
        $s=$prefixsp."$procname: Sent email to $to";
        if (len($fnout)>0)
            {
            $s.="\n".$prefixsp."  with file $fnout";
            }
        writeerr($s);
        }
    writeerrfile('tmailsend');

    return; # mailfile
    }
[download]

• Some variables, like $authpw, $server, are global as I am testing several ways to send email.
• I don't have an MTA on my Linux system thus my requirement for Mail::Sender.
• I can't install Mail::SendEasy, from CPAN (via cpanm) or from a tar.gz file as I get an error and cpanm locks up. build.log available if you want it here.
• I can't find any other modules that do auth and send an attachment without an MTA.
• $fnout exists, I verified that.
• All other data about the server is correct.
• In the SMTP debug file, the XLS file is encoded and appears in the debug file.
• It seems like the XLS file is being sent out but Outlook 2012 is not recognizing the file when it gets the email.
• Anyone know how to use Mail::File? I've tried 2 examples, and various permutations, with no luck.