Hi,

I need help! How do i create a Appointment out of an Custom Appointment
form.

Details:

i have a Custom Appointment Form with Two Fields! One named Date an one
named Begin. I also have a Button to Create a Appointment.

Problem:

Everytime i create an Appointment Outlook creates an normal Appointment. I
need to have the same Custom Appointment.

Code on the Create Button:

Sub CreateAppointment_click()


'msgbox
Item.GetInspector.ModifiedFormPages.Item("Bericht" ).Controls("NächsterTermin").Text
& " " &
Item.GetInspector.ModifiedFormPages.Item("Bericht" ).Controls("TStart").Text

Set NewAppointmentItem = Application.CreateItem(1)

NewAppointmentItem.MessageClass = "IPM.Appointment.Vertriebstermin"

NewAppointmentItem.Start =
Item.GetInspector.ModifiedFormPages.Item("Bericht" ).Controls("NächsterTermin").Text
& " " &
Item.GetInspector.ModifiedFormPages.Item("Bericht" ).Controls("TStart").Text

NewAppointmentItem.Duration = 60

'NewAppointmentItem.Subject = "This is a test appointment"

'NewAppointmentItem.Location = "Timbuktu"

'NewAppointmentItem.Body = "This is just a test appointment - nothing to be
concerned about!"

NewAppointmentItem.Display()

End Sub





Thx for your time!

Regards Marc