** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - crear citas outlook con access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradocrear citas outlook con access

 Responder Responder
Autor
Mensaje
deeb Ver desplegable
Nuevo
Nuevo


Unido: 11/Abril/2013
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Tema: crear citas outlook con access
    Enviado: 29/Abril/2013 a las 09:53
Hola, me han pedido que haga una aplicación en access para crear citas de outlook... Buscando por ahí encontré una que funciona perfectamente... Lo que pasa que el cliente quiere crearlas sobre el calenadrio que él elija: digamos que tiene el calendario de outlook, y otro de un grupo de trabajo...pues el quiere crear citas para el calendario del grupo... El código que uso para crear las citas es este:

Private Sub cmdAddAppt_Click()
            On Error GoTo Add_Err

            'Save record first to be sure required fields are filled.
            DoCmd.RunCommand acCmdSaveRecord
           
'            'Exit the procedure if appointment has been added to Outlook.
'            If Me!AddedToOutlook = True Then
'                MsgBox "This appointment is already added to Microsoft Outlook"
'                Exit Sub
'            'Add a new appointment.
'            Else
                Dim objOutlook As Outlook.Application
                Dim objAppt As Outlook.AppointmentItem
                Dim objRecurPattern As Outlook.RecurrencePattern

                Set objOutlook = CreateObject("Outlook.Application")
                Set objAppt = objOutlook.CreateItem(olAppointmentItem)

                With objAppt
                    .Start = Me!ApptStartDate & " " & Me!ApptTime
                    .Duration = Me!ApptLength
                    .Subject = Me!Appt

                    If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
                    If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
                    If Me!ApptReminder Then
                        .ReminderMinutesBeforeStart = Me!ReminderMinutes
                        .ReminderSet = True
                    End If

                    Set objRecurPattern = .GetRecurrencePattern

                    With objRecurPattern
                        .RecurrenceType = olRecursWeekly
                        .Interval = 1
                        'Once per week
                    '    .PatternStartDate = #12/19/2003#
                        .PatternStartDate = Me!ApptStartDate
                        'You could get these values
                        'from new text boxes on the form.
                    '    .PatternEndDate = #7/23/2003#
                        .PatternEndDate = Me!ApptEndDate
                    End With

                    .Save
                    .Close (olSave)
                    End With
                    'Release the AppointmentItem object variable.
                    Set objAppt = Nothing
            'End If

            'Release the Outlook object variable.
            Set objOutlook = Nothing

            'Set the AddedToOutlook flag, save the record, display a message.
            Me!AddedToOutlook = True
           
            DoCmd.RunCommand acCmdSaveRecord
            MsgBox "Cita añadida!"

            Exit Sub

Add_Err:
            MsgBox "Error " & Err.Number & vbCrLf & Err.Description
            Exit Sub



End Sub

Cómo se podría escoger el calendario?...

Gracias
Arriba
biolarry72 Ver desplegable
Habitual
Habitual
Avatar

Unido: 04/Abril/2013
Localización: España
Estado: Sin conexión
Puntos: 151
Enlace directo a este mensaje Enviado: 09/Septiembre/2013 a las 19:39
hola.
a mi también me interesa el tema de elegir calendario. He estado ojeando la ayuda que ofrece outlook para VBA y he podido ver que el objeto que lo controla o es folders o explorers o los dos. Como yo ni soy informatico-programador y mis conocimientos de VBA son excasos por no decir nulos estoy intentando descifrar la forma de hacerlo con prueba-error. Sí consigo avances lo posteare. Saludos.
Heute schöne tag
Arriba
LuisR Ver desplegable
Habitual
Habitual


Unido: 22/Julio/2013
Localización: España
Estado: Sin conexión
Puntos: 180
Enlace directo a este mensaje Enviado: 28/Noviembre/2013 a las 11:57
En Google calendar puede estar la solución.

De Access pasas a Google Calendar y de Google Calendar pasas a Outlook (o a Iphone, o a Ipad, o al calendario de Android, o a Thunderbird).

Busca en google como crear y modificar eventos de google calendar desde acces, y cuenta cómo te ha ido.

Suerte, un saludo


Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10841
Enlace directo a este mensaje Enviado: 28/Noviembre/2013 a las 13:08
O sea, en vez de crear una cita directamente en Outlook, mejor es que lo haga en google calendar, y que después con el software de sincronización entre los dos instalado en el equipo, que lo haga en el outlook, ¿he entendido bien?.

Eso en mi pueblo se le llama 'dar una vuelta' ... LOL.

Habrá que explorar las carpetas que hay, y seleccionar la que queramos, ... eso significa trabajar con Folder / Folders. Y darle mucho a F1.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable