#!/usr/bin/perl

$mailprog = "/usr/sbin/sendmail -t";
$mailaddr = "test\@t-online.de";
$user_email ="absender\@xxx.de";

open(MAIL, "|$mailprog") or die &error_sub($!);
print MAIL "To: $mailaddr\n";
print MAIL "From: $user_email\n";
print MAIL "Subject: Test\n\n";
print MAIL "dein Inhalt\n";
close(MAIL);

sub error_sub {
print "Content-Type: text/html\n\n";
print "Leider konnte nichts gesendet werden!";
}

exit;

#! /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;