Tom, Here is a perl script that will send the file as an attachment.
HTH Peter
#!/usr/bin/perl -w
# mail_attach.pl -- Mail files as attachments
# Created new perl script mostly from MLB 11/09/1999
# "The Perl Journal 14" mail_attach.pl example
#
# $ARGV[0]: The sender e-mail address
# $ARGV[1]: Filename with main message in it.
# $ARGV[2]: Filename to attach.
# If >1, separate with commas and *no* spaces
# $ARGV[3]: Subject
# $ARGV[4..$#ARGV]: Destination e-mail addresses.
# If there are spaces in
# an address, then enclose it in quotes
# use strict;
# use Socket;
use MIME::Lite;
use Net::SMTP;
my %ending_map = (
crt => ['application/x-x509-ca-cert' , 'base64'],
aiff => ['audio/x-aiff' , 'base64'],
gif => ['image/GIF' , 'base64'],
txt => ['text/plain' , '8bit'],
com => ['text/plain' , '8bit'],
class => ['application/octet-stream' , 'base64'],
htm => ['text/html' , '8bit'],
html => ['text/html' , '8bit'],
htmlx => ['text/html' , '8bit'],
htx => ['text/html' , '8bit'],
jpg => ['image/jpeg' , 'base64'],
dat => ['text/plain' , '8bit'],
hlp => ['text/plain' , '8bit'],
ps => ['application/postscript' , '8bit'],
'ps-z' => ['application/postscript' , 'base64'],
dvi => ['application/x-dvi' , 'base64'],
pdf => ['application/pdf' , 'base64'],
mcd => ['application/mathcad' , 'base64'],
mpeg => ['video/mpeg' , 'base64'],
mov => ['video/quicktime' , 'base64'],
exe => ['application/octet-stream' , 'base64'],
zip => ['application/zip' , 'base64'],
bck => ['application/VMSBACKUP' , 'base64'],
au => ['audio/basic' , 'base64'],
mid => ['audio/midi' , 'base64'],
midi => ['audio/midi' , 'base64'],
bleep => ['application/bleeper' , '8bit'],
wav => ['audio/x-wav' , 'base64'],
xbm => ['image/x-xbm' , '7bit'],
tar => ['application/tar' , 'base64'],
imagemap => ['application/imagemap' , '8bit'],
sit => ['application/x-stuffit' , 'base64'],
bin => ['application/x-macbase64'],
hqx => ['application/mac-binhex40' , 'base64'],
);
my $mail_from = shift @ARGV;
my $message_file = shift @ARGV;
my @mail_file = split(",", shift(@ARGV));
my $subject = shift @ARGV;
my @mail_to = @ARGV;
my $logname = getpwuid($<);
my $logdate = `date`;
open(LOG,">>/tech/cc/banner/mail_attach.log");
print LOG "\n";
print LOG " Date = ",$logdate;
print LOG " Laurel Username = ",$logname,"\n";
print LOG " Mail From = ",$mail_from,"\n";
print LOG " Message file = ",$message_file,"\n";
print LOG "Attached File(s) = ",@mail_file,"\n";
print LOG " Subject = ",$subject,"\n";
print LOG " Mail To = ",@mail_to,"\n";
print LOG "************************************\n";
close(LOG);
my $mime; # The MIME object
# Slurp in the message text and build up the main
# part of the mail.
{
local $/;
$/ = undef;
local @ARGV;
@ARGV = $message_file;
my $main_message = <>;
$mime = new MIME::Lite( From => $mail_from,
To => [@mail_to],
Subject => $subject,
Type => 'text/plain',
Data => $main_message);
}
foreach (@mail_file) { # Attach each file in turn
my($type, $ending);
/.*\.(.+)$/; # Snag the ending
$ending = $1;
# Is it in our list?
if (exists($ending_map{$ending})) {
$type = $ending_map{$ending};
} else {
$type = ['text/plain', '8bit'];
}
# Attach it to the message
$mime->attach( Type => $type->[0],
Encoding => $type->[1],
Disposition => "attachment",
Path => $_);
}
# Tell MIME::Lite to use Net::SMTP instead of sendmail.
MIME::Lite->send('smtp', 'axe', Timeout => 20);
$mime->send;
At 07:44 AM 02/13/2003 -0800, you wrote:
All, I'm trying to send an email attachment (Oracle Tablespace Report) from a Sun Unix box to myself when the batch job runs. Anybody been able to do this? I can send the text of the file, but what I really want to do is to send the file (it's an Excel Spreadsheet). thanks in advance. Tom Mercadante Oracle Certified Professional -- Please see the official ORACLE-L FAQ: http://www.orafaq.net -- Author: Mercadante, Thomas F INET: [EMAIL PROTECTED] Fat City Network Services -- 858-538-5051 http://www.fatcity.com San Diego, California -- Mailing list and web hosting services --------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).
Peter Johnson, DBA Humboldt State University [EMAIL PROTECTED] 707-826-6122 Those that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety - Benjamin Franklin, 1759 -- Please see the official ORACLE-L FAQ: http://www.orafaq.net -- Author: Peter Johnson INET: [EMAIL PROTECTED] Fat City Network Services -- 858-538-5051 http://www.fatcity.com San Diego, California -- Mailing list and web hosting services --------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).
