** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Duda codigo para enviar citas outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoDuda codigo para enviar citas outlook

 Responder Responder
Autor
Mensaje
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Tema: Duda codigo para enviar citas outlook
    Enviado: 02/Junio/2017 a las 19:12
Hola  a todos, encontré en la web un magnifico desarrollo para enviar citas desde Acces al Outlook, no se si  ya lo conocen, pero el codigo es este:


Private Sub cmdCitaAOutlook_Click()
    'Creamos un control de errores, por si las moscas
On Error GoTo sol_err
        'Es necesario asegurarse de que el registro está guardado. Por ello lo guardamos
    DoCmd.RunCommand acCmdSaveRecord
        'Declaramos las variables que constituirán la base de la instancia de Outlook
    Dim Olk As Outlook.Application
    Dim OlkCita As Outlook.AppointmentItem
        'Creamos la instancia de Outlook
    Set Olk = CreateObject("outlook.application")
    Set OlkCita = Olk.CreateItem(olAppointmentItem)
        'Vamos añadiendo los elementos de la cita
    With OlkCita
        .Start = Me.Fecha.Value & " " & Me.Hora.Value
        .Duration = Me.Duracion.Value
        .Subject = Me.Cita.Value
        
            'Si no tenemos el campo con notas a la cita podríamos eliminar la línea siguiente
        If Not IsNull(Me.Notas.Value) Then .Body = Me.Notas.Value
            'Si no tenemos el campo con localización podríamos eliminar la línea siguiente
        If Not IsNull(Me.Loc.Value) Then .Location = Me.Loc.Value
            'Si no tenemos el campo que indica si queremos recordatorio o no podríamos eliminar
            'todo el bloque If...EndIf siguiente...
'De aquí....
        If Me.Recordat.Value = True Then
                'Si no se hubieran especificado minutos los situamos en cinco
            If IsNull(Me.LapsoRecord.Value) Then
                .ReminderMinutesBeforeStart = 5
            Else
                    'Si no establecemos los minutos que hemos determinado
                .ReminderMinutesBeforeStart = Me.LapsoRecord.Value
            End If
            .ReminderSet = True
        End If
'Hasta aquí...
            'Guardamos la cita
        .Save
    End With
        'Lanzamos un mensaje de que todo ha ido bien
    MsgBox "La cita se ha guardado correctamente", vbInformation, "OK"
        'Eliminamos la instancia de Outlook
    Set Olk = Nothing
Salida:
    Exit Sub
sol_err:
    MsgBox "Se ha producido el error " & Err.Number & " - " & Err.Description
    Resume Salida
End Sub

Y funciona a la perfección, pero solo pone la cita en el Outlook, lo que no he podido lograr es tambiénpoder anexar un destinatario para avisarle de la cita, y enviar automáticamente la cita, puede alguien darme por favor una idea de como hacerlo o que parametro falta para este proceso?


Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5326
Enlace directo a este mensaje Enviado: 02/Junio/2017 a las 20:33
Hola!

Mírate este hilo en inglés con un ejemplo incluido:

http://www.utteraccess.com/forum/send-outlook-appointment-t1588694.html
Un Saludo.
Arriba
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Enviado: 02/Junio/2017 a las 21:39
hola mounir, me registre en esa pagina pero aun asi, no me deja descargar el ejemplo..
Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5326
Enlace directo a este mensaje Enviado: 02/Junio/2017 a las 21:56
Un Saludo.
Arriba
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Enviado: 02/Junio/2017 a las 21:59
Ahora si, muchas gracias, voy a analizarlo y estare preguntando las dudas...
Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Enviado: 02/Junio/2017 a las 23:16
Mounir, super, exactamente eso es lo que necesitaba, muchas gracias por tu ayuda.
Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable