Dim outMail As Outlook.AppointmentItem

Set outMail = Outlook.CreateItem(olAppointmentItem)

outMail.Subject = Forms![FrmCitas]![TxtCliente]

outMail.Location = Forms![FrmCitas]![txtLocation]

outMail.MeetingStatus = olMeeting

'Si este es un evento de todo el día, entonces la Fecha de inicio será igual a la Fecha de finalización

'De lo contrario, se aplica la fecha / hora de inicio normal y la fecha / hora de finalización

If Me![chkAllDay] = -1 Then

    outMail.Start = Forms![FrmCitas]![FechaInicio]

    outMail.End = Forms![FrmCitas]![FechaInicio]

    outMail.AllDayEvent = True 'Establece el indicador de evento de todo el día en verdadero

Else

    outMail.Start = Forms![FrmCitas]![FechaInicio] & Space(1) & Forms![FrmCitas]![HoraInicio]

    outMail.End = Forms![FrmCitas]![FechaFin] & Space(1) & Forms![FrmCitas]![HoraFin]

End If

'Utiliza el cuadro de texto oculto para calcular para qué se debe configurar el recordatorio (minutos, horas, días, semanas)

'Todo debe convertirse en minutos

Select Case Forms![FrmCitas]![txtInterval]

    Case "Minutes"

        outMail.ReminderMinutesBeforeStart = Me![cmboReminderIntervals]

    Case "Hours"

        outMail.ReminderMinutesBeforeStart = Me![cmboReminderIntervals] * 60

    Case "Days"

        outMail.ReminderMinutesBeforeStart = (24 * Me![cmboReminderIntervals]) * 60

    Case "Weeks"

        outMail.ReminderMinutesBeforeStart = (24 * 60) * (7 * Me![cmboReminderIntervals])

    Case Else

        outMail.ReminderMinutesBeforeStart = 0

End Select

outMail.RequiredAttendees = Forms![FrmCitas]![CorreoProfecional] 'Direcciones de correo electrónico de los asistentes requeridos

If Not IsNull(Forms![FrmCitas]![Correo]) Then

    outMail.optionalAttendees = Forms![FrmCitas]![Correo] 'Direcciones de correo electrónico de los asistentes a la opción

End If

outMail.Body = Forms![FrmCitas]![Nota] 'El cuerpo de la cita.

outMail.ReminderSet = True 'Enciende los recordatorios

outMail.Send

MsgBox "Su solicitud de cita ha sido enviada", vbInformation, "PROCESO COMPLETO"

Set outMail = Nothing