Create a meeting in calander from Excel VBA

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
 
S

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top