Hi all

I have designet an Outlook form in Outlook 2003 and it works very fine. But
when, I send it to my Outlook 2000 user it Only run some of the code. belov
I have postet the VBScript code. Can anybody se, what is wrong?

dim path

path = "J:\skabeloner\Outlook\Vikar\"

function startDokument(path)

dim objWord

dim objDoc

set objWord = createObject("Word.Application")

set objDoc = objword.documents.add(path)

objWord.visible = true


objWord.Selection.GoTo -1,,, "Fornavn"

objWord.Selection.TypeText
Item.UserProperties.item("FornavnTelefonscreening" ).value

on error resume next

objWord.Selection.GoTo -1,,, "Efternavn"

if err.number = 0 then

objWord.Selection.TypeText
Item.UserProperties.item("EfternavnTelefonscreenin g").value

objWord.Selection.GoTo -1,,, "Adresse"

objWord.Selection.TypeText
Item.UserProperties.item("AdrTelefonscreening").va lue

objWord.Selection.GoTo -1,,, "Postnummer"

objWord.Selection.TypeText
Item.UserProperties.item("PostnummerTelefonscreeni ng").value

objWord.Selection.GoTo -1,,, "By"

objWord.Selection.TypeText
Item.UserProperties.item("ByTelefonscreening").val ue

end if

on error goto 0

'Sidehoved og sidefod

objWord.ActiveWindow.ActivePane.View.SeekView = 9

objWord.Selection.MoveDown 5, 1

objWord.Selection.TypeText
Item.UserProperties.item("KontoTelefonscreening"). value

objWord.ActiveWindow.ActivePane.View.SeekView = 0

objWord.Selection.GoTo -1,,, "Kontor2"

objWord.Selection.TypeText
Item.UserProperties.item("KontoTelefonscreening"). value

objWord.Selection.GoTo -1,,, "Kontor3"

objWord.Selection.TypeText
Item.UserProperties.item("KontoTelefonscreening"). value

objWord.Selection.GoTo -1,,, "OprettetAf"

objWord.Selection.TypeText cStr(Item.UserProperties.item("Forfatter").value)

if Item.UserProperties.item("emailTelefonscreening"). value "" then

objWord.Selection.GoTo -1,,, "text"

objWord.Selection.TypeText "Inden samtalen vil jeg sende dig en test pr.
e-mail som du skal løse. Jeg sender dig testen på " &
Item.UserProperties.item("emailTelefonscreening"). value & "." & chr(13) &
chr(10) & "Har du ikke modtaget testen inden samtalen, skal du kontakte
mig."

else

objWord.Selection.GoTo -1,,, "text"

objWord.Selection.TypeText "I forbindelse med samtalen, vil du blive
præsenteret for en test I afd."

end if

dim txt

txt = Item.UserProperties.item("lblStart").value

txt = weekdayName(weekday(txt)) & " den " & cStr(formatdateTime(txt, 1))

objWord.Selection.GoTo -1,,, "Start"

objWord.Selection.TypeText txt

txt = timeValue(Item.UserProperties.item("lblStart").val ue)

objWord.Selection.GoTo -1,,, "tid"

objWord.Selection.TypeText cStr(txt)


objWord.Selection.GoTo -1,,, "Dato"

objWord.Selection.TypeText cStr(formatDateTime(Date, 1))



set objDoc = nothing

set objWord = nothing

end function

sub cmdBrevTilKandidat_click()

startDokument path & "Indkaldselsbrev.doc"

end sub

sub cmdMailTilKandidat_click()

startDokument path & "Indkaldselsmail.doc"

end sub



Any help would be appeciated.

Kind regards
Christian

Christian Kjær wrote:

Hi all

I have designet an Outlook form in Outlook 2003 and it works very fine. But
when, I send it to my Outlook 2000 user it Only run some of the code. belov
I have postet the VBScript code. Can anybody se, what is wrong?

In 2K3, you use

Item.UserProperties.item("PostnummerTelefonscreeni ng").value

In 2K you have to write

Item.UserProperties.find("PostnummerTelefonscreeni ng").value


You may want to

select case split(outlook.application.version,".")(0)
case 9
'2K stuff
case 11
'2K3 stuff
end select


You may further want to encapsulate this code so that you can write

p = getUserProperty(item,property)
setUserProperty item, property, value


HTH, Wolfram

Thaks for your help it worked.

Kind regards Christian

"Wolfram Jahn" wrote in message
...
Christian Kjær wrote:

Hi all

I have designet an Outlook form in Outlook 2003 and it works very fine.
But when, I send it to my Outlook 2000 user it Only run some of the code.
belov I have postet the VBScript code. Can anybody se, what is wrong?

In 2K3, you use

Item.UserProperties.item("PostnummerTelefonscreeni ng").value

In 2K you have to write

Item.UserProperties.find("PostnummerTelefonscreeni ng").value


You may want to

select case split(outlook.application.version,".")(0)
case 9
'2K stuff
case 11
'2K3 stuff
end select


You may further want to encapsulate this code so that you can write

p = getUserProperty(item,property)
setUserProperty item, property, value


HTH, Wolfram