Net::SMTP

[Christophe]

Hello,

I used Net::SMTP for send Mail,

sub ProgSMTPUSER {
my ($dest) = @_;
my $destuser = $dest."\@test.com";
my $from = "test\@telebec.com";
my $smtp = Net::SMTP->new("$SrvExch");
$smtp->mail($from);
$smtp->to($destuser);
$smtp->data();
$smtp->datasend("To: $destuser\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: RAPPORT VPN\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
return;
}

Result :
From : (e-mail address removed)
Date : Neant
To : (e-mail address removed)
Subject :RAPPORT VPN

How for have the Date not equal NEANT ?




Bye
christophe