отправка данных формы на почтовый ящик
- Автор темы dmitrikk
- Дата начала
- Статус
Посмотрите готовые варианты и определите ошибки, например: Скрипт формы обратной связи на PHP, 3.0-скачать- http://freesoft.ru/?id=674072
Вы сами писали код или брали готовый, если готовый дайте ссылку.
сам делал!!
это сама форма!!!
а это обработчик
obrabotchik.php
и с чужими формами тоже смое
где искать помогите PLIZ!!!
это сама форма!!!
Код:
<form name="forma" action="obrabotchik.php" method="post" enctype="text/plain">
<table align="center" width="500" border="0"><tr>
<td colspan="2" align="center">
<h2>Форма заказа</h2>
</td></tr><tr><td align="right" valign="top">
Ваше имя :
</td><td>
<input name="param1" type="text" size="30" maxlength="20" value="">
</td></tr><tr><td align="right" valign="top">
Ваше EMAIL :
</td><td>
<input name="param2" type="text" size="30" maxlength="20" value=" @">
</td></tr><tr><td align="right" valign="top">
Коментарий :
</td><td>
<textarea name="text1" rows=10 cols=30 wrap="off"></textarea>
</td></tr><tr><td align="center" colspan="2">
<input type="submit" value="Отправить">
<input type="reset" value="Сброс">
</td></tr></table>
</form>obrabotchik.php
Код:
<?php
$email = [email="your@email"]your@email[/email];
mail ($email, $_POST['param1'], $_POST['text1'], $_POST['param2']);
?>где искать помогите PLIZ!!!
Ivan
суперМодератор
- Регистрация
- 10.01.2007
- Сообщения
- 316
Узрите, свет, пыхыпэшники!
скрипт any.cgi:
Код:
<form action="any.cgi" method="post">
Ваш email<input type="text" name="email"><br>
Тема письма<input type="text" name="subject"><br>
Сообщение<input type="text" name="message"><br>
</form>
Код:
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Lite;
use CGI qw(:standard);
use Mail::CheckUser qw(check_email);
$Mail::CheckUser::Skip_Network_Checks = 1;
use MIME::Base64;
# получим данные формы
my $q = CGI->new();
my ($email,$subject,$message) = map { $q->param($_) } ('email','subject','message');
# завершим работу если в поле email ввели нечто непонятное
exit unless check_email($email);
# формируем письмо
my $msg = MIME::Lite->new(
# от кого
From => 'site_form@my_domain.com',
# обратный адрес
'Reply-To' => $email,
# ваш email
To => 'my_email@my_post.com',
# сабж в base64 нужно, чтоб все почтовые клиенты понимали
# актуально для сабжектов с русскими буквами
Subject => subj64($subject, 'windows-1251'),
# кодировка письма
charset => 'windows-1251',
# сообщение
Data => $message
);
# отправка
$msg->send();
exit;
# ф-ция кодировки сабжекта в base64
sub subj64 {
my ($subj, $enc) = @_;
return 'no subject' unless $subj;
$subj = '=?'.$enc.'?B?'.encode_base64($subj).'?=';
$subj =~ s/\n//g;
$subj .= "\n";
return $subj;
}
Код:
<?php
$to = "Mary <mary@example.com>, " ;
$to .= "Kelly <kelly@example.com>";
$subject = "Birthday Reminders for August";
$message = '
<html>
<head>
<title>Birthday Reminders for August</title>
</head>
<body>
<p>Here are the birthdays upcoming in August!</p>
</body>
</html>';
$headers = "Content-type: text/html; charset=windows-1251 \r\n";
$headers .= "From: Birthday Reminder <birthday@example.com>\r\n";
$headers .= "Bcc: birthday-archive@example.com\r\n";
mail($to, $subject, $message, $headers);
?>- Статус
