よくある質問

キーワード検索

FAQ TOPへ

件 名 Perlでメール送信
回 答 弊社で提供しておりますSMTPサーバーをご利用頂く場合は、
SMTP AUTHの設定が必要でございます。

例としてBASP21を利用したコード下記に記載しておりますので、ご参考にしてください。

use strict;
use warnings;
use Win32::OLE;

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

my $smtpServer = 'SMTPサーバー';
my $from = '送信元メールアドレス';
my $to = '宛先メールアドレス';
my $id = 'SMTPユーザID';
my $pass = 'SMTPパスワード';
my $subject = 'タイトル';
my $message = 'メール本文';
my $files = '添付ファイルパス';

my $auth = $id . ':' . $pass;#SMTP認証用データ"ID:パスワード"の形式。
$from = $from . " " . $auth;

#メールの送信
my $result = $bObj->SendMail($smtpServer, $to, $from, $subject, $message, $files);
print 'Content-type: text/html ';
if($reslut ne ''){
print '送信失敗';
}
else{
print '送信OK';
}
exit;

参考:http://www.hi-ho.ne.jp/babaq/basp21.html

この質問をした人は、以下の質問にもアクセスしています

Q.プログラムからファイル作成やフォルダーの作成が出来ない
Q.バッチファイルを定期的に実行することは可能ですか?

お問合せの内容は解決しましたか?
はい、解決しました
いいえ、まだ解決していません

FAQ TOPへ