VB works in version 2002 but not in 2000

[highland]

Hi

I have created a database in which an appointment sends to the default outlook calander. When I use Access/Outklook 2002 the database works, however when I try it on Access/Outlook 2000 the database does not work.

I attach the code:

On Error GoTo Err_cmdCreateAppt_Click

Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)

On Error Resume Next

blnOlRunning = True

Set objOl = GetObject(, "Outlook.Application")

If Err <> 0 Then
Set objOl = CreateObject("Outlook.Application")
blnOlRunning = False
Err.Clear
End If

On Error GoTo 0

Set objItem = objOl.CreateItem(olAppointmentItem)

With objItem
.Start = CDate(Me.StartofBooking) + CDate(Me.Bookingtime)
.Duration = Me.Duration * Me.ogDuration
.Subject = Me.Cottage & vbNullString
.Body = Me.Additionalnotes & vbNullString


.Save
End With

If blnOlRunning = True Then
' display the new item
objItem.Display
Else
objOl.Quit
End If



Exit_cmdCreateAppt_Click:
Set objItem = Nothing
Set objOl = Nothing
Exit Sub


Err_cmdCreateAppt_Click:
Select Case Err

Case 0

Case Else
MsgBox Err.Description
Resume Exit_cmdCreateAppt_Click
End Select

End Sub



Private Sub ReportList_DblClick(Cancel As Integer)

End Sub

Private Sub Search_Click()
On Error GoTo Err_Search_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Search_Click:
Exit Sub

Err_Search_Click:
MsgBox Err.Description
Resume Exit_Search_Click

End Sub
Private Sub Add_New_Record_Click()
On Error GoTo Err_Add_New_Record_Click


DoCmd.GoToRecord , , acNewRec

Exit_Add_New_Record_Click:
Exit Sub

Err_Add_New_Record_Click:
MsgBox Err.Description
Resume Exit_Add_New_Record_Click

End Sub
Private Sub Save_Record_Click()
On Error GoTo Err_Save_Record_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Save_Record_Click:
Exit Sub

Err_Save_Record_Click:
MsgBox Err.Description
Resume Exit_Save_Record_Click

End Sub
Private Sub Accomodation_Summary_Report_Click()
On Error GoTo Err_Accomodation_Summary_Report_Click

Dim stDocName As String

stDocName = "Accomodation Booking Summary"
DoCmd.OpenReport stDocName, acPreview

Exit_Accomodation_Summary_Report_Click:
Exit Sub

Err_Accomodation_Summary_Report_Click:
MsgBox Err.Description
Resume Exit_Accomodation_Summary_Report_Click

End Sub
Private Sub Accomodation_Report_Click()
On Error GoTo Err_Accomodation_Report_Click

Dim stDocName As String

stDocName = "Accomodation Booking Summary"
DoCmd.OpenReport stDocName, acPreview

Exit_Accomodation_Report_Click:
Exit Sub

Err_Accomodation_Report_Click:
MsgBox Err.Description
Resume Exit_Accomodation_Report_Click

End Sub
Private Sub Exit_Database_Click()
On Error GoTo Err_Exit_Database_Click


DoCmd.Quit

Exit_Exit_Database_Click:
Exit Sub

Err_Exit_Database_Click:
MsgBox Err.Description
Resume Exit_Exit_Database_Click

End Sub

All advice most welcome, hope you can help

 

[Mile-O]

Goto Toosls -> References (from a module) and see if the Outlook reference is missing.

 

[highland]

Done that

The following is displayed

MISSING: Microsoft Outlook 10.0 Object Library is ticked.

Location D:\OfficeXP\Office10\msoutl.olb

any ideas?

 

[Mile-O]

Uncheck it and check it again. If you don't have v10 then try for the nearest version.

 

[highland]

SJ McAbney, works a treat!!!! thanks also for the prompt response

Cheers Mate

Tel