#################################################################### 
# Send one email for a test. 
# Uses Mail::Sender. 
# Jul 8, 2014. Try OpenMultipart() and Attach().  
sub mailsender 
{my($replyaddr,$fnout,$subjparam)=@_; 
my(@a,@b,$i,$j,$k,$procname,$result,$s,$t); 
my(%data,$body,$divline,$fileattach,$fn,$hashcnt,$key,$err,$sender,$to); 
my($prefixsp,$authuser,$authpw); 
 
$procname="mailsender"; 
 
$prefixsp='  '; 
$authuser='auth@server.com'; # SMTP login name. 
$authpw='userpw'; 
$fileattach=$fnout; 
# In testing mode the SMTP/outgoing To address is always xxx. 
if ($opttest eq '-test') # Command line option 
    { 
    $to='email@somewhere.com'; # DEBUG 
    print $prefixsp."$procname: TEST: Swapping in $to for test address\n"; 
    } 
else { 
    $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."; 
    writeerr($s); 
    exit 1 
    } 
 
$divline="========================================\r"; 
 
$s=$prefixsp."$procname: Going to create Mail::Sender..."; 
print "$s\n"; 
$sender=new Mail::Sender 
    ({ 
    on_errors=>'code', 
    keepconnection=>1, 
    debug=>'debugconv.txt', 
    client=>'myclient', 
    smtp=>'smtp.server.net', 
    port=>80, 
    from=>$authuser, 
    authid=>$authuser, 
    authpwd=>$authpw, 
    auth=>'LOGIN' 
    }); 
if (($sender<0) or ($Mail::Sender::Error)) 
    { 
    $s=$prefixsp."$procname ERROR: Could not make new Sender: '".$Mail::Sender::Error."'"; 
    writeerr($s); 
    return; 
    } 
 
# Line feeds for Outlook 2012 require \r. 
$body=''; 
if ($opttest eq '-test') # Command line option 
    { 
    $body.="STILL IN TESTING MODE.\r"; 
    } 
if (len($fnout)>0) 
    { 
    $body.="Attached is your output file: $fnout.\r"; 
    } 
$body.="Log follows. Look for lines that say ERROR.\r"; 
$body.=$divline; 
for ($i=0; $i<=$#errors; $i++) 
    { 
    $body.=$errors[$i]."\n"; 
    } # for i 
$body.=$divline; 
$body.="\r.\r"; # Required for email. Period on line by itself. 
$Mail::Sender::NO_X_MAILER='true'; # Omit X-Mailer info with machine info. 
 
if (len($fnout)>0) 
    { 
    if (-e $fnout) # If $fnout exists then... 
        { 
        # Will return negative number on error. 
        # Sometimes this doesn't work. 
        @a=split('/',$fnout); 
        $fn=$a[$#a]; # Drop directories from $fnout. 
        print $prefixsp."$procname: Attaching file: $fileattach\n"; 
        $result=0; 
        # Was $result=$sender->MailFile(...) 
        $result=$sender->OpenMultipart( 
            { 
            #file=>$fileattach, 
            to=>$to, 
            subject=>$subjparam, 
            msg=>$body, 
            }); 
        if (($result<0) ) 
            { 
            $s=$prefixsp."$procname ERROR: ". 
                "$result on OpenMultipart(): '". 
                trim($Mail::Sender::Error)."'\n"; 
            writeerr($s); 
            $sender->Close(); 
            exit 1; 
            } 
 
        $result=$sender->Attach({ 
            description=>$fn, 
            ctype=>'application/vnd.ms-excel', 
            encoding=>'Base64', 
            file=>$fileattach, 
            disposition=>"attachment; filename=$fn" 
            }); 
        if (($result<0) ) 
            { 
            $s=$prefixsp."$procname ERROR: ". 
                "$result on Attach(): '". 
                trim($Mail::Sender::Error)."'\n"; 
            writeerr($s); 
            $sender->Close(); 
            exit 1; 
            } 
        } 
    else { 
        $s=$prefixsp."$procname ERROR: $fnout does not exist."; 
        writeerr($s); 
        $sender->Close(); 
        exit 1; 
        } 
    } 
else { 
    # Do not send file, send error msg only. 
    $s=$prefixsp."$procname: Going to do simple email..."; 
    print "$s\n"; # DEBUG 
    $result=$sender->Open({to=>$to, subject=>$subjparam}); 
    if ($result<0) 
        { 
        $s=$prefixsp."$procname ERROR: on simple Open: '". 
            trim($Mail::Sender::Error)."' \n"; 
        writeerr($s); 
        $sender->Close(); 
        exit 1; 
        } 
    $result=$sender->SendLineEnc($body); 
    if ($result<0) 
        { 
        $s=$prefixsp."$procname ERROR: on simple SendLineEnc: '". 
            trim($Mail::Sender::Error)."' \n"; 
        writeerr($s); 
        $sender->Close(); 
        exit 1; 
        } 
    } 
 
# 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.=" with file $fnout"; 
        } 
    writeerr($s); 
    } 
 
return; # mailsender 
}