Как сделать массовую рассылку по электронной почте?
Это очень просто! Ниже приведены несколько шагов для этого:
  • Шаг 1. Подготовить текст в кодировке koi8-r (+обычно в конце файла добавляется еще текст с транслитерацией). Например название файла message.txt
  • Шаг 2. Подготовить список почтовых адресов в файле addr.dat
  • Шаг 3. Зайти на сервер отдела неа используя SSH.
  • Шаг 4. Создать директорию (для удобства), например BulkMail2009 и скопировать туда приготовленные файлы.
  • Шаг 5. Скопировать в эту же папку файл /etc/Bulkmail/send_message.pl и отредактировать шапку этого файла. Файл должен выглядеть таким образом как показано ниже.
  • Шаг 6. Тестирование. Сделайте файл test.dat со своим адресом электронной почты и впишите его в скрипт в поле
    $addresses = './addr.dat';.
  • Шаг 7. Запустите скрипт командой perl send_message.pl. Проверьте все поля, заголовки пришедшего письма.
  • Шаг 8. Если все отображается нормально, и поля в порядке, замените в скрипте тестовый файл с адресами на боевой и запускайте скрипт.
#!/usr/bin/perl
use Mail::Bulkmail;

$subject = "HEA Information Letter";
$message = `cat message.txt`;
$addresses = './addr.dat';

$goodfile = './maillist.good';
$badfile = './maillist.bad';
$from='hea2009@iki.rssi.ru';
$reply_to='hea2009@iki.rssi.ru';
$errors_to='hea2009@iki.rssi.ru';