postovni uzel z win nt

[mira]

Zkuste napr. Net::SMTP, Mail::Sender:


        use Net::SMTP;

        $smtp = Net::SMTP->new('here.com'); # connect to an SMTP server
        $smtp->mail( 'user na here.com' );     # use the sender's address here
        $smtp->to('user na there.com');        # recipient's address
        $smtp->data();                      # Start the mail

        # Send the header.
        $smtp->datasend("To: user na there.com\n");
        $smtp->datasend("From: user na here.com\n");
        $smtp->datasend("\n");

        # Send the body.
        $smtp->datasend("Hello, World!\n");
        $smtp->dataend();                   # Finish sending the mail
        $smtp->quit;                        # Close the SMTP connection

Pro posilani:

        use Mail::Sender;

        $sender = new Mail::Sender {smtp => 'mail.yourdomain.com', from =>
'your na address.com'};
        $sender->MailFile({to => 'some na address.com', subject => 'Here is the
file',
                       msg => "I'm sending you the list you wanted.",
                           file => 'filename.txt'});

... viz nejaka dokumentace

Michal Řada, Mgr.

Jaroslav Jakl wrote:

> Zdravim,
>
> neexistuje modul pro perl pro komunikaci s ms postovnim uzlem z windows nt?
> (prijem a posilani posty)
>
> diky
> Jarda