Es wurde keine E-Mail Adresse angegeben oder die E-Mail Adresse liegt nicht im korrekten Format vor!";
exit;
}
if ( (!isset($Action)) || ($Action == "") ) {
print "Es wurde das Feld Action nicht übermittelt!";
exit;
}
if (($EMailText == "") || ($EMailSubject == "")) {
print "Fehler es ist kein E-Mail-Text oder kein Betreff für die Bestätigungs-E-Mail vorhanden.";
exit;
}
if ($Action == "subscribe") {
$headers = "From: $Recipient\n";
$headers .= "X-Mailer: SuperMailerScript http://www.supermailer.de/\n";
$headers .= "Return-Path: <$Recipient>\n";
$message = join("", file($EMailText));
$Link = "http://".$SERVER_NAME.$SCRIPT_NAME."?Action=confirmation&EMail=".urlencode($EMail);
#Fuer weitere Felder, diesen muessen im HTML-Formular und im SuperMailer angelegt werden!
$s="";
reset ($HTTP_GET_VARS);
while (list ($key, $val) = each ($HTTP_GET_VARS)) {
if ($key == "Action") continue;
if ($key == "SubmitBtn") continue;
if($s == "")
$s = "$key=".urlencode($val);
else
$s .= "&$key=".urlencode($val);
}
reset ($HTTP_POST_VARS);
while (list ($key, $val) = each ($HTTP_POST_VARS)) {
if ($key == "Action") continue;
if ($key == "SubmitBtn") continue;
if($s == "")
$s = "$key=".urlencode($val);
else
$s .= "&$key=".urlencode($val);
}
if($s != "")
$Link .= "&".$s;
$message = str_replace ("[BESTAETIGUNGSLINK]", $Link, $message);
@mail($EMail, $EMailSubject, $message, $headers);
if ($ConfirmationMailSendOKPage != "")
header("Location: $ConfirmationMailSendOKPage");
else
print "Ihnen wurde eine E-Mail an die E-Mail-Adresse $EMail mit einem Bestätigungslink zur Aufnahme in unseren Newsletter gesendet.
Bitte klicken Sie in dieser E-Mail auf den Bestätigungslink, damit Ihre E-Mail-Adresse in unseren Newsletter aufgenommen wird.";
exit;
}
# Aufruf ueber Bestaetigungs-E-Mail
if ($Action=="confirmation") {
$Action="subscribe";
}
$headers = "From: $EMail\n";
$headers .= "X-Mailer: SuperMailerScript http://www.supermailer.de/\n";
$headers .= "Return-Path: <$EMail>\n";
# Alle uebergebenen Werte in die Anmeldenachricht uebernehmen
$message = "";
reset ($HTTP_GET_VARS);
while (list ($key, $val) = each ($HTTP_GET_VARS)) {
if ($key == "Action") continue;
if ($key == "SubmitBtn") continue;
$message .= "$key: ".$val."\n";
}
# Versenden der Mail
@mail($Recipient, $Action, $message, $headers);
if ($Action == "subscribe")
if ($SubscribeOKPage != "")
header("Location: $SubscribeOKPage");
else
print "Ihre E-Mail-Adresse $EMail wurde zu unserer Newsletterliste hinzugefügt!";
else
if ($UnsubscribeOKPage != "")
header("Location: $UnsubscribeOKPage");
else
print "Ihre E-Mail-Adresse $EMail wurde aus unserer Newsletterliste entfernt!";
?>