MAIL

[Javeed SAR]

Hi,

I am using  a perl script which sends mail after certain activity,
This script uses smtp, my question is i want  a script which uses
TCP/IP(X400) for sending mails.


The script which i am using is given below, it works fine, but i need
something which uses TCP/IP(X400) .





my @MSG = 
("Trigger activation mail notification for controlled action on VOB");

#############################################

my $smtp;
   
$smtp = Net::SMTP->new($SMTP_SERVER);

 
$smtp->mail($ENV{'CLEARCASE_USER'}."\@".$EMAIL_DOMAIN);


$smtp->to(@EMAIL_TO_LIST);

$smtp->data();

$smtp->datasend("To: @EMAIL_TO_LIST\n");
$smtp->datasend("Subject: $SUBJECT\n");
$smtp->datasend(@MSG);

$smtp->dataend();

$smtp->quit;



Regards
javeed