Problem extracting email adresses from mail body

Hello,

I have a script/button which extracts email adresses from

the email body and parses that info to an MS Access database. We moved the database from Domino 5 to a new server with Domoni 6, and the script fails with the below error exception in the script.

Any idea on the cause is much appreciated. Note: The term “Adresse” as opposed to “Adress” is due to the Norwegian spelling.

Email format:

########

[ Adress ]

foo@bar.net

[ Skatt ]

1

[ submit ]

Send

#########

Script code:

#########

Function BuildSqlQuery(Byval body As String,Adresse As String) As String

Const NO_MAILADRESSE = 1001

Dim sQuery As String

Dim bAlle As String

Dim bAkslutt As String

Dim bDokument As String

Dim bKlient As String

Dim bKonsern As String

Dim bRegnskap As String

Dim bRevisjon As String

Dim bSkatt As String	

Dim positionOfChar As Long

'Adress : foo@bar.net

On Error Goto Errhandle

BuildSqlQuery=""

positionOfChar&=0

If Len(body) > 0 Then

	

	'Adress

	Adresse=Strrightback( body$,"Adress : ",1)		

	Adresse=Strleftback(Adresse,", Q@@Q",1)

	

	If Adresse =""  Then

		Error NO_MAILADRESSE, "Mail adress not identified"

	End If

#########

Regards…