Господа товарищи
за неделю ничего не придумал и ненаэкспериментировал, обращаюсь к
коллективному разуму.
В некоторый момент return receipt/DSN в простом, как грабли, коде, начал
вести себя странно.
gmail ни DSN не отправляет, ни return receipt не предлагает
один из ящиков предлагает receipt, другой - в том же thunderbird-е, с
теми же настройками, не предлагает
письмо непосредственно от thunderbird с точно таким же
Disposition-Notification-To - DNS честно отправляет.
Что я делаю не так?...
=== cut ===
use strict;
use MIME::Lite;
use Encode;
use utf8;
my $disp = 'tark...@corp.infotel.ru';
my $msg = MIME::Lite->new (
From => encode('MIME-Header','Безумный
Робот'.' <tark...@corp.infotel.ru>'),
To =>
encode('MIME-Header','tark...@corp.infotel.ru'),
To => encode('MIME-Header','tark...@over.ru'),
To => encode('MIME-Header','tark...@gmail.com'),
'Disposition-Notification-To' => $disp,
'X-Disposition-Notification-To' => $disp,
'Return-Receipt-To' => $disp,
'X-Mailer' => 'AuxAdmin',
Subject => encode('MIME-Header',
'Задолженность по договору' ),
Data => 'У вас тут случилось!',
Charset => 'utf-8',
Type => 'text/plain; charset=UTF-8;',
);
$msg->add ('Return-Receipt-To' => $disp );
$msg->add( 'Disposition-Notification-To' => 'Alex Povolotsky
<tark...@corp.infotel.ru>' );
$msg->add( 'X-Confirm-Reading-To' => $disp );
$msg->attr("content-type.charset" => "UTF-8");
$msg->send( );
=== cut ===
--
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org