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
