EmailJP.pm -- Send mail with Net::SMTP (add Date: header)
# �ȒP�Ȏg�����i�w�b�_���Q�Ƃ��Ĉ���A�h���X������j
use EmailJP;
my $count = &EmailJP::sendmail( mail => $text );
# �ő���̎g�����i����A�h���X���I�Ɏw�肷��j
use EmailJP;
my $server;
$server = "127.0.0.1"; # SMTP�T�[�o
$server = [qw( 192.168.0.1 127.0.0.1 )]; # �����w��\
my $count = &EmailJP::sendmail(
server => $server, # SMTP�T�[�o
hello => "localhost", # HELLO
timeout => 5, # �^�C���A�E�g
return => $return_path, # �G���[�ԑ���
to => $rcpt_to, # ���[������
head => $mail_head, # ���[���w�b�_
body => $mail_body, # ���[���{��
charset => "iso-2022-jp", # ���M�����R�[�h�� JIS
internal => "EUC-JP" # ���������R�[�h�� EUC
);
EmailJP ���W���[���́A���{����܂ރ��[����K�Ȍ`���ő��M���܂��B
sendmail() ���ł͈ȉ��̃I�v�V�������w��ł��܂��B
server => SMTP�T�[�o�z�X�gIP�A�h���X
EmailJP �����[�����M����ہA�f�t�H���g�� 127.0.0.1�i���z�X�g�j��
SMTP �ڑ����ă��[���𑗐M���܂��B
SMTP �ڑ������̃��[���T�[�oIP�A�h���X��ύX����ꍇ�́A
server �I�v�V�����Ŏw�肵�Ă��������B
�z��ւ̃��t�@�����X�ŕ����̃��[���T�[�o������ꍇ�́A
1�ڂ̃��[���T�[�o����~���Ă���ꍇ��
2�ڈȍ~�̃��[���T�[�o�֏��ɐڑ����܂��B
��{�I�ɗ��p�\�ȃ��[���T�[�o����Ă������Ƃ������߂��܂��B
hello => HELLO������
SMTP �ڑ����� HELO �R�}���h�̈������w�肵�܂��B
�f�t�H���g�ł� localhost �ƂȂ�܂��B
���̂܂܂ł��ʏ�͖�肠��܂���B
timeout => �^�C���A�E�g�b��
SMTP �ڑ����̃^�C���A�E�g�b�����w�肵�܂��B
return => �G���[�ԐM��A�h���X
���[�����M������ɃG���[�����������ꍇ�ɁA
SMTP �T�[�o����ʒm�����A�h���X���w�肵�܂��B
�w�肵�Ȃ��ꍇ�́A���[���w�b�_�� Return-Path: �s���Q�Ƃ���܂��B
�������A�G���[���[�������������̂� EmailJP �̑��M����������������ŁA
EmailJP �̑��M���������s�����ꍇ�́A�P�ɋU���Ԃ�܂��B
to => ���[������A�h���X
���[���̈���A�h���X���w�肵�܂��B
�w�肵�Ȃ��ꍇ�́A���[���w�b�_�� To: Cc: Bcc: �s���Q�Ƃ���܂��B
internal => ���������R�[�h
sendmail() �����Ăяo�����̕����R�[�h�́A
�f�t�H���g�� EUC-JP �Ƃ݂Ȃ��܂��B
EUC-JP �ȊO�̕����R�[�h(UTF-8�Ȃ�)���g�p���Ă���ꍇ�́A
internal �I�v�V�����Ŏw�肵�Ă��������B
Shift_JIS�AUTF-8 �Ȃǂ��g�p�ł��܂��B
charset => ���M�����R�[�h
���[�����M���̕����R�[�h�́A�f�t�H���g�� iso-2022-jp �ƂȂ�܂��B
�������A���[���{������ &#xHHHH; �`���̊G�����R�[�h���܂�ł���A
���[���̈���� NTT �h�R���g�уA�h���X���܂�ŁA
���� au�ETU-KA�EVodafone �̌g�уA�h���X���܂܂Ȃ��ꍇ�́A
NTT �h�R���p�G�����������Ȃ���M�����邽�� Shift_JIS �ƂȂ�܂��B
����ȊO�̕����R�[�h�ő��M�������ꍇ�́Acharset �I�v�V������
�w�肵�Ă��������B
Shift_JIS�AUTF-8 �Ȃǂ��g�p�ł��܂��B
head => ���[���w�b�_ body => ���[���{��
���M���郁�[���̃w�b�_�Ɩ{�����w�肵�܂��B
���[���w�b�_�Ɩ{�����\�ߍ��̂��Ă���ꍇ�́A
���L�� mail �I�v�V�������w�肵�Ă��������B
mail => ���[���w�b�_�{�{��
���M���郁�[���̃w�b�_�Ɩ{�����w�肵�܂��B
�w�b�_�Ɩ{���̊Ԃɂ͋�s�~�P���K�v�ł��B
���[���w�b�_�Ɩ{�����\�ߕ������Ă���ꍇ�́A
��L�� head�Ebody �I�v�V�������w�肵�Ă��������B
mail �I�v�V�����܂��� head �I�v�V�����Ŏw�肳�ꂽ�w�b�_���� �K�{�̃w�b�_�������ꍇ�́A���L�̂悤�ȃw�b�_�������t������܂��B
�i�W���FJIS�̏ꍇ�j
Date: Fri, 13 Jun 2003 03:17:01 +0900
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
�iShift_JIS�̏ꍇ�j
Date: Fri, 13 Jun 2003 03:17:01 +0900
MIME-Version: 1.0
Content-Type: text/plain; charset="Shift_JIS"
Content-Transfer-Encoding: 8bit
PC�����̃��[�����ɁA�n�V�S����A���̍莚�Ȃǂ� IBM �g���������܂ޏꍇ�� EscapeJIS.pm ���W���[���ɂ�蕶�����������ɑ��M�ł��܂��B
CP932 UCS2 �⑫
------ ------ ----------
FBFC 9AD9 �n�V�S��
FAB1 FA11 �R�{���{��
FBB9 9127 �Ƃ�����
�������A��M���̂n�r�A���[���\�t�g�ɂ���Ă͐������\���ł��Ȃ��ꍇ�� ����܂��B�iOutlook Express�EBecky! 2 �ł͕\���ł��܂��j
���[���{���̕����R�[�h�͒ʏ�AISO-2022-JP (JIS) �ƂȂ�܂����A ���[���{������ &#xHHHH; �`���̊G�����R�[�h���܂�ł���A ���[���̈���� NTT �h�R���g�уA�h���X���܂�ŁA ���� au�ETU-KA�EVodafone �̌g�уA�h���X���܂܂Ȃ��ꍇ�́A NTT �h�R���p�G�����������Ȃ���M�����邽�� Shift_JIS �ƂȂ�܂��B
���[���{������ &#xHHHH; �`���̊G�����R�[�h���܂�ł���A ���[���̈���� au�ETU-KA �̌g�уA�h���X���܂�ŁA ���� NTT �h�R���EVodafone �̌g�уA�h���X���܂܂Ȃ��ꍇ�́A EmojiTrans.pm ���W���[���𗘗p���āA NTT �h�R���p�̊G�����R�[�h�� au�ETU-KA �p�̎����G�����R�[�h�ɕϊ����܂��B
���[���{������ &#xHHHH; �`���̊G�����R�[�h���܂�ł���A ���[���̈���� Vodafone �̌g�уA�h���X���܂�ŁA ���� NTT �h�R���Eau�ETU-KA �̌g�уA�h���X���܂܂Ȃ��ꍇ�́A EmojiTrans.pm ���W���[���𗘗p���āA NTT �h�R���p�̊G�����R�[�h�� Vodafone �p�̎����G�����R�[�h�ɕϊ����܂��B
����ɂ��ANTT �h�R���p�̊G�����R�[�h���܂ރ��[���{����p�ӂ��邾���� NTT �h�R���Eau�ETU-KA�EVodafone �S�ẴL�����A�ɑ��ĊG�������܂ރ��[���� ����ɑ��M���邱�Ƃ��ł��܂��B
Copyright 2004 Kawasaki Yusuke <u-suke [at] kawa.net>
http://www.kawa.net/