G
Guest
h
my VB6 app which integrates with Outlook 2000 is running fine on my development workstation (W2K SP4) but on the clients machine running Outlook 2000 and XP I get the above error doing an Appointment Item Save. Also note - from another VB Form in the same app I set the same Item properties and do Item.Save with no problem
Searching through the newsgroup there are lots of references to this error on Item.Save but very few satisfactory resolutions - a couple of possible solutions mentioned wer
- don't do Item.Save twice to the same Item (I'm not
- if this error occurs, set up a new Item, copy all the fields, then delete the origina
I could try the copy approach - but before I do - could anyone give me any pointers? Obviously this is made that much harder to diagnose because I can't debug on the Clients workstation..
Code snippet
Private Sub myItems_ItemAdd(ByVal Item As Object
Dim ItemSubject As Strin
If mblnIsNew The
' new myItem is valid - store i
mblnIsNew = Fals
' set the BillingInformation property of the Appointment to = EntryID to allow th
' Find & Restrict methods to work, and set the Subject to something meaningfu
mblnPostItemAdd = Tru
Item.BillingInformation = Item.EntryI
ItemSubject = mobjGroup.GroupType & " (" & mobjGroup.LocAbbrev & " -
If mobjGroup.DayEvening = "D" The
ItemSubject = ItemSubject & "Day)
Els
ItemSubject = ItemSubject & "Evening)
End I
Item.Subject = ItemSubjec
Item.Sav
End i
End Sub
my VB6 app which integrates with Outlook 2000 is running fine on my development workstation (W2K SP4) but on the clients machine running Outlook 2000 and XP I get the above error doing an Appointment Item Save. Also note - from another VB Form in the same app I set the same Item properties and do Item.Save with no problem
Searching through the newsgroup there are lots of references to this error on Item.Save but very few satisfactory resolutions - a couple of possible solutions mentioned wer
- don't do Item.Save twice to the same Item (I'm not
- if this error occurs, set up a new Item, copy all the fields, then delete the origina
I could try the copy approach - but before I do - could anyone give me any pointers? Obviously this is made that much harder to diagnose because I can't debug on the Clients workstation..
Code snippet
Private Sub myItems_ItemAdd(ByVal Item As Object
Dim ItemSubject As Strin
If mblnIsNew The
' new myItem is valid - store i
mblnIsNew = Fals
' set the BillingInformation property of the Appointment to = EntryID to allow th
' Find & Restrict methods to work, and set the Subject to something meaningfu
mblnPostItemAdd = Tru
Item.BillingInformation = Item.EntryI
ItemSubject = mobjGroup.GroupType & " (" & mobjGroup.LocAbbrev & " -
If mobjGroup.DayEvening = "D" The
ItemSubject = ItemSubject & "Day)
Els
ItemSubject = ItemSubject & "Evening)
End I
Item.Subject = ItemSubjec
Item.Sav
End i
End Sub