none
Crear una cita en outlook con una fecha de acces RRS feed

  • Pregunta

  • Lo que quiero es que mediante un boton o un procedimiento automatico cuando yo inserto una fecha en un campo de un formulario de acces, me cree en el outlook una cita en esa fecha con el nombre de otro campo que hay en ese formulario.

     

    No se si se puede hacer o si es muy complicado.

     

    Gracias y un saludo.

    viernes, 4 de marzo de 2011 17:45

Todas las respuestas

  • ya tengo esto, pero no se como pasar los campos del formulario a la cita

     

    Sub llamadaOutLook()
    Dim objOutlook As Object
    Dim objItem As Object
    'Genera un objeto Outlook
    Set objOutlook = CreateObject("Outlook.Application")
    'Crea un nuevo contacto
    Set objItem = objOutlook.CreateItem(olAppointmentItem)
    'Muestra el formulario para rellenar los datos del contacto
    objItem.Display
    'Cierra Outlook
    Set objOutlook = Nothing
    End Sub

     

    Si alguien lo sabe agradeceria una respuesta

    sábado, 5 de marzo de 2011 17:41
  • Ya lo he conseguido, por si alguien mas necesita esta respuesta, la dejo aqui.

    Un saludo.

    Private Sub Comando84_Click()
    'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
        Dim OutlookApp As Outlook.Application
        Dim OutlookCita As Outlook.AppointmentItem
        Set OutlookApp = CreateObject("Outlook.Application")
        Set OutlookCita = OutlookApp.CreateItem(olAppointmentItem)
       
        With OutlookCita   'le pasamos los valores a la nueva cita
          '.Duration = 30 'Duración
          .Start = Me.Proxima_visita & "  " & #9:00:00 AM# ' Fecha y hora de inicio
          .End = Me.Proxima_visita & "  " & #9:30:00 AM# 'Fecha y hora de término
          .Location = Me.Tfno & "-" & Me.Contacto 'Localización de la cita, en este caso el nombre del campo que quieres
          .Body = "Finalizacion de garantia - enviado desde access" 'Cuerpo
          .Subject = Me.Nombre 'Asunto
          .AllDayEvent = False  ' varios eventos durante todo el día
          .Save  'Salvamos la cita
          .Display  'La mostramos para su personalización/modificación
          'en fin, se puede personalizar tanto como tu quieras, solo debes jugar con todas las propiedades
        End With
        Set OutlookCita = Nothing
        Set OutlookApp = Nothing
    End Sub

    • Propuesto como respuesta José Mª Fueyo martes, 8 de marzo de 2011 11:56
    martes, 8 de marzo de 2011 11:19