ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Отправка файлов на мыло
  #1  
Старый 26.02.2010, 17:14
Аватар для IGL
IGL
Новичок
Регистрация: 16.11.2007
Сообщений: 15
Провел на форуме:
63230

Репутация: 0
Отправить сообщение для IGL с помощью ICQ
По умолчанию Отправка файлов на мыло

Есть скрипт, скачивает на сайт файлы по прямой ссылки
Зарегил ящик от провайдера на нем скорость неограничена (на скока канала хватает) место тоже...

Так вот нужен скрипт который отправляет письмо с аттачем, но чёб аттач выбрать можно было из папки на сервере

index.html
Код HTML:
<form action="send.php" method="POST">
<input name="milo" type="text" value="xxx@mail.ru"  /> <--- Куда отправить<br>
<input name="textsoobchenia" type="text" value="Здесь текст сообщения">
<input name="failotpravki" type="text" value="0063.zip">
<input name="otpravit" type="submit">
</form>
send.php
PHP код:
<?php
echo ($_POST[failotpravki]." ".filesize($_POST[failotpravki])."байт");
echo (
"</br>");
echo (
$_POST[milo]);
echo (
"</br>");
echo (
$_POST[textsoobchenia]);
echo (
"</br>");

function 
xmail$from$to$subj$text$filename) {
$f         fopen($filename,"rb");
$un        md5(uniqid(time()));
$head      "From: $from\n";
$head     .= "To: $to\n";
$head     .= "Subject: $subj\n";
$head     .= "X-Mailer: PHPMail Tool\n";
$head     .= "Reply-To: $from\n";
$head     .= "Mime-Version: 1.0\n";
$head     .= "Content-Type:multipart/mixed;";
$head     .= "boundary=\"--".$un."\"\n\n";
$zag       "--".$un."\nContent-Type:text/html;\n";
$zag      .= "Content-Transfer-Encoding: 8bit\n\n$text\n\n";
$zag      .= "--".$un."\n";
$zag      .= "Content-Type: application/octet-stream;";
$zag      .= "name=\"".basename($filename)."\"\n";
$zag      .= "Content-Transfer-Encoding:base64\n";
$zag      .= "Content-Disposition:attachment;";
$zag      .= "filename=\"".basename($filename)."\"\n\n";
$zag      .= chunk_split(base64_encode(fread($f,filesize($filename))))."\n";

$result=mail("$to""$subj"$zag$head);
return 
$result;
}
if (
xmail("xxx@xxx.ru"$_POST[milo], "архивчег"$_POST[textsoobchenia], $_POST[failotpravki]))
{ echo (
"мессага ушла");} else {echo ("апять неработает цука!!!");}
?>

Последний раз редактировалось IGL; 01.03.2010 в 02:34.. Причина: добавил код
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Продам аки вконтакте mazaxaka Покупка, продажа, услуги в Соц. Сетях 17 05.08.2009 11:40
Ошибки Windows 2 SVipeR Windows 9 02.03.2009 19:28
Файлчекер (FileChecker) скрипт мониторинга файлов сайта TreV@N PHP, PERL, MySQL, JavaScript 6 07.02.2009 05:05
Ошибки Windows dinar_007 Windows 19 01.07.2007 13:32



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ