2009年5月4日月曜日

Perlで一括メール配信

会社でメールマガジンを発行することになった。800通ほどのメールをBCCで送信しようとしたらプロバイダ(Google Apps)で拒否された。別のプロバイダを使うことを検討したが、そこでもスパム送信対策が行われていると面倒なので、自前のサーバでメールを送ることにした。

時間がなかったので、慣れているPerlでメール一括配信スクリプトを作成。およそ20分程度で全部の配信が完了した。

気になったのは「~」という文字が化けること。(波ダッシュ問題?) UTF-8からJISに変換したときか、それとも開発にWindowsVistaを使ったせいなのか? まあ、修正が面倒なので「-」と書き換えて送信した。

0 件のコメント:

コメントを投稿