The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Работа с электронной почтой

   Корень / Программисту и web-разработчику / Perl / Работа с электронной почтой

----* Проверка существования 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".
 
----* Как отправить письмо с аттачем (доп. ссылка 1)   [комментарии]
 
модуль Mime::Lite
 
----* Как отправить почтовое сообщение из 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); 
 

 Версия для печати




  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor