仕事納め 2019

#!/usr/bin/perl

use strict;
use utf8;
use Encode;
use Net::SMTP;
use Authen::SASL;

my $server   = 'テストするメールサーバのホスト名(またはIPアドレス)';
my $userfile = shift;
my $from;
my $to       = '送信先メールアドレス';
my $user;
my $password;
my $subject  = 'テストメール';
my $header;
my $smtp;

my $contents = '
テキストのメールです。
この内容がメール本文に含まれます。
通常はフォームメールの送信フォームなどから引き渡されます。
';

$contents = Encode::encode( 'iso-2022-jp', $contents );
$subject  = Encode::encode( 'MIME-Header-ISO_2022_JP', $subject );

die "Usage: $0 [file]\n" unless $userfile;
open(IN, $userfile) || die "can't open file: $!\n";

while(<IN>){
    s/[\r\n]*$//;
    ($user, $password) = split(/[\t\x20]+/, $_, 2);
    if ( $user =~ /^#|^$/  or $password =~ /^$/) { next; }
    my $message;

    $from   = "$user";
    $header = "From: $from\n";
    $header .= "To: $to\n";
    $header .= "Subject: $subject ( $from )\n";
    $header .= "MIME-Version: 1.0\n";
    $header .= "Content-type: text/plain; charset=ISO-2022-JP\n";
    $header .= "Content-Transfer-Encoding: 7bit\n\n";

#    print Encode::encode( 'utf-8', "$from: SMTP(MSA)接続 " );
    $smtp = Net::SMTP->new( $server, Port=>587 );
    if ( $smtp ) {
#        print Encode::encode( 'utf-8', "→ 成功 → SMTP認証 " );
        if ( $smtp->auth( $from, $password ) ) {
#            print Encode::encode( 'utf-8', "→ 成功 " );
            $smtp->mail( $from );
            $smtp->to( $to );
            $smtp->data();
            $smtp->datasend( $header );
            $smtp->datasend( $contents );
            $smtp->dataend();
            $smtp->quit;
            $message = "Mail送信完了";
        } else {
            $message = "Mail送信失敗(Abort)";
        }
    } else {
        $message = "SMTP(MSA)接続失敗(Abort)";
    }
    printf("%-50s%s\n",$user, Encode::encode( 'utf-8', $message) );
}
close(IN);
exit;

[email protected]<TAB>password1
[email protected]<TAB>password2
[email protected]<TAB>password3

#!/usr/bin/perl

use strict;
use utf8;
use Encode;
use Net::SMTP;
use MIME::Lite;

my $server   = 'テストするメールサーバのホスト名(またはIPアドレス)';
my $userfile = shift;
my $from     = '送信元メールアドレス';
my $to;
my $user;
my $password;
my $subject  = 'テストメール';
my $contents = '
テキストのメールです。
この内容がメール本文に含まれます。
通常はフォームメールの送信フォームなどから引き渡されます。
';

$contents = Encode::encode( 'iso-2022-jp', $contents );
$subject  = Encode::encode( 'MIME-Header-ISO_2022_JP', $subject );

die "Usage: $0 [file]\n" unless $userfile;
open(IN, $userfile) || die "can't open file: $!\n";

while(<IN>){
    s/[\r\n]*$//;
    ($user, $password) = split(/[\t\x20]+/, $_, 2);
    if ( $user =~ /^#|^$/  or $password =~ /^$/) { next; }
    my $message;
    $to = $user;

    # コンテナを作成
    my $msg = MIME::Lite->new(
        From => $from,
        To => $to,
        Subject => $subject,
        Type => 'multipart/mixed',
    );

    # メッセージ部分
    $msg->attach(
        Type => 'text/plain; charset="iso-2022-jp"',
        Encoding => '7bit',
        Data => $contents,
    );

    # 添付ファイル
    $msg->attach(
        Type => 'application/octet-stream',
        Disposition => 'attachment',
        Path => "ファイルへのパス(フルパス)",
        Filename => 'ファイル名',
    );
 
    # 送信
    print Encode::encode( 'utf-8', "$from → $to: 添付メール送信:" );
    if ($msg->send('smtp', $server, Debug=>0)) {
       print Encode::encode( 'utf-8', "成功\n" );
    } else {
       print Encode::encode( 'utf-8', "失敗\n" );
    }
}
close(IN);
exit;

#!/usr/bin/perl

use strict;
use utf8;
use Encode;
use Net::POP3;
use Email::MIME;

my $server = '153.126.197.240';
my $userfile = shift;
my $layout = << 'TMPL';
[TITLE]
%s

[BODY]
%s


TMPL

die "Usage: $0 [file]\n" unless $userfile;
open(IN, $userfile) || die "can't open file: $!\n";

while(<IN>){
    s/[\r\n]*$//;
    my ($user, $password) = split(/[\t\x20]+/, $_, 2);
    if ( $user =~ /^#|^$/  or $password =~ /^$/) { next; }

#    print Encode::encode( 'utf-8', "$user: POP3接続 " );
    my $pop = Net::POP3->new( $server, Port=>110 );
    my $result = $pop->login( $user, $password );
    my $message;

    if ( $result ) {
        if ( $result == "0E0" ) {
            $message = "認証成功(0)件";
        } else {
            $message = "認証成功($result)件";
            my $list_href = $pop->list;        # メール一覧のハッシュのリファレンスを得る
            foreach my $msg_id ( keys %{ $list_href } ) {
                my $message = join q(), @{ $pop->get( $msg_id ) }; # メール本文を取得
                my $parsed  = Email::MIME->new($message);
                print sprintf $layout,
                    Encode::encode( 'utf8', $parsed->header('Subject') ),
                    Encode::encode( 'utf8', Encode::decode( 'jis', $parsed->body ) );

#                $pop->delete( $msg_id );      # 受信したメールを削除する
            }
        }
    } else {
        $message = "認証失敗";
    }
    printf("%-50s%s\n",$user, Encode::encode( 'utf-8', $message) );
    $pop->quit;
}
close(IN);
exit;