AppointmentItem question (2003)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dana DeLouis - 18 Jan 2006 16:38 GMT

Hello. I'm studying Outlook Programming for the first time (Sue Mosher's
book). I was able to add an Appointment to the calender the other day, but
now it's not working.
Can anyone spot the why I'm getting an "'Application-defined" error. I'm
running this from Excel, with a vba library reference set to Outlook 11.
Outlook 2003, IM only mode also.
Thanks for any insight. I just don't see why it's not working now. :>(

Sub Testing()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objAppt As Outlook.AppointmentItem

Set olApp = Outlook.Application

'Application-defined or object-defined error
Set objAppt = olApp.CreateItem(olAppointmentItem)

'However, this is ok...
Set objMail = olApp.CreateItem(olMailItem)
End Sub

Signature

Dana

Reply to this Message

Dana DeLouis - 18 Jan 2006 17:13 GMT

Well, I think I found the problem. I just tried to add an new appointment
manually, and could not. I couldn't add an appointment, or modify any
appointments in my Calendar. Ahhh!
Some of the code must have corrupted the calendar.
Anyway, I rebooted the computer, and the sample code below works as
expected.
Something in my program must be corrupting the Calendar.
Anyway, thanks again.

Signature

Dana
Win XP & Office 2003

> Hello. I'm studying Outlook Programming for the first time (Sue Mosher's
> book). I was able to add an Appointment to the calender the other day,
[quoted text clipped - 17 lines]
> Set objMail = olApp.CreateItem(olMailItem)
> End Sub

Reply to this Message