Working on an automation of MS Exchane Server 2003, I have to create appointments (with CDOEX) in a DTS ActiveX Script (see below).

Do Until Rst.Eof
Set Appt = CreateObject("CDO.Appointment")
With Appt
.AllDayEvent = True
.StartTime = Rst.Fields("datum").Value
.EndTime = CDate(Clng(Rst.Fields("datum").Value) + 1)
.BusyStatus = "Free"
.Subject = Rst.Fields("Subject").Value
.GEOLatitude = Cdbl(-1)'Cdbl(dblFlag)
.GEOLongitude = Cdbl(-1)'Cdbl(dblFlag)
'ExCon.Open Mbx.BaseFolder
.DataSource.SaveToContainer Mbx.Calendar, ExCon
.Fields("http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/0x8214").Value = CLng(Rst.Fields("label").Value)
appt.Fields.Update
appt.DataSource.Save
'ExCon.Close
End With
Rst.MoveNext
lngAppt = lngAppt + 1
Loop

This is executed as it should, with exception of the two lines were we set GEOLongitude and GEOLatitude.

Running this exact same script with wscript (so not in a DTS ActiveX Script task) works perfectly (including GEOLongitude and GEOLatitude).

Anyone the slightest idea what this is about?


************************************************** ********************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...

Would flipping flag 'Execute on main package thread' help?

Ilya

wrote in message news:uyLSZgzlFHA.320 (AT) TK2MSFTNGP09 (DOT) phx.gbl...
0000046}/0x8214").Value = CLng(Rst.Fields("label").Value)