VPF::Отправка e-mail из скрипта - Форум программистов

Alex

Дата 17.12.2004, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162

Как отправить письмо из скрипта?
Вот код для отправки письма из скрипта на Perl.
Отправляется письмо на адрес $email от имени $admin_email тема $subject
текст письма в $data (это HTML код в кодировке windows)

#=================================================
#== Отправить сообщение по E-main
# Пример: &sendmail($email, $subject, $text);
#=================================================

Код


sub sendmail
{ my ($email, $subject, $data) = @_;
  my $login = 'твой логин на сервере';                       # Ваш логин на сервере
  my $From = '[email protected]'; # С какого email отправлять
  my $mail = "/usr/sbin/sendmail -t -f$login"; # Путь к sendmail
  local(*SM);
  if (open(SM, "|$mail")) {
    print SM "From: $From\n";
    print SM "To: $email\n";
    print SM "Subject: $subject\n";
    print SM "Content-Type: text/plain; charset=Windows-1251\n\n";
    print SM "$data\n";
    close(SM);
  } else { die "Ошибка: не найден $mail"; }
}

Вам нужно только подставить свои значения в переменные: $login и $From
Как видите, все очень просто.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »