** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cancelar Reunion de Outloook desde access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCancelar Reunion de Outloook desde access

 Responder Responder
Autor
Mensaje
escoper45 Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Junio/2010
Localización: Mexico
Estado: Sin conexión
Puntos: 52
Enlace directo a este mensaje Tema: Cancelar Reunion de Outloook desde access
    Enviado: 18/Septiembre/2019 a las 21:36
Buenas tengo un from donde mando desde acces a outlook reuniones  a diferente correos y se le agrega a sus calendario lo hago sin problema con este código 
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


funciona la perfección lo que pretendo y no he podido es poder cancelar las reuniones 
desde access  si alguien tiene algo se lo agradecería mucho saludos....
Escoper

Soporte Tecnico
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 18/Septiembre/2019 a las 21:52
Hola Escoper

yo no uso Outlook, pero una rápida búsqueda me dio:

https://stackoverflow.com/questions/15477351/outlook-meeting-cancelling-using-vba

Saludos.
Arriba
escoper45 Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Junio/2010
Localización: Mexico
Estado: Sin conexión
Puntos: 52
Enlace directo a este mensaje Enviado: 18/Septiembre/2019 a las 22:18
ok deja lo checo y te comento gracias...
Escoper

Soporte Tecnico
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable