powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) как отправить файл по почте
5 сообщений из 5, страница 1 из 1
(PERL) как отправить файл по почте
    #33524182
Гость2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужно отправить файл по почте, но без sendmail

привожу код свой, точнее слизанный у кого то

use MIME::Lite;

my $mail_host = "smtp.gmail.com";

### Create a new multipart message:
$msg = MIME::Lite->new(
From =>'s@gmail.com',
To =>'s@gmail.com',
Cc =>'s@gmail.com',
Subject =>'A message with file...',
Type =>'TEXT',
Data =>"Здесь текст письма"
);

### Attach a part:
$msg->attach(Type =>'text/html',
# Path =>'',
Filename =>'file.txt'
);

MIME::Lite->send('smtp', $mail_host, Timeout => 60, Debug => 1);
$msg->send();

гы, выдает ошибку:

I:\>sendmail.pl
SMTP MAIL command failed:
5.7.0 Must issue a STARTTLS command first b1sm1724169nfe

что не так? где грабли?
...
Рейтинг: 0 / 0
(PERL) как отправить файл по почте
    #33524410
Фотография ©Felix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ищем...
_______________
Felix
...
Рейтинг: 0 / 0
(PERL) как отправить файл по почте
    #33524463
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а зачем Вы закоментировали Patch ?

В документации к модулю даны отличные примеры!
MIME::Lite - low-calorie MIME generator

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
    ### Create a new multipart message:
    $msg = MIME::Lite->new(
                 From    =>'me@myhost.com',
                 To      =>'you@yourhost.com',
                 Cc      =>'some@other.com, some@more.com',
                 Subject =>'A message with 2 parts...',
                 Type    =>'multipart/mixed'
                 );

    ### Add parts (each "attach" has same arguments as "new"):
    $msg->attach(Type     =>'TEXT',
                 Data     =>"Here's the GIF file you wanted"
                 );
    $msg->attach(Type     =>'image/gif',
                 Path     =>'aaa000123.gif',
                 Filename =>'logo.gif',
                 Disposition => 'attachment'
                 );
...
Рейтинг: 0 / 0
(PERL) как отправить файл по почте
    #33524557
Гость2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Гы, т.е. вы думаете я всего этого не смотрел и не читал?

Вот не получается у меня почему то :)

MIME::Lite->send('smtp', $mail_host, Timeout => 60, Debug => 1);

А через просто sendmail все идет отлично
...
Рейтинг: 0 / 0
(PERL) как отправить файл по почте
    #33525136
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может Вы и читали, но допустили как минимум одну ошибку ...
Попробуйте вариант из примера, должно работать!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) как отправить файл по почте
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]