View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.outlook.vba,microsoft.public.outlook.proram_vba
Paul Thompson Paul Thompson is offline
external usenet poster
 
Posts: 2
Default Sending Appointments via Outlook

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