Daily Archives: 2008 年 10 月 20 日

perlとかシェルスクリプトとかでメールを送る

1
Filed under perl, シェルスクリプト
Tagged as , ,

ちょっとしたことでメールをしたいときに、
シェルスクリプト(shellscript) とかパール(perl)とかで
メール配信・送信をする訳ですが、以下のような感じでできるのでメモ。

【シェルスクリプト】

#!/bin/sh

wToAddress=”test@test.com”

f_SendMail(){
wToAddress=$1
wSubject=$2
wMsg=$3

echo $wMsg | mail -s “${wSubject}” “${wToAddress}”
}

f_SendMail “${wToAddress}” “Test Subject.” “Test Mail Message.”

exit

【perl】

#!/usr/bin/perl

my $sendmail = ‘/usr/sbin/sendmail’;
my $nkf = ‘/usr/bin/nkf’;

open(SENDMAIL,”| $nkf -j | $sendmail -t -i”);

print SENDMAIL <<'END';
From: test@test.com
To: test_to@test.com
Subject: テストサブジェクト

テストメッセージ

END

close(SENDMAIL);

みたいな感じですね。
シェルスクリプトのほうも、たぶんnkfかませば、日本語いけると思う。
前にやってたような気がするけど、記憶がないので。。