/**
* Sendas retmesagxon al iu h**o.
*
* $subjekto - temlinio de la mesagxo (en UTF-8, EO-signoj per c^-kodigo)
* $korpo - la teksto de la mesagxo (dito)
* $to_name - la nomo de la ricevonto (dito)
* $to_adress - la retposxtadreso de la ricevonto
*/
function sendu_xxxxx_mesagxon($subjekto, $korpo, $to_name, $to_address)
{
$subject = eotransformado($subjekto, "utf-8");
// $mesagxo = "### auxtomata mesagxo de la DEJ-aligilo ###\n\n";
$mesagxo .= eotransformado($korpo, "utf-8");
$from_name = "Pauxlo Ebermann";
// TODO: (eble prenu nomon aux el la datumbazo/konfiguro, aux la entajpanton ?)
$from_address = "*****@*****.**";
// TODO: Eble prenu el la datumbazo?
$email_message = new email_message_class();
$email_message->default_charset = "UTF-8";
if (!strcmp($error = $email_message->SetEncodedEmailHeader("To", $to_address, eotransformado($to_name, "utf-8")), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("From", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Reply-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedHeader("Errors-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Bcc", "*****@*****.**", "Paul Ebermann"), "") && !strcmp($error = $email_message->SetEncodedHeader("Subject", $subject), "") && !strcmp($error = $email_message->AddQuotedPrintableTextPart($email_message->WrapText($mesagxo)), "")) {
$error = $email_message->Send();
}
if ($error) {
erareldono($error);
exit;
}
}
/*
* Set the Return-Path header to define the envelope sender address to
* which bounced messages are delivered.
* If you are using Windows, you need to use the smtp_message_class to set
* the return-path address.
*/
if (defined("PHP_OS") && strcmp(substr(PHP_OS, 0, 3), "WIN")) {
$email_message->SetHeader("Return-Path", $error_delivery_address);
}
$email_message->SetEncodedHeader("Subject", $subject);
/*
* A message with attached files usually has a text message part
* followed by one or more attached file parts.
*/
$text_message = "Hello " . strtok($to_name, " ") . "\n\nThis message forwarding another message that is encapsulated as attachment.\n\nThank you,\n{$from_name}";
$email_message->AddQuotedPrintableTextPart($email_message->WrapText($text_message));
$forwarding_message = array("FileName" => "message.eml", "Name" => "[Fwd: Testing Manuel Lemos' MIME E-mail composing and sending PHP class: HTML message]");
$email_message->AddMessagePart($forwarding_message);
/*
* The message is now ready to be assembled and sent.
* Notice that most of the functions used before this point may fail due
* to programming errors in your script. You may safely ignore any errors
* until the message is sent to not bloat your scripts with too much error
* checking.
*/
$error = $email_message->Send();
if (strcmp($error, "")) {
echo "Error: {$error}\n";
} else {
echo "Message sent to {$to_name}\n";
}
/**
* TODO: dokumentado por sendu_konfirmilon
*
* $teksto - en tiu variablo ni metos la tekston de la mesagxo,
* por ebligi montri gxin ankoraux en la retpagxo (krom
* la dissendado).
*
* ### uzado: partrezultoj.php, AligxiloDankon.php ###
*/
function sendu_konfirmilon($partoprenanto, $partopreno, $renkontigxo, &$teksto)
{
$subject = "unua konfirmilo por la " . $renkontigxo->datoj[nomo];
$mesagxo = "### auxtomata mesagxo ###\n\n";
$from_name = "IS-Aligilo";
$from_address = "*****@*****.**";
// TODO: forigi retadreson
$to_name = utf8_decode($partoprenanto->datoj[personanomo] . " " . $partoprenanto->datoj[nomo]);
$to_address = $partoprenanto->datoj[retposxto];
$teksto = faru_1akonfirmilon($partoprenanto, $partopreno, $renkontigxo);
$mesagxo .= $teksto;
$email_message = new email_message_class();
$email_message->default_charset = "UTF-8";
if (!strcmp($error = $email_message->SetEncodedEmailHeader("To", $to_address, $to_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("From", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Reply-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Bcc", "*****@*****.**", "Paul Ebermann"), "") && !strcmp($error = $email_message->SetEncodedHeader("Errors-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedHeader("Subject", $subject), "") && !strcmp($error = $email_message->AddQuotedPrintableTextPart($email_message->WrapText($mesagxo)), "")) {
$error = $email_message->Send();
}
if ($error) {
erareldono($error);
exit;
}
}
