| mopyutyunさん。こんにちは ダウンロードありがとうございます。
>メール一斉送信の一括処理について質問します。 >メール一括送信.wfmがポップアップになっています、これをチャイルドに変更しました。 >ところが、まだポップアップのままなのですが、どこをなおせばチャイルドになるのでしょうか。
フォームの変更はされてるようですので、変数宣言のすぐ下(9行目)の > ウィンドウ位置 最小化,-1 を、コメント行(先頭に*を付加)にしてテストしてみてください。
>また、メール一括送信にメニューに戻るようにしたいのです。 >どうすればいいかご指導ください。 この辺はプログラムを少し書き直さなければなりません。作者の意図と 変わるかもしれませんが、簡単に紹介致します。
変数を1つ(ウインドウハンドル用)追加してください。変数名は任意で良いです 変数宣言 固有 , 整数 { &wfm }
> 表 "送信履歴.tbl" > フォーム呼出し "メール一斉送信.wfm" , 終了状態 = &終了状態 >* > 分岐 ( &終了 = "メール送信" ) , メール送信実行 > 表 > 変数書き出し "メール一斉送信" , 固有 , 終了状態 = &終了状態 > ウィンドウ位置 復元 , -1 > 終了 桐 ここを、修正下さい
表 "送信履歴.tbl",使用フォーム="メール一斉送信.wfm" ウインドウ作成 フォーム,ハンドル=&wfm
繰り返し ウインドウ会話 &wfm,ボタン = &終了 条件(&終了="終了")繰り返し中止 ケース開始 ケース(&ボタン="メール送信") 手続き実行 "メール送信" ケース終了 繰り返し終了 ウィンドウ終了 &wfm 終了
79行目の > 分岐 スタート ここを、 手続き終了 に変更下さい。
試してはいませんが、以上で大丈夫と思います。 バックアップ後お試しください。 不明な点は再度質問下さい。
|