Outlook

  • Thread starter Thread starter gary
  • Start date Start date
G

gary

I have a form that I have some information on that I want
to add and appointment to the outlook calendar. I get the
date and the other information over but I can not get the
time of the appointment set.

Any help
Thanks
Gary
 
ok here is the sub function I am using
The servicedate comes from a text box on a form.


Private Sub cmd_add_outlook_Click()
Set o1 = New Outlook.Application

Dim e1 As Outlook.AppointmentItem
ServiceDate.SetFocus

'Create a new appointment item

Set e1 = o1.CreateItem(olAppointmentItem)
'Set a few of the many possible appointm
' ent parameters.
'MsgBox ServiceDate.Text

e1.Start = ServiceDate.Text
e1.End = ServiceDate.Text

e1.Subject = ServiceDesc.Value
e1.Location = "loc test"
e1.AllDayEvent = True
e1.BusyStatus = olFree
e1.ReminderMinutesBeforeStart = 15
e1.Body = Notes.Value
e1.ReminderSet = True

e1.Save
e1.Send


Set e1 = Nothing

End Sub
 
Back
Top