Outlook Forms - Task form cancel send

[FishGuy]

I have created a form and using the code below applied some validation. However The message box in the Write function for some reason fires twice and also after the form is cancelled when the user goes back to the form to fix the errors the send button has disappeared from the toolbar.

Function Item_Write()
	Dim str_ValidRequired
	Dim str_ValidIncorrect
	
	
	str_ValidRequired = ""
	str_ValidIncorrect = ""
	
	str_ValidRequired = ValidateRequired
	str_ValidIncorrect = ValidateIncomplete

	If str_ValidRequired <> "" or str_ValidIncorrect <> "" Then
		Item_Write = False
		If str_ValidRequired <> "" Then
			str_ValidRequired = "The form is incomplete, please complete the following fields- "  & VBCrLf & str_ValidRequired
		End If

		If str_ValidIncorrect <> "" Then
			str_ValidIncorrect = "The form contains the following errors please review as described and resubmit the form-" & VBCrLf & str_ValidIncorrect
		End If
		msgbox str_ValidRequired & str_ValidIncorrect, 64, "Request Validation."

	
	End If
	
End Function


   
Function Item_Send()
	Dim str_ValidRequired
	Dim str_ValidIncorrect
	Dim str_ErrorMsg

	str_ValidRequired = ""
	str_ValidIncorrect = ""
	str_ErrorMsg = ""
	str_ValidRequired = ValidateRequired
	str_ValidIncorrect = ValidateIncomplete

	If str_ValidRequired <> "" or str_ValidIncorrect <> "" Then
		

		Item_Send = False
	
		
	
	End If

End Function





Function ValidateRequired()
	
	Dim str_List
	str_List = ""
	Dim txt_Requester
	Dim txt_JobTitle
	Dim txt_Telephone
	Dim txt_Email
	Dim txt_RequestTitle 
	Dim cbo_PracticeArea 
	Dim cbo_Audience 
	Dim cbo_RequestAbout 
	Dim txt_BusinessObjectives 
	Dim txt_Deadline 
	Dim txt_RequestOverview
	txt_Requester = Item.UserProperties("Requester")
	txt_JobTitle = Item.UserProperties("JobTitle")
	txt_Telephone = Item.UserProperties("Telephone")
	txt_Email = Item.UserProperties("Email")
	txt_RequestTitle = Item.UserProperties("RequestTitle")
	cbo_PracticeArea = Item.UserProperties("PracticeArea")
	cbo_Audience = Item.UserProperties("Audience")
	cbo_RequestAbout = Item.UserProperties("RequestAbout")
	txt_BusinessObjectives = Item.UserProperties("Objectives")
	txt_Deadline = Item.UserProperties("Deadline")
	txt_RequestOverview = Item.UserProperties("RequestOverview")
 
	
	
	If txt_Requester = "" Then
		str_List = str_List & "Requester:" & VBCrLf
	End If

	If txt_Telephone = "" Then
		str_List = str_List & "Telephone:" & VBCrLf
	End If

	If txt_Email = "" Then
		str_List = str_List & "Email:" & VBCrLf
	End If

	If txt_RequestTitle = "" Then
		str_List = str_List & "Request Title:" & VBCrLf
	End If

	If cbo_PracticeArea = "" Then
		str_List = str_List & "Practice Area:" & VBCrLf
	End If

	If cbo_Audience = "" Then
		str_List = str_List & "Audience:" & VBCrLf
	End If

	If cbo_RequestAbout = "" Then
		str_List = str_List & "Request About:" & VBCrLf
	End If

	If txt_BusinessObjectives = "" Then
		str_List = str_List & "Business Objectives:" & VBCrLf
	End If

	If txt_RequestOverview = "" Then
		str_List = str_List & "Request Overview:" & VBCrLf
	End If

	ValidateRequired = str_List

End Function
 
Function ValidateIncomplete()
	
	Dim str_List
	Dim txt_Deadline	
	str_List = ""
	txt_Deadline = Item.UserProperties("Deadline")
	
	
	If txt_Deadline < Now() Then
		str_List = "Request Deadline must be in the future:" & VBCrLf
		
	End If
	
	ValidateIncomplete = str_List
End Function

[Siddharth Rout]

@FG: A function is a procedure that returns a value. You may change the above from

Function Item_Write()

to

Function Item_Write() as Boolean

Similarly you can change the rest of the 'Functions' as well... to String or Boolean whichever applicable...

The only reason I can think of for that message box coming twice is that your Function is being called twice....

I can see plenty of other errors in the code... One of them for example, Item_Write will always be False...

What exactly are you trying to achieve. Can you show the complete code?

[FishGuy]

Hi Sid,

That is the full code, basically the Item_Write event is the event available in the script editor which fires automatically, I did think it strange that it is a function not a procedure. It Item write and Item send both fire when the send button is pressed and I call my two validate functions to check the values of the text boxes on the form and if required show a message.

If the validation is fine I am happy for it to send and close the form, if the validate functions return a string then I want it to not send and allow the user to revisit the form to re-submit after correcting the errors.

[FishGuy]

Hi Sid,

That is the full code, basically the Item_Write event is the event available in the script editor which fires automatically, I did think it strange that it is a function not a procedure. It Item write and Item send both fire when the send button is pressed and I call my two validate functions to check the values of the text boxes on the form and if required show a message.

If the validation is fine I am happy for it to send and close the form, if the validate functions return a string then I want it to not send and allow the user to revisit the form to re-submit after correcting the errors.

I googled my problem and found this similar

First time posting to this forum so if this is and old problem please forgive me in advance. Googled the problem and found nothing.

I created a custom form using a task request template and when I tried to handle the send event nothing happened. (VBScript) So I handled open and write and close and they all worked. In fact the Write Event fired twice successively

You can replicate with the following VBScrip

Function Item_Open(
MsgBox "Open
End Functio

Function Item_Read(
MsgBox "Read
End Functio

Function Item_Write(
MsgBox "Write
End Functio

Function Item_Close(
MsgBox "Close
End Functio

Function Item_Send(
MsgBox "Send
End Functio

even in a blank task request form this code doen't fire the Send Event but fires Write twice. It makes it a little hard to do field validation before a send and of course you can't cancel the send. Anybody had similar probs

Task requests don't fire a Send event. They have lots of other oddities,
too, which my page at http://www.outlookcode.com/d/taskform.htm explains. I
try to avoid customizing them.
Sue Mosher, Outlook MVP

It looks like I may not find a solution to my problem.

[FishGuy]

Ok figured if i add my own send button and add the validation there I may get round this issue, i.e. validate then if tru call the send event myself rather than calling the send/write event then trying to cancel it. Although I don't think this may be possible for the same reason and also I cannot hide the built in Send button on a task form.

I think I may be better sending an email form and creating a task programatically?

[Siddharth Rout]

The link http://www.outlookcode.com/d/taskform.htm doesn't work...

In fact it takes me to http://www.outlookcode.com/article.aspx?id=60

Can you upload you app? Let me try and see if I can do something about it, if I can...