Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Отправка e-mail из скрипта

Автор: Alex 17.12.2004, 23:43

Как отправить письмо из скрипта?
Вот код для отправки письма из скрипта на 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
Как видите, все очень просто.