Hi Sue,

I did read the 2nd part of your reponse, but I just couldn't figure it out.
So, what I did was write code to create a completed appointment as follows:

Sub CommandButton4_Click()

Const FormName = "IPM.Appointment"

Dim oItem
dte = FormatDateTime(Item.UserProperties("Laptop Needed Date"),
vbShortDate)
tme = FormatDateTime(Item.UserProperties("Laptop Needed Time"),
vbShortTime)

Set oItem = Application.ActiveExplorer.CurrentFolder.Items.Add (FormName)
oItem.Display

strSubject = "Setup Equipment"

Set myRecipient = oItem.Recipients.Add ("LDM")
oItem.Subject = strSubject
oItem.AllDayEvent = True
oItem.ReminderSet = True
oItem.ReminderMinutesBeforeStart = 180
oItem.Start = CDate(dte & " " & tme)

oItem.Send

End Sub

This works perfectly with one exception. What is the code for "Show time as
= Free".

Thanks,
LDMueller



"Sue Mosher [MVP-Outlook]" wrote:

You might want to reread the 2nd part of my response, which explained which method to use to return an appropriate target folder.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"LDMueller" wrote in message ...
Yes, but since I'm limited to what I know, I couldn't figure out the
"targetFolder" part because when the form "IS Schedule Notification" opens,
the To: is completed with four different users.

This is what I tried to use, but the TargetFolder part wasn't working.
Set newItem = targetFolder.Items.Add("IPM.Appointment.IS Schedule
Notification")


"Sue Mosher [MVP-Outlook]" wrote:

Did you try the Items.Add method that I suggested?



"LDMueller" wrote in message ...
Hi Sue,

The form in question is an Appoinment form with a Message class of
"IPM.Appointment.IS Schedule Notification".

My original code is below and worked beautifully in Form Design when running
Forms, Run This Form. Once the form is published, it doesn't work because
I'm pointing to an .OFT file and not the Message class.

Sub CommandButton4_Click()

Set myItem = Application.CreateItemFromTemplate _
("C:\Documents and Settings\ldm\Application Data\Microsoft\Templates\IS
Schedule Notification.oft")

myItem.Display

dte = FormatDateTime(Item.UserProperties("Laptop Needed Date"), vbShortDate)
tme = FormatDateTime(Item.UserProperties("Laptop Needed Time"), vbShortTime)
myItem.Start = CDate(dte & " " & tme)

myItem.Send

End Sub



"Sue Mosher [MVP-Outlook]" wrote:

You don't need a path for the form. To create a new instance of a custom form programmatically, use the Add method on the target folder's Items collection:

Set newItem = targetFolder.Items.Add("IPM.Post.YourFormName")

If it's a message form, use the Drafts folder as the target. If the target is a default folder, you can use the Namespace.GetDefaultFolder method to return it as a MAPIFolder object. To create an item in another person's mailbox, use Namespace.GetSharedDefaultFolder to get the MAPIFolder Otherwise, you can use the code at http://www.outlookcode.com/d/code/getfolder.htm to walk the folder hierarchy and return the MAPIFolder corresponding to a given path string.

Note that code on Outlook custom forms is VBScript, not VBA.


"LDMueller" wrote in message ...
With Outlook 2003 I have two published forms. My goal is to have a command
button on one form which uses VBA code to open the other published form.

My problem is I don't know what path to use to point to the other published
form. Can someone point me in the right direction?

Thanks so much!