Type Mismatch Error

[dtgreer]

I have an double array which I would like to get the value of one of it's members and assign it to the To field of an outlook form. However, I receive a type mismatch: Employees Error.

Function Item_Open()
Dim FormPage, Control
Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
Set Control = FormPage.Controls("TypeCombo")
Control.PossibleValues = "Sign In;Lunch Out;Lunch In;Sign Out"

Dim Employees(30,5)
Employees(0,0) = "John"
Employees(0,1) = "[email protected]"


End Function

Sub Item_CustomPropertyChange(ByVal Name)
Dim FormPage, Control
Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
Set Control = FormPage.Controls("TypeCombo")
	Select Case Name
	Case "TypeCombo"

		SupervisorEmail = Employees(0,1).value

		If Control.ListIndex = 0 Then
			Item.Subject = "Sign In"
			Item.To = SupervisorEmail 
		End If
		
		If Control.ListIndex = 1 Then
			Item.Subject = "Lunch Out"
			Item.To = SupervisorEmail 
		End If

		If Control.ListIndex = 2 Then
			Item.Subject = "Lunch In"
		End If

		If Control.ListIndex = 3 Then
			Item.Subject = "Sign Out"
		End If
		
	End Select

End Sub

[SambaNeko]

Take off the ".value".

SupervisorEmail = Employees(0,1)

[dtgreer]

Same error.

[LaVolpe]

I don't see SupervisorEmail declared? Could that be the problem?

[dtgreer]

Doh. didnt catch that but even with that change it gives the same error.


Dim SupervisorEmail
SupervisorEmail = Employees(0,1)

If Control.ListIndex = 0 Then
Item.Subject = "Sign In"


Could it be something with the way I am assigning the array item to something I would think expects a string... Which begs the question is there a toString() equivalent or need for one?

For this line. SupervisorEmail = Employees(0,1)

[emartinho]

All of your variables don't have a type defined. Perhaps it will help if you set the specific types of your variables.

Cheers.
-Elio

[LaVolpe]

Maybe move Dim Employees(30,5) to the top of your script as a global declare. It's scope may only apply to the Item_Open function -- I'm not a vbscript guru, just applying an educated guess.

[dtgreer]

Apparently that was it Just needed to move the declaration to the top of the script. Thanks !