Does it help if you set .MeetingStatus = olMeeting?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Paul Thompson" wrote in message
...
Can anyone offer some help here? My code generates the proper
appointment entry in Outlook (from Excel) but will not send it out to
the recipient. I've included the problem code snippet below. Really
appreciate any help! Thanks!

[snippet]
For n = 1 To ACChangeCount
With OutlookApp.CreateItem(olAppointmentItem)
.Subject = "`AC Change Multiple""
.Start = ACScheduledStart(n)
.End = ACScheduledEnd(n)
.ReminderMinutesBeforeStart = 15
.ReminderSet = True

If ACFYI(n) = True Then
.Location = "FYI ONLY"
Else
.Location = "Operations Performs Change"
End If

.Recipients.Add ")
.Recipients.ResolveAll
.Send
End With
Next n

Set OutlookApp = Nothing