469,917 Members | 1,423 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,917 developers. It's quick & easy.

Outlook Integration ( Creating Appointments )

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)
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
0 1153

Post your reply

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

Similar topics

2 posts views Thread by James | last post: by
1 post views Thread by srinivas | last post: by
3 posts views Thread by wizzbangca | last post: by
5 posts views Thread by Arno R | last post: by
1 post views Thread by keri | last post: by
reply views Thread by Stephen B. Burris Jr. | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.