Adding Appointments to Outlook

[mmmbl]

I tried using the codes provided below and I got the form working

http://support.microsoft.com/kb/209963

but the problem is
1. The Appointment date comes out as 07/23/2003 even if put in tomorrow's
or future dates so I keep getting an Message Over 182 days old
2. The Appointment time keeps coming up as blank so my Network
administrator kept getting an error message about an appointment time as blank

Is it because that instead of Microsoft Outlook 11.0 Object Library is used
instead of 9.0 Object? If that's case how do I get about fixing the code so
it will work.

 

[Douglas J. Steele]

Did you change the code to remove the hard-coded July 23rd dates?

What does your code look like now?

 

[Douglas J. Steele]

So what happens if you remove all of the following code:

Set objRecurPattern = .GetRecurrencePattern

With objRecurPattern
.RecurrenceType = olRecursWeekly
.Interval = 1
'Once per week
.PatternStartDate = #7/9/2003#
'You could get these values
'from new text boxes on the form.
.PatternEndDate = #7/23/2003#
End With

 

[mmmbl]

I was just going to to try that but I did not have time to try it earlier.
It's working now and my dates are coming up fine in my Outlook. I even got it
to work so that I can upload all my Appointments either by Appointment, By a
Week or All.
Thanks for all the help!