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
|