Hi,
Maybe my question wasn`t clear enough. Only script in custom form VBscript related to "submitt" is function "Function Item_Send()" , after clicking "send" this function is called but "end function" or "end sub" is not working. Form is sent anyway. I found sth like this:
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Are you sure you want to send " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
Cancel = True
End If
End Sub
But i cannot define boolean in VBscript and it`s returning error for code like above. I`m new in custom forms and i don`t know how to create relation to already created code - SEND.