Forums Últimos mensajes - Powered by IBM
 

Crear cita en access.

10/05/2010 - 17:13 por Angel O. | Informe spam
Hola chicos.



Quiero que con una macro en access, crear una cita en el calendario del
outlook para el día siguiente. He conseguido crear el informe con vista
preliminar y enviarlo por email, pero no he encontrado ninguna opción para
adjuntarlo y crear una cita.



¿Sabéis si es posible?



Gracias por adelantado.
 

Leer las respuestas

#1 José Mª Fueyo
10/05/2010 - 17:56 | Informe spam
Hola
No nos comentas que versión de Access utilizas.
Puedes utilizar automatización para interactuar no solo con Outlook
sino con todos los elementos que lo soporten.
El siguiente código te crea una tarea en la lista de tareas de Outlook

<pego>
Public Sub addTask()

Dim olookApp As Outlook.Application
Dim olookTask As Outlook.TaskItem

Set olookApp = CreateObject("Outlook.Application")
Set olookTask = olookApp.CreateItem(olTaskItem)

With olookTask
.Subject = "This is the subject of my task"
.Body = "This is the body of my task."
.ReminderSet = True

'Set a reminder two minutes from now.
.ReminderTime = DateAdd("n", 2, Now)

'Set the due date to five minutes from now.
.DueDate = DateAdd("n", 5, Now)
.ReminderPlaySound = True

'Add the path to a .wav file on your computer.
.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"
.Save
.ReminderSet = True
End With

Set olookTask = Nothing
Set olookApp = Nothing
Debug.Print "TERMINADO"

End Sub
</pego>

De todos modos, en www.outlookcode.com podrás encontrar mucha más
información y ejemplos de programación de Outlook.

Salu2
José Mª Fueyo
[MS MVP Access]

Preguntas similares