Create a meeting in calander from Excel VBA

  • Thread starter Thread starter eran
  • Start date Start date
E

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
 
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
 
Back
Top