Create a meeting in calander from Excel VBA

[eran]

Hello,
I have the following code to schedule a meeting in outlook from Excel
VBA. The meeting is schedule and the optional attendee is in. I also
get the security warning that alert for sending the email, but the
recipient will not get the invitation. Any help?

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 & " PM on " &
Me.ComboBox_System
.optionalattendees = Range("Charts!X5")
.Save
.send
End With

Thanks,
Eran

 

[Sue Mosher [MVP-Outlook]]

You need to set the MeetingStatus property to make it a meeting. See http://www.outlookcode.com/codedetail.aspx?id=88 for a code sample.

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers