Hi Folks,
ich habe da ein Perl-Skript mit dem sollen bei einem Kunden
Mails an Personen verschickt werden. Die Mail soll über SMTP an den NotesMailServer gehen. Dies klappt leider nicht.
Der Kunde sitzt an Ort A und hat dort einen NotesServer,
an Ort B sitzt der zentrale Mailserver.
Das Perl-Skript ist auf einem Rechner ( mit NotesClient an ort A installiert).
Das Skript ist i.O., hier funktioniert es.
Ich habe keinen Zugriff auf den Admin Client beim Kunden,
ich kann ihn nur nach irgendwelchen Einstellungen fragen.
Ich konnte durch sperren von SMTP Inbound den Mailversand
hier ebenfalls verhindern. Wo könnte ich noch suchen ?
Ciao
Don Pasquale
BEGIN
{
$configparser = new XML::DOM::Parser;
$config = $configparser->parsefile('C:/TEMP/config.xml');
$MailServer = ComlineUtil->getTagValue( $config, 'mailserver' );
$Absender = ComlineUtil->getTagValue( $config, 'absender' );
$cc = ComlineUtil->getTagValue( $config, 'cc' );
$Betreff = ComlineUtil->getTagValue( $config, 'betreff' );
$message = ComlineUtil->getTagValue( $config, 'message' );
$Empfaenger = ComlineUtil->getTagValue( $config, 'empfaenger' );
} # ENDE BEGINN
$smtp = Net::SMTP->new($MailServer);
print $smtp->domain,"\n";
$smtp->mail($Absender);
$smtp->to($Empfaenger);
$smtp->cc($cc);
$smtp->data();
$smtp->datasend("Subject: $Betreff\n");
$smtp->datasend("To: $Empfaenger\n");
$smtp->datasend("\n");
# $message = "Test-E-Mail.\n\nMit freundlichen Grüßen\n\nIhr freundliches Programm\n\n";
$smtp->datasend("$message");
$smtp->dataend();
$smtp->quit;
Thema: Mail über SMTP klappt nicht - Ideen benötigt (Gelesen 3277 mal)