5.メールを送信する-2
前回のスクリプトをモジュール化してみましょう。
◆どう作るか
今回はモジュール化するだけなので、考えるのはやめましょうｗ（はい。怠慢ですが（ｒｙ◆作成
ちょいと今回も解説するところが無いので、完成モジュールだけで勘弁してください。/*-------------------------------------------------------------------------- SMTP AUTHで、メール送信モジュール mailsend p1,p2,p3,p4,p5,p6,p7,p8 p1：ポート番号 p2：メール送信に使うSMTPサーバ p3：AUTH認証に使うユーザー名（BASE64で変換したもの p4：AUTH認証に使うパスワード（BASE64で変換したもの p5：メール送信元アドレス p6：メール送信先アドレス p7：題名 p8：メールの本文 ※p1以外のパラメータは文字列／文字列型変数 ※別にhspsock.dllが必要です http://oresama.dw.land.to/ --------------------------------------------------------------------------*/ #module "smtp" #include "hspsock.as" #deffunc mailsend int port,str server,str user,str pass,str from,str to,str sub,str data log=str(log) sockopen 0,server,port repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "EHLO "+server+"\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "AUTH LOGIN\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput user+"\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput pass+"\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "MAIL FROM:"+from+"\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "RCPT TO:"+to+"\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "DATA\n",0 sockput "X-Mail-Agent:oresama mail module ver1.0\n",0 sockput "From:"+from+"\n",0 sockput "to:"+to+"\n",0 sockput "Subject:"+sub+"\n\n",0 sockput data+"\n",0 sockput ".\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 sockput "QUIT\n",0 repeat sockcheck 0 if stat=0 : break wait 10 loop sockget log,1024,0 return #global