Re: [MacPerl] SendMail

[Matt Morse <matt@apple.com>]

I use MondoMail and access it through an AppleScript embedded in my MacPerl
script.  Perhaps not very elegant, but easy.  Here's a sample, with email
addresses and hosts 'xxx'd out:

# SCRIPTEND must be in column one
$script = <<SCRIPTEND;
property pHost : "xxx.xxx.com"
property pToUser : "xxx\@xxx.xxx.com"
property pCCUser : "xxx\@xxx.com"
property pFromUser : "xxx\@xxx.com"
property pSubject : "Eviction"
try
    tell application "Harddisk:Applications:MondoMail Ÿ:Mondo Mail.fat"
        send mail ¬
            "Earthlings,
            
$elapsedMinutes minutes of inactivity since our last contact.
Surrender now or earth will be vaporized.

Regards, 
Landlord" subject pSubject to pToUser from pFromUser CC pCCUser SMTP gateway
pHost
    end tell
on error msg number eNum
    display dialog "The following error was returned from MondoMail: " &
eNum & return & msg
end try
SCRIPTEND
&MacPerl'DoAppleScript( $script );
############################################################################


> From: Floyd Resler <fresler@zoomtown.com>
> Organization: Data Dimensions Software
> Reply-To: fresler@zoomtown.com
> Date: Fri, 08 Dec 2000 18:12:43 -0500
> To: MacPerl Mailing List <macperl@macperl.org>
> Subject: [MacPerl] SendMail
> 
> Hello,
> What is the best way to send mail in MacPerl?  I can across
> MacSMTP.pl but it requires MacChat.pl which I can't find.  I also saw
> some references to sendmail.pl, but I can't find that either.
> 
> Thanks,
> Floyd
> 
> 
> 
> # ===== Want to unsubscribe from this list?
> # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org
> 
> 


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org