Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl -w

use warnings;
use strict;

use Mail::IMAPClient;
  
my $imap = Mail::IMAPClient->new(
        Server   => 'localhost',
        Port     => 993,
        User     => 'login',
        Password => '***',
        Ssl      => 1,
) or die "KILL!!!";

my $folder = "INBOX";
my $filename = "/path/to/message";
my $text;

$imap->select($folder) or die "Could not select: $@\n";

open (FD, $filename);
while (<FD>)
{
        $text = $text . $_;
}
close (FD);

my $uid = $imap->append( $folder, $text )
        or die "Could not append: ", $imap->LastError;

$imap->logout or die "Logout error: ", $imap->LastError, "\n";