|
Проверка существования email в AD (ldap) для маршрутизации письма на Exchange |
Автор: 2dfx
[комментарии]
|
| У нас в компании используется сервер Exchange для обмена почтовыми сообщениями. Но для отправки сообщений во "вне" используем Communigate Pro.
Communigate (CGP for Linux) используется только как прослойка и письма отправленные на известные домены пересылаются на Exchange.
... [Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
|
|
|
|
Отправка почты с вложением из perl с помощью sendmail |
Автор: Andrey
[комментарии]
|
| use MIME::Base64 qw(encode_base64);
... [Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
|
|
|
|
Как отправить HTML письмо с вложенными картинками. |
[обсудить]
|
| use MIME::Lite;
$msg = MIME::Lite->new( To =>'you@yourhost.com',
Subject =>'HTML with in-line images!',
Type =>'multipart/related');
$msg->attach(Type => 'text/html',
Data => qq{ <body>Here's <i>my</i> image:<img src="cid:myimage.gif"></body> });
$msg->attach(Type => 'image/gif',
Id => 'myimage.gif',
Path => '/path/to/somefile.gif');
$msg->send();
|
|
|
|
|
Как кодировать/декодировать на Perl содержимое полей в Quoted Printable |
[комментарии]
|
| use MIME::Words qw(:all);
$decoded = decode_mimewords('Subject: =?KOI8-R?Q?=D4=C5=D3=D4?=');
$encoded = encode_mimeword("тест", "q", "koi8-r");
$encoded = encode_mimewords("Subject: тест", Charset=> 'koi8-r', Encoding => 'q');
# для base64, вместо "q", написать "b".
|
|
|
|
|
|
Как отправить почтовое сообщение из Perl скрипта |
[обсудить]
|
| $cmd_mail="/usr/sbin/sendmail -t";
open (SENDMAIL, "|$cmd_mail") || die "ERROR: Can not run sendmail";
print SENDMAIL "MIME-Version: 1.0\n";
print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
print SENDMAIL "To: $to_email\n";
print SENDMAIL "From: Nobody <nobody\@$localhost>\n";
print SENDMAIL "Subject: $subject\n\n";
print SENDMAIL $message . "\n";
close (SENDMAIL);
|
|
|
|