<?
if ($akce == "Odeslat") { /* Bylo stisknuto tlacitko Odeslat */
if ($soubor_name == "") { /* nebyla vybrana priloha, posleme e-mail obycejne */
if (mail ("$prijemce", 'Zpráva z webu', "$dopis", "From: $odesilatel")) {
print "<h3>E-mail byl úspěšně odeslán!</h3>";
}
else {
print "<h3>E-mail se nepodařilo odeslat!</h3>";
}
}
else { /* priloha byla vybrana */
/* nejprve sestrojime hlavicky */
$envelope["from"] = "$odesilatel";
$envelope["to"] = "$prijemce";
/* nyni sestrojime nekolik casti dopisu */
/* 1. cast - uvodni, tou rekneme, ze dopis ma vice casti s ruznymi typy dat */
$part1["type"] = TYPEMULTIPART;
$part1["subtype"] = "mixed";
/* 2. cast - do dopisu pripojime prilohu */
/* nejprve zadany soubor nacteme */
Copy($soubor, $soubor_name); /* uploadnuty soubor zkopirujeme z docasneho adresare */
$f = fopen ($soubor_name, "r"); /* otevren pro cteni */
$obsah = fread ($f, filesize($soubor_name)); /* nacteme obsah do promenne */
fclose ($f);
$part2["type"] = TYPEAPPLICATION;
$part2["encoding"] = ENCBINARY;
$part2["subtype"] = "octet-stream";
$part2["description"] = basename($soubor_name);
$part2["contents.data"] = "$obsah";
/* 3. cast - do dopisu vlozime zadany text */
$part3["type"] = TYPETEXT;
$part3["subtype"] = "plain";
$part3["description"] = "text";
$part3["contents.data"] = $dopis;
/* Cely dopis ulozime do pole body */
$body[1] = $part1;
$body[2] = $part2;
$body[3] = $part3;
/* celou zpravu vytvorime a ulozime do promenne $zprava: */
$zprava = imap_mail_compose ($envelope, $body);
/* drive nez posleme zpravu funkci Mail musime rozdelit
zvlast hlavicku a zvlast telo: */
$pom = StrPos($zprava, "\r\n\r\n");
$hlavicka = SubStr($zprava, 0, $pom+2);
$telo = SubStr($zprava, $pom, StrLen($zprava) - $pom);
if (mail ("$prijemce", 'Zpráva z webu', $telo, $hlavicka)) {
print "<h3>E-mail byl úspěšně odeslán!</h3>";
}
else {
print "<h3>E-mail se nepodařilo odeslat!</h3>";
}
}
}
?>
<HR SIZE=1 NOSHADE>
<FORM ACTION="send.php" METHOD="post" ENCTYPE="multipart/form-data">
Odesílatel: <INPUT TYPE="text" NAME="odesilatel" VALUE="" SIZE=50 MAXLENGTH=50><BR>
Příjemce: <INPUT TYPE="text" NAME="prijemce" VALUE="" SIZE=50 MAXLENGTH=50><BR>
<BR>
Text:<BR>
<TEXTAREA NAME="dopis" COLS="50" ROWS="10"></TEXTAREA><BR>
Soubor: <INPUT TYPE="file" NAME="soubor"> <BR>
<INPUT TYPE="submit" NAME="akce" VALUE="Odeslat"><BR>
</FORM>
ked som ten formular skusal tak mi vypisalo chybu v riadku 37,38,39, ale vypisalo aj ze mail bol uspesne odoslany skusal som dat do prilohy subor Open Office Text a prisiel mi subor s nazvom priloha bez koncovky
da sa s tym nieco robit?
Warning: copy eval() has been disabled for security reasons in /3w/wz.cz/a/aughostino/send.php on line 35
Warning: fopen(): Unable to access Nový objekt - OpenDocument Text.odt in /3w/wz.cz/a/aughostino/send.php on line 37
Warning: fopen(Nový objekt - OpenDocument Text.odt): failed to open stream: No such file or directory in /3w/wz.cz/a/aughostino/send.php on line 37
Warning: filesize(): Stat failed for Nový objekt - OpenDocument Text.odt (errno=2 - No such file or directory) in /3w/wz.cz/a/aughostino/send.php on line 38
Warning: fread(): supplied argument is not a valid stream resource in /3w/wz.cz/a/aughostino/send.php on line 38
Warning: fclose(): supplied argument is not a valid stream resource in /3w/wz.cz/a/aughostino/send.php on line 39
