|
|
|
(PERL) как отправить файл по почте
|
|||
|---|---|---|---|
|
#18+
Нужно отправить файл по почте, но без 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 что не так? где грабли? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.02.2006, 13:47 |
|
||
|
(PERL) как отправить файл по почте
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.02.2006, 18:56 |
|
||
|
(PERL) как отправить файл по почте
|
|||
|---|---|---|---|
|
#18+
а зачем Вы закоментировали 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. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.02.2006, 20:07 |
|
||
|
(PERL) как отправить файл по почте
|
|||
|---|---|---|---|
|
#18+
Гы, т.е. вы думаете я всего этого не смотрел и не читал? Вот не получается у меня почему то :) MIME::Lite->send('smtp', $mail_host, Timeout => 60, Debug => 1); А через просто sendmail все идет отлично ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.02.2006, 22:07 |
|
||
|
|

start [/forum/topic.php?fid=23&fpage=438&tid=1476827]: |
0ms |
get settings: |
7ms |
get forum list: |
19ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
50ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 245ms |
| total: | 390ms |

| 0 / 0 |
