The OpenNET Project / Index page

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

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Раздел полезных советов: Отправка почты с вложением из perl ..."
Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Изначальное сообщение [ Отслеживать ]

"Раздел полезных советов: Отправка почты с вложением из perl ..."  +/
Сообщение от auto_tips on 29-Ноя-05, 09:49 
use MIME::Base64 qw(encode_base64);

my $sendmail = '/usr/sbin/sendmail';
my $to = 'linux@domain1.ru';
my $from = 'my@domain2.ru';
my $attachment = '/path_to/file.tar.gz';

my $buf;
my $subject = MIME::Base64::encode_base64('Здесь размещаем тему письма.');
   $subject =~ s/\n//g;
my $data;
   $data = MIME::Base64::encode_base64("<p>Здесь<br>Можно разместить текст сообщения.<br></p>");
my $boundary = 'simple boundary';
open(MAIL, "| $sendmail -t -oi") or die("$!");

print MAIL <<EOF;
To: $email_to
From: $email_from
Subject: =?UTF-8?B?$subject?=
Content-Type: multipart/mixed; boundary="$boundary"

This is a multi-part message in MIME format.
--$boundary
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: base64

$data
--$boundary
Content-Type: application/octet-stream; name="$attachment"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$attachment"

EOF

open(FILE, "<$attachment") or die "$!";

while (read(FILE, $buf, 60*57)) { print MAIL encode_base64($buf); }

close FILE;
close MAIL;

URL:
Обсуждается: https://www.opennet.ru/tips/info/929.shtml

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Ж*)"  +/
Сообщение от Andrey Mitrofanov on 29-Ноя-05, 09:49 
Казалось бы, и при чём тут перл?.. :)

#!/bin/sh

fbase64() { recode ..u8/b64; }
base64() { echo "$1" | fbase64; }

sendmail="/usr/sbin/sendmail"
to="gnu@domain1.org"
from="my@domain2.ru"
attachment="/path_to/file.tar.gz"

subject="Здесь размещаем тему письма."

data="<p>Здесь<br>Можно разместить текст сообщения.<br></p>"

boundary='simple boundary'
( cat <<EOF;
To: $email_to
From: $email_from
Subject: =?UTF-8?B?`base64 "$subject"`?=
Content-Type: multipart/mixed; boundary="$boundary"

This is a multi-part message in MIME format.
--$boundary
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: base64

`base64 $data`
--$boundary
Content-Type: application/octet-stream; name="$attachment"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$attachment"

EOF

fbase64 <"$attachment"

) | $sendmail -t -oi

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

5. "Ж*)"  +/
Сообщение от alpha_Qu4z4r on 22-Авг-07, 13:20 
syntax error: unexpected end of file
что-то там напутано в башевом скрипте
Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

9. "Ж*)"  +/
Сообщение от Serg email(??) on 25-Янв-10, 13:18 
Подскажите пожалуйста, что не так?

line 3: recode: command not found

Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

2. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от dsl on 05-Дек-05, 05:03 
Перл при том что иногда нужен перл, за bash тоже спасибо
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

3. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от Остров on 13-Дек-05, 14:13 
Казалось бы, и при чём тут перл?.. :)

Да притом, что надо пользоваться модулями, а не городить огород. Хотя админам простительно - они жуткие консерваторы :)))

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

4. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от alpha_Qu4z4r on 22-Авг-07, 13:18 
syntax error: unexpected end of file

=| что-то там напутано

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

7. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от yaromyr on 30-Ноя-08, 20:32 
Нужно внести некоторые поправки в текст программы

my $email_to = 'linux@domain1.ru';
my $email_from = 'my@domain2.ru';

Неправильно использованні имена переменніх!

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

8. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от asda email on 06-Авг-09, 04:47 
asdasdasdsad
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

10. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от zerra on 19-Май-10, 15:14 
пришло пустое письмо.. с аттачем ) правда аттач 0 байт (
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

11. "Отправка почты с вложением из perl с помощью sendmail"  +/
Сообщение от Валентин Петрович Алексеев email on 02-Июл-11, 13:39 
как "исправить ошибку соркета"? Письма не отправляются. Я, кстати, мало того, что новичок, да ещё руки не работают (если надо открывать блок). я в панике
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Ihor
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2019 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру