linux 发送邮件脚本

Linux发送邮件脚本 然后写一个脚本，如run.sh 　　#!/usr/bin/bash 　　mail -s "Title here" -c Address_CC Address_To < email.txt 测试可以用 run.sh #!/bin/sh date >>ftp.txt echo ftp01>>ftp.txt echo ===================================== >>ftp.txt echo IP ADDRESS >>ftp.txt ifconfig | grep "inet" | grep -v "127.0.0.1"|awk '{print $2}' >>ftp.txt df -h >>ftp.txt echo ====================================== >>ftp.txt mail -s "FTP01" xxx@eee.cn <ftp.txt rm ftp.txt ============================================= 指定邮件服务器发邮件 使用软件 pine-4.33 ============================================================ Linux发送邮件脚本： #!/usr/bin/perl     use Net::SMTP;     use MIME::Base64; $filename_1 = `/bin/cat   邮件正文目录`; chop($filename_1);    $boundary = "9876543210";    $user = $ENV{USER};    $from = $ENV{HOSTNAME};    $to = "收件人（显示）";    $subject="邮件主题"; #################################################################### $mime=''MIME-Version: 1.0 Content-Type: multipart/mixed; boundary=''.$boundary.'' Content-Transfer-Encoding: 8bit --''.$boundary.'' Content-Type: application/octet-stream; name="''.$filename1.''" Content-Transfer-Encoding: base64 Content-Description: ''.$filename.'' Content-Disposition: attachment; filename="''.$filename1.''" '';    #open(FILE, "<$filename") or die "$!";     $smtp = Net::SMTP->new(''邮件服务器IP'');     $smtp->auth("邮件帐号","密码");     $smtp->mail(''发件人地址'');     $smtp->to(''收件人地址'');     $smtp->data();     $smtp->datasend("From: 发件人（显示）\n");     $smtp->datasend("Subject: $subject\n");     $smtp->datasend("To: $to\n");     $smtp->datasend("$filename_1\n\n");    while (read(FILE, $buf, 60*57)) {         $line=encode_base64($buf);         $smtp->datasend("$line");    }     $smtp->dataend();     $smtp->quit;

 

 

叶子博客上的自动发报告邮件的脚本实例

 

[root]# more /root/tools/mailmessage.pl #!/usr/bin/perl     use Net::SMTP;     use MIME::Base64;    $filename_1 = `/bin/cat /root/tools/analog_report_log`;    chop($filename_1);    $filename_2 = `/bin/cat /root/tools/BlackIP_info`;    chop($filename_2);    $Day = `date --date="1 day ago" +%x`;      $boundary = "9876543210";      $user = $ENV{USER};      $from = $ENV{HOSTNAME};      $to = "XteamAdminGroup"; #################################################################### $mime='MIME-Version: 1.0 Content-Type: multipart/mixed; boundary='.$boundary.' Content-Transfer-Encoding: 8bit --'.$boundary.' Content-Type: application/octet-stream; name="'.$filename1.'" Content-Transfer-Encoding: base64 Content-Description: '.$filename.' Content-Disposition: attachment; filename="'.$filename1.'" ';      #open(FILE, "<$filename") or die "$!";        $smtp = Net::SMTP->new('192.168.7.25');        $smtp->mail( 'perl-mail@joypark.com.cn');        $smtp->to( 'yp@mail.21dnn.com','yep@mail.21dnn.com','mengxd@mail.21dnn.com','lin@mail.21dnn.com','zhuh@mail.21dnn.com');        $smtp->data();        $smtp->datasend("From: xteam管理员\n");        $smtp->datasend("Subject: $Day 千龙邮箱用户使用情况报告 \n");        $smtp->datasend("To: $to\n");                $smtp->datasend("千龙邮箱用户使用情况分析:\n");        $smtp->datasend("$filename_1\n\n");                $smtp->datasend("昨日新添加的IP黑名单:\n");        $smtp->datasend("$filename_2");      while (read(FILE, $buf, 60*57)) {                $line=encode_base64($buf);                $smtp->datasend("$line");      }        $smtp->dataend();        $smtp->quit; close (FILE); system "cat /root/tools/analog_report_log >> /root/tools/analog_report_oldlog";