| パスワード:[kiri]
篤姫さんこんにちは、桐のヘルプ→一括処理を参考に下記のように作ってみました。 smtp認証の部分でフリーメールでは送信できませんでした。 plalaでは25番ポートを使い送信できるので、正常に送信できます。 そのあたりを詳しく説明して、管理工学なりにサポートして貰ったらいかがでしょうか。
var Int{&Iend},Str{&S差出人,&S結果文字列,&S送信済みメール,&S受信パス,&S送信パス } 変数 Str{&SCC,&SBCC,&SReplyTo,&SSender,&S本文,&S本文ファイル,&S添付ファイル,&Smail生成} 表 #一括パス名+"アカウント.tbl" ジャンプ 行番号=先頭 &S差出人=#cond([名前]<>"",""""+[名前]+"""",1,""),&S受信パス=[受信パス],&S送信パス=[送信パス] メール設定 [popサーバー]+":"+[pop3port], [SMTPサーバー]+":"+[SMTPポート]\ ,[ユーザー名],[Pass],[Mail],[名前]\ , 受信格納パス=[受信パス], 送信済み格納パス=[送信パス], 受信ファイル名=[受信ファイル名]\ , 送信済みファイル名=[送信ファイル名], SMTP認証=[SMTP認証], 終了状態=&Iend 終了 表 編集対象表 if (&Iend=1) * 確認 "正しく設定できました" else if (&Iend=-1) 確認 "SMTPまたはPOP3サーバーに接続中" else 確認 "間違った設定ができました" end 表 &S送信パス+"送信.tbl" &SCC=#cond([CC]<>"","CC = "+""""+[CC]+""""+",",1,"") &SReplyTo=#cond([ReplyTo]<>"","ReplyTo = "+""""+[ReplyTo]+""""+",",1,"") &SSender=#cond([Sender]<>"","Sender = "+""""+[Sender]+""""+",",1,"") &S本文=#cond([本文]<>"","本文 = "+""""+[本文]+""""+",",1,"") &S本文ファイル=#cond([本文ファイル]<>"","本文ファイル = "+""""+[本文ファイル]+""""+",",1,"") &S添付ファイル=#cond([添付ファイル]<>"", "添付ファイル = "+""""+[添付ファイル]+""""+",",1,"") &Smail生成="メール送信 "+""""+[宛先ad]+""""+","\ +#cond(&S差出人<>"","差出人 = "+&S差出人+",",1,"")\ +&SCC+&SBCC\ +"件名 = "+""""+[件名]+""""+","\ +&SReplyTo+&SSender+&S本文+&S本文ファイル\ +"変換 = 強制改行文字,"+&S添付ファイル\ +"送信済みメールファイル = &S送信済みメール,通番 = 1"\ +",接続保持 = "+""""+"しない"+""""\ +",結果文字列 = &S結果文字列,終了状態 = &Iend" コマンド &Smail生成 *クリップボード 設定, &Smail生成 if (&Iend=1) 確認 "正しく設定できました" else if (&Iend=-1) 確認 "SMTPサーバーの情報が設定されていない" else if (&Iend=-2) 確認 "ホスト情報の取得中にエラーが発生した。" else if (&Iend=-3) 確認 "TCP/IPの接続エラー。" else if (&Iend=-4) 確認 "TCP/IPの通信エラー。" else if (&Iend=-5) 確認 "差出人のアドレス形式が不正。" else if (&Iend=-6) 確認 "宛先のアドレス形式が不正。" else if (&Iend=-7) 確認 "SMTPサーバーが接続を拒否した。" else if (&Iend=-8) 確認 "差出人のメールアドレスが、SMTPサーバーから拒否された。" else if (&Iend=-9) 確認 "宛先のメールアドレスが、SMTPサーバーから拒否された" else if (&Iend=-10) 確認 "SMTPセッションの一時的なエラー。" else if (&Iend=-11) 確認 "SMTPセッションの永続的なエラー。" else if (&Iend=-20) 確認 "メールの送信数が制限を超えた。" else 確認 #STR(&Iend)+" 間違った設定ができました" end 終了 表 編集対象表
|