Outlook Integration ( Creating Appointments )

[Ben Grimwade]

Hi, im developing an Application that integrates with Outlook by creating an appointment in there calender.
The code in question is below

Dim appt As Outlook.AppointmentItem
obj = diary.Items.Find("[Categories] = " & Chr(34) & idCheck & Chr(34))

If obj Is Nothing Then
'Now create a new appointment in the user's diary
appt = m_OutlookApp.CreateItem(Outlook.OlItemType.olAppoi ntmentItem)
Else
appt = obj
End If

This works fine on most peoples PC's, but on some the code errors with an "Operation Aborted" error message. I have tracked down where the error occurs and it appears to be on the line
"appt = m_OutlookApp.CreateItem(Outlook.OlItemType.olAppoi ntmentItem)"
which confuses me as this is before you actually attempt to send any information to Outlook (2003).
I have searched on the internet and the only explanation i have been able to come up with is that there is something corrupt within a users profile (possibly specifically the Outlook profile), rebooting has seemed to fix the error on some machines but then it re-occurs again later leading me to believe that it is something that happens in everyday use of outlook that causes my application to error.
Could anyone tell me another way to create appointments and possibly explain why this error occurs \ how to fix it.

Thanks in advance Ben