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