By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,836 Members | 1,735 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,836 IT Pros & Developers. It's quick & easy.

Outlook Integration ( Creating Appointments )

P: 1
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
Jan 22 '08 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.