Crear cita en access.

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]