Hello,
I have the following code in Excel VBA to create an appointment in
Outlook calander. I want also to add an optional attendees.


Can anyone help? nothing I do seem to work!


Dim objOL As Object
Dim objItem As Object
Dim lngRow As Long


Set objOL = CreateObject("Outlook.Application")
Set objItem = objOL.CreateItem(1)
If Me.CheckBox_AdvanceParam.Value = True Then GoTo MultiplePM


With objItem
.Body = Me.ComboBox_PMType.Text
.Duration = 360
.ReminderMinutesBeforeStart = (60 * 24)
.Start = Me.TextBox_Date.Text & " 09:30:00 AM"
.Subject = Me.ComboBox_PMType.Text & " on " &
Me.ComboBox_System
.Save
End With


Thanks a lot,
Eran