初歩的な質問となり恐縮です。
現在、メールの送信前にメッセージボックスを表示させ、はいかいいえによりメールの送信を止めるかどうかを決めたいと考えています。
現在やったことは、コード>スクリプトライブラリ>[CoreEmailClassies_ja-JP]のQuerysendに以下のように追加をしました。
Function QuerySend
If Not m_calprofile Is Nothing Then
If m_calprofile.hasitem("OnSendEnabled") Then
If (m_calprofile.GetItemValue("OnSendEnabled")(0) = "1" )Then
Dim answer As Integer
answer = MessageBox("これらの宛先に送信します。よろしいですか?" & chr(10) _
& "To : " & m_noteUIMemo.document.GetItemValue("EnterSendTo")(0)& Chr(10) _
& "Cc : " & m_noteUIMemo.document.GetItemValue("EnterCopyTo")(0) & Chr(10)_
& "Bcc : " & m_noteUIMemo.document.GetItemValue("EnterBlindCopyTo")(0) _
,MB_YESNO, "送信前宛先最終確認")
If(answer = IDNO) Then
End
End If
m_MemoOnSendEnabled = True
m_MemoBlankSubject = True
m_MemoBlockOnSend = False
これでは、はいかいいえの分岐までは正常に動くのですが、そのあとのEndが実行されてもメールはそのまま実行されてしまいます。
Postsendというものが後に動いているということを有識者の方に教えていただいたのですが、アプリケーション全体で検索を書けても見つけることが出来ませんでした。
フォームに対する理解が浅く、式言語でQuerysendを呼び出している部分も見つけることができていない状況です。
Querysend上でメールの送信を中止する方法、もしくはPostsendの記述場所とメール送信を止める引数を渡す方法、または全く別の方法でもあれば知恵を貸してはいただけないでしょうか。