NAME

TL::Mail - Mail making/reading (ja)

NAME (ja)

TL::Mail::JA - ��＜�若�˩�����/茯㏍�粋昭��

SYNOPSIS

  my $mail = $TL->newMail
    ->setHeader(
        From => 'null@example.org',
        To   => 'null@example.org',
        Subject => 'This is a test mail...',
       )
    ->setBody("+----------------------------+\n".
              "|                            |\n".
              "|      TL::Mail - Test       |\n".
              "|                            |\n".
              "+----------------------------+\n")
    ->toStr;

  my $mail = $TL->newMail->set("From: 綏勐�坂査 <null\@example.org>\n".
             "To: ������篋� <null\@example.org>\n".
             "Subject: ��＜�若�˩散���\n".
             "\n".
             "��＜�若����㋛��")
  ->toStr;

DESCRIPTION

��＜�若�˨�勖����吾��������������茯㏍�粋昭�����壔�í�鴻�� ���絖���潟�若�����ISO-2022-JP(jis)��勉�水嚳綽����

�����˨�������若����勉�＜�若�˨��������������篋�����櫝�純��

METHODS

$TL->newMail

  $mail = $TL->newMail

TL::Mail ��ŝ����吾�с�壔�����篏�������

parse

  $mail->parse("From: =?ISO-2022-JP?B?GyRCOjk9UD9NGyhC?=\r\n".
               " =?ISO-2022-JP?B?IA==?=<null\@example.org>\r\n".
               "To: =?ISO-2022-JP?B?GyRCOjk9UD9NGyhC?=\r\n".
               " =?ISO-2022-JP?B?IA==?=<null\@example.org>\r\n".
               "Subject: =?ISO-2022-JP?B?GyRCJWEhPCVrN29MPhsoQg==?=\r\n".
               "\r\n".
               "mail body")

��＜�若����㋛�����篏������祉�����������������絖���潟�若�����ISO-2022-JP��� �����潟�潟�若��羝���帥�с�������������� ��壕����潟�若����� \r\n ������������ \n ��с��������������

set

  $mail->set("From: 綏勐�坂査 <null\@example.org>\n".
             "To: ������篋� <null\@example.org>\n".
             "Subject: ��＜�若�˩散���\n".
             "\n".
             "��＜�若����㋛��")

��＜�若����㋛�����篏������祉�����������������������������UTF-8���絖������с�������������� ��壕����潟�若����� \r\n ������������ \n ��с��������������

get

  $str = $mail->get

��＜�若����㋛�����篏���������潟�若����倶����у��緇������������壕����潟�若����� \n �����ŝ����� set ��＜�純�������勰����勖��篏����

setHeader

  $mail->setHeader($key => $value, ...)
  $mail->setHeader({$key => $value, ...})

������������荐㊤�����������UTF-8���絖������с�ŝ�������違�ŝ����ŝ�����

getHeader

  $str = $mail->getHeader($key)

���������������緇����������UTF-8���絖������ц��������

deleteHeader

  $mail->deleteHeader($key)

�����������������ゃ��������

setBody

  $mail->setBody($text)

��＜�若����㋛�����荐㊤�����������UTF-8���絖������с�ŝ�������違�ŝ����ŝ�����

getBody

  $text = $mail->getBody

��＜�若����㋛��������緇����������UTF-8��ц��������������

attach

  $mail->attach(%opts)

��＜�若�˨�ŝ����吾�с�壔����������˨�������若����������������若�����菴遵����������� ��㋛����壩����⓾�����������

��ャ��TL::Mail��ŝ����吾�с�壔����������若����������☀申�����������翫��:

  $mail->attach(part => $TL->newMail->...);

������篁ュ����勐�翫��:

  $mail->attach(
      type => 'text/html',
      data => $html,
      id => '<00112233>', # Content-ID, �����ュ櫝�
      filename => 'index.html', # �����ュ櫝�
      encoding => 'base64', # �����ュ櫝�
  );

countParts

  $count = $mail->countParts

��＜�若�˨����˨�障����������若����違��菴�������multipart��с�ŝ����翫����壠幻���0���

getPart

  $part = $mail->getPart($index)

���絎���������������若�����菴���������祉����ゃ��TL::Mail��勉�ゃ�潟�鴻�帥�潟�鴻�с��������

deletePart

  $mail->deletePart($index)

���絎���������������若����������ゃ��������

toStr

  $mail->toStr

�����潟�潟�若��羝���帥�＜�若����㋛�����菴������� ��壕����潟�若����� \r\n ������絖���潟�若�����ISO-2022-JP(jis)�����ŝ�����

parse ��＜�純�������勰����勖��篏����

SEE ALSO

TL

TL::Mail

TL::Sendmail

AUTHOR INFORMATION

Copyright 2006 YMIRLINK Inc. All Rights Reserved.

This framework is free software; you can redistribute it and/or modify it under the same terms as Perl itself

�����勉����㋘�若����壔�若�壔�壔����ŝ�若�純�������⓾�с�≪�с����������ŝ����� Perl �����������í�ゃ�祉�潟�鴻�� �����у�����絽������喝����眼��茵���������������堺�ャ�障�����

Address bug reports and comments to: tl@tripletail.jp

HP : http://tripletail.jp/