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