Custom Search

JITAKU_SVR_Wiki

smtp_メール送信クライアントとでもメールクライアントとして記述したが、こんな方法でもメールを送信出来る。

また、メールに添付ファイルを一緒に送りたい場合のスクリプト

ほぼこちらの方のスクリプトを参考にした。
http://d.hatena.ne.jp/Zakk/20100604/1276410863
すごくわかりやすく簡単に使えた。すごい。


#!/usr/bin/perl

use Net::SMTP;
use MIME::Entity;
use Date::Simple;

# ENV
my $DATE = Date::Simple->today();

# Settings

our $SENDER      = 'localhost@opensuse114.hogehoge.com';
our $RECIPIENT   = 'hogehoge@gmail.com';
our $smtp_srv    = '127.0.0.1';
our $smtp_domain = 'opensuse114.hogehoge.com';
our $SUBJECT     = "[$DATE]wiki backup" ;    #件名を指定

$DATE =~ s/\-//g;

our $ATTACHED_FILE_1 = "/home/vhosts.$DATE.tar.bz2";
 
# Create object
my $smtp=Net::SMTP->new($smtp_srv, HELLO=>$smtp_domain);

# Built headers
$smtp->mail($SENDER);           # Sender
$smtp->to ($RECIPIENT);         # Receiver

# Built Data (Create data by MIME::Entity)
$smtp->data();
my $mime = MIME::Entity->build(
      From    =>   $SENDER,                              # Sender (data)
      To      =>   $RECIPIENT,                           # Receiver (data)
      Subject =>   $SUBJECT,                             # Subject
      Type    =>   'text/plain;charset="iso-2022-jp"',   #後ろのcharsetがミソ
      Data    =>   ["バックアップです\n","以上\n"],      #必ず1文字以上指定
      Encoding => "7bit"
      );     # body

# Attached files
#    Type   => 'image/jpeg',
#    Encoding => 'Base64'


# Attached file
$mime->attach(
    Path   => $ATTACHED_FILE_1,
    Type   => 'text/plain',
    Encoding => '-SUGGEST'
);

# Attached file

#$mime->attach(
#    Path   => $ATTACHED_FILE_2,
#    Type   => 'text/plain',
#    Encoding => '-SUGGEST'
#);


$smtp->datasend($mime->stringify); # transfer strings

# Data termination and send mail
$smtp->dataend();

#Quit SMTP connection
$smtp->quit;

# for debug
#print "Sender    : $SENDER\n";
#print "Recipient : $RECIPIENT\n";
#print "Attached  : $ATTACHED_FILE_1\n";
#print "Attached  : $ATTACHED_FILE_2\n";
print "completed  . \n";

1;

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-12-22 (火) 15:02:42 (644d)