J
jpottsx1
I am using the following code to generate a prepopulated Meeting
Request. I would like to know how to accomplish the following;
- View the form and edit it before sending it along (add resources
etc.)
- Stop the security warning for sending email
I have used the display method, but I cannot get to the form as it is
behind the security dialog box
Thanks
Jeff
===========================================================
' Start Outlook.
' If it is already running, you'll use the same instance...
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
' Logon. Doesn't hurt if you are already running and logged on...
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Set myItem = olApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #11/5/2005 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee =
myItem.Recipients.Add("(e-mail address removed)")
myRequiredAttendee.Type = olRequired
Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
myOptionalAttendee.Type = olOptional
Set myResourceAttendee = _
myItem.Recipients.Add("Conference Room B")
myResourceAttendee.Type = olResource
myItem.Display
myItem.Send
Request. I would like to know how to accomplish the following;
- View the form and edit it before sending it along (add resources
etc.)
- Stop the security warning for sending email
I have used the display method, but I cannot get to the form as it is
behind the security dialog box
Thanks
Jeff
===========================================================
' Start Outlook.
' If it is already running, you'll use the same instance...
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
' Logon. Doesn't hurt if you are already running and logged on...
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Set myItem = olApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #11/5/2005 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee =
myItem.Recipients.Add("(e-mail address removed)")
myRequiredAttendee.Type = olRequired
Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
myOptionalAttendee.Type = olOptional
Set myResourceAttendee = _
myItem.Recipients.Add("Conference Room B")
myResourceAttendee.Type = olResource
myItem.Display
myItem.Send