#! /usr/bin/perl

# Aufgabe: Email versenden

use warnings;
use strict;

my $Betreff    = "Test";                           # Betreff eintragen
my $Von        = "mail\@domain.com";               # Absender eintragen
my $An         = "mail\@domain1.com";              # Empfaenger eintragen
my $Cc         = "";                               # 2. Empfaenger eintragen
my $SMTPServer = "";                               # hier muss die IP-Adresse des Servers eingetragen werden
my $EmailText  = "Ich komme aus einem PerlSkript"; # Text eintragen
my $Datei      = "d:\\test.txt";                   # Attachment eintragen

# Blat muss natuerlich installiert sein - evtl. Pfad anpassen.
# Wenn Blat fehlschlaegt wird die Fehlermeldung in blat.out umgeleitet
unless (open (BLAT, "| d:\\blat\\blat.exe - -s $Betreff -attacht $Datei -f $Von -i $An -t $Cc 
                                            -server $SMTPServer > blat.out 2>\&1")) {
   die "Fehler beim senden der email: $!\n";
} # unless
else {
   print(BLAT $EmailText); # EmailText schreiben
   close(BLAT) or die $!;  # Datei schliessen
} # else

1;