#!D:/Perl/bin/perl.exe

# メール送信Perlスクリプトその１(Windowsサーバー専用BASP21版)
# BASPmail1.p 2002.08.21 作成：鷹の巣　http://sakaguch.com/
# BASP21.DLLの入手先は、http://www.hi-ho.ne.jp/babaq/basp21.html
# 下記は、「Basp21を使ってメールを送る」をほぼ、そのまま引用。
# http://homepage3.nifty.com/hippo2000/perltips/perlmail.htm#2.2

#添付ファイルをつけないメールの送信。

#■□■ メールの設定データ ■□■
$mail_server = 'smpt.provider.com';		# SMTPサーバー名（自宅SMTPサーバーの場合はLAN内のブライベートアドレスでも可）
$mail_from = 'webmaster@example.com';		# 送信元メールアドレス
$mail_to = 'user@example.com';			# 宛先メールアドレス
$mail_subj = 'BASP21でメール';			# 件名
$mail_body = "簡単なメール\nMailTest\n2行目も簡単\n";# メール本文の設定
#■□■ メールの設定終わり ■□■


use Win32::OLE;					# OLEパッケージの使用

$BASP = Win32::OLE -> new('basp21');		# Basp21オブジェクトの作成

#msg = bobj.SendMail(svname,mailto,mailfrom, subj,body,files)	# メールの送信の書式
$BASP -> SendMail (	$mail_server,		# SMTPサーバ
			$mail_to,		# 宛先
			$mail_from,		# 送信元
			$mail_subj,		# 件名
			$mail_body,		# 本文
			""			# 添付ファイルに""を指定
		);