IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Веб-программирование (https://www.imho.ws/forumdisplay.php?f=29)
-   -   Send Mail , perl (https://www.imho.ws/showthread.php?t=68277)

Gike 12.09.2004 16:57

Send Mail , perl
 
Помогите плз.
надо послать письмо с аттачментом прямо на почту (без посредников)
Скачал код скрипта , подставил свои данные а он , №@%& , не работает и ошибки не выдает
типа все ок но письмо не приходит.
:(

Код:


#!/usr/bin/perl
#
#
use MIME::Lite;
use Net::SMTP;


my $from_address = '299792458@po4ta.xx';
my $to_address = '299792458@inbox.ru.ru';
my $subject = 'MIME Net::SMTP test';
my $mime_type = 'TEXT';
my $message = "Hello world!\n";

# Create the initial text of the message
my $mime_msg = MIME::Lite->new(
  From => $from_address,
      To  => $to_address,
        Subject => $subject,
            Type => $mime_type,
              Data => $message
                  )
                    or die "Error creating MIME body: $!\n";
                   
                    my $filename = 'a.txt';
                    my $recommended_filename = 'a.txt';
                   
                    # Attach the test file
                    $mime_msg->attach(
                      Type => 'application/zip',
                          Path => $filename,
                            Filename => $recommended_filename
                                )
                                  or die "Error attaching test file: $!\n";



my $message_body = $mime_msg->body_as_string();


my $ServerName = "smtp.inbox.ru";


$smtp = Net::SMTP->new($ServerName) or
  die "Couldn't connect to server";
 
  $smtp->mail( $from_address );
  $smtp->to( $to_address );
 
  $smtp->data();
  $smtp->datasend($message_body);
  $smtp->dataend();
 
 
  $smtp->quit();


EvroStandart 13.09.2004 11:30

А маил вообще есть на этом компе? Или пытаешся из перла без майлсервера отправить? :cool:

Gike 15.09.2004 16:05

пытаюсь из перла без майлсервера отправить

EvroStandart 16.09.2004 18:52

Майлсервер должен быть инсталирован в системе и вебсервер должен быть настроен на работу с ним.
Если я это правильно понял :cool:

Gike 28.09.2004 12:46

немного разобрался
теперь проблемы с аттачментом
письмо доходит , но в таком виде (a.txt сменил на 1.jpg)
Код:


This is a multi-part message in MIME format.

--_----------=_1096361458173200
Content-Disposition: inline
Content-Length: 13
Content-Transfer-Encoding: binary
Content-Type: text/plain

Hello world!

--_----------=_1096361458173200
Content-Disposition: inline; filename="1.jpg"
Content-Transfer-Encoding: base64
Content-Type: image/jpg; name="1.jpg"

/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAKAAA/+4ADkFk
b2JlAGTAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBcS
FBQUFBIXFxscHhwbFyQkJyckJDUzMzM1Ozs7Ozs7Ozs7OwENCwsNDg0QDg4Q
FA4PDhQUEBEREBQdFBQVFBQdJRoXFxcXGiUgIx4eHiMgKCglJSgoMjIwMjI7
..........
..........
..........
dVPtsM2MSWIJDRHVH9I01FYXLTmcTkKjqz4twZQZ3rYgwlp7+d66uo5AnGPc
LAgAAwbmxGnYjWjQeJsbTqFNg1zcV1dQpEC7EZJFnVTYQZCkGCsz0qd6QTlU
KrEiYHU+n1RG0m1dXVaAH+l/y026dP8AzV1dXUwP/9k=

--_----------=_1096361458173200--



Часовой пояс GMT +4, время: 09:14.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.