How to create a Outlook task or caledar reminder from Access

[tobydobo]

Private Sub Command955_Click()
Dim outobj As Outlook.Application


Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me.date & " " & "8:00am"
.Subject = Me.Tech_Name
.Body = "appointment"
.Location = "live meeting"
.ReminderMinutesBeforeStart = "15"
.ReminderSet = True
.Save
End With
Set outobj = Nothing
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"
Exit Sub
End Sub

[June7]

You want the item saved with start date 2 days from the date in form?

.Start = Me.date + 2 & " 8:00 AM"

[tobydobo]

well my thoughts were to get rid of the date field entirely and just have it auto create an item 2 days in the future of the current date.

[June7]

Okay,

.Start = Date() + 2 & " 8:00 AM"

[tobydobo]

awesome! Thanks. So my statement with the extra quotes are not necessary ? & " " & "8:00am"

[June7]

Correct. I placed the space in the time string.