| 篤姫さんこんにちは、桐のヘルプ→一括処理を参考に下記のように作ってみました。
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
終了 表 編集対象表
|
