Code error in custom contact form - Outlook 2003
 

Hi,

I have been working on producing a custom contact form for our company
in Outlook 2003. This adapts some code that I got from:

http://www.outlookcode.com/d/forms/r...tm#setup#setup

I am trying to adapt the code from the above site to retrieve a string
with the current Master Category list from the registry instead of
hard coding the string as in the example.

I have added a function to return the Master Category list, but when I
then publish and open the form, I am getting an error 'Expected end of
statement Line no 104'

I have included the snippet of code that Line 104 falls within:


Public Function GetMCL() As String

' Function returns a semicolon-delimited string that is the
Master Category List. Use the VBA
' function Split() to break up the list into individual category
items

LINE 104 Dim arrVersion As Variant, _
objShell As Object, _
arrTemp As Variant, _
intCounter As Integer, _
strBuffer As String


I have recreated the code in an Access VBA module and there is no
problem. I also can't work out how to run Outlook code through a
debugger which doesn't help!!!!

Can anyone suggest what is causing this error?

Regards,

Adele Summers

Code error in custom contact form - Outlook 2003
 

VBScript syntax does not permit typed variable, procedure, or parameter declaration. The "As Variant" and similar expressions are not allowed.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

wrote in message oups.com...
Hi,

I have been working on producing a custom contact form for our company
in Outlook 2003. This adapts some code that I got from:

http://www.outlookcode.com/d/forms/r...tm#setup#setup

I am trying to adapt the code from the above site to retrieve a string
with the current Master Category list from the registry instead of
hard coding the string as in the example.

I have added a function to return the Master Category list, but when I
then publish and open the form, I am getting an error 'Expected end of
statement Line no 104'

I have included the snippet of code that Line 104 falls within:


Public Function GetMCL() As String

' Function returns a semicolon-delimited string that is the
Master Category List. Use the VBA
' function Split() to break up the list into individual category
items

LINE 104 Dim arrVersion As Variant, _
objShell As Object, _
arrTemp As Variant, _
intCounter As Integer, _
strBuffer As String


I have recreated the code in an Access VBA module and there is no
problem. I also can't work out how to run Outlook code through a
debugger which doesn't help!!!!

Can anyone suggest what is causing this error?

Regards,

Adele Summers