YanoRyuichi.com/
Wiki
Blog
GitHub
Sandbox
開始行:
* Email-Senderによるメール送信 [#j3cd4e5f]
スクリプトはEUC-JPで保存する事とする。
#!/usr/bin/env perl
use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Encode qw/from_to/;
my $from_name = '名前';
my $from_email = 'saburo@example.net';
my $subject = '件名';
my $body = '本文';
my @to_emails = ( 'taro@example.com', 'jiro@example.co....
my $_from_email = sprintf( '%s <%s>', $from_name, $from_...
from_to( $_from_email, 'euc-jp', 'MIME-Header-ISO_2022_J...
from_to( $subject, 'euc-jp', 'MIME-Header-ISO_2022_J...
from_to( $body, 'euc-jp', 'iso-2022-jp' );
foreach my $to_email (@to_emails) {
my $email = Email::Simple->create(
header => [
To => $to_email,
From => $_from_email,
Subject => $subject,
'Content-Type' => 'text/plain; ...
'Content-Transfer-Encoding' => '7bit',
],
body => $body,
);
sendmail($email);
}
** テスト実行 [#r5263e19]
EMAIL_SENDER_TRANSPORT=Print ./1.pl
のようにすると、標準出力にメール情報が表示される。
** MIMEエンコードによるヘッダ行の分割について [#pac982d6]
ただし、上のスクリプトでは、件名等が長いと、
From: =?ISO-2022-JP?B?GyRCTD5BMBsoQg==?= <test@test.com>
Subject:
=?ISO-2022-JP?B?GyRCN29MPjdvTD43b0w+N29MPjdvTD43b0w+N2...
=?ISO-2022-JP?B?GyRCN29MPjdvTD43b0w+N29MPjdvTD43b0w+N2...
Date: Sat, 29 Oct 2011 16:12:36 +0900
のように分割されるが、この改行コードがCRLFな為、プロバイ...
** 参考 [#y75e6898]
- http://search.cpan.org/perldoc?Email::Send
- http://adiary.blog.abk.nu/0213
終了行:
* Email-Senderによるメール送信 [#j3cd4e5f]
スクリプトはEUC-JPで保存する事とする。
#!/usr/bin/env perl
use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Encode qw/from_to/;
my $from_name = '名前';
my $from_email = 'saburo@example.net';
my $subject = '件名';
my $body = '本文';
my @to_emails = ( 'taro@example.com', 'jiro@example.co....
my $_from_email = sprintf( '%s <%s>', $from_name, $from_...
from_to( $_from_email, 'euc-jp', 'MIME-Header-ISO_2022_J...
from_to( $subject, 'euc-jp', 'MIME-Header-ISO_2022_J...
from_to( $body, 'euc-jp', 'iso-2022-jp' );
foreach my $to_email (@to_emails) {
my $email = Email::Simple->create(
header => [
To => $to_email,
From => $_from_email,
Subject => $subject,
'Content-Type' => 'text/plain; ...
'Content-Transfer-Encoding' => '7bit',
],
body => $body,
);
sendmail($email);
}
** テスト実行 [#r5263e19]
EMAIL_SENDER_TRANSPORT=Print ./1.pl
のようにすると、標準出力にメール情報が表示される。
** MIMEエンコードによるヘッダ行の分割について [#pac982d6]
ただし、上のスクリプトでは、件名等が長いと、
From: =?ISO-2022-JP?B?GyRCTD5BMBsoQg==?= <test@test.com>
Subject:
=?ISO-2022-JP?B?GyRCN29MPjdvTD43b0w+N29MPjdvTD43b0w+N2...
=?ISO-2022-JP?B?GyRCN29MPjdvTD43b0w+N29MPjdvTD43b0w+N2...
Date: Sat, 29 Oct 2011 16:12:36 +0900
のように分割されるが、この改行コードがCRLFな為、プロバイ...
** 参考 [#y75e6898]
- http://search.cpan.org/perldoc?Email::Send
- http://adiary.blog.abk.nu/0213
ページ名: