Citas en calendarios personalizados VBA

Te anexo la macro para leer varias citas.

Indicaciones el asunto debe estar en la columna C, la descripción en la columna D y la fecha en la columna F, todos los datos a partir de la fila 2 y hacia abajo.

Puedes poner tus citas de diferente contrato en la misma lista, o bien, crea un archivo por contrato, recuerda copiar el archivo con la macro.

Sub crearcitas()
'Crear citas en outlook desde excel
'Por.Dam
Const olAppointmentItem As Long = 1
Dim OLApp As Object
Dim OLNS As Object
Dim OLAppointment As Object
On Error Resume Next
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
Set OLApp = GetObject(, "Outlook.Application")
If OLApp Is Nothing Then Set OLApp = CreateObject("Outlook.Application")
On Error GoTo 0
If Not OLApp Is Nothing Then
Set OLNS = OLApp.GetNamespace("MAPI")
OLNS.Logon
Set OLAppointment = OLApp.CreateItem(olAppointmentItem)
OLAppointment.Subject = Cells(i, "C").Value 'Asunto
OLAppointment.Body = Cells(i, "D").Value 'Cuerpo
OLAppointment.Start = Cells(i, "F").Value 'inicio ej: 08/12/2012  17:00:00 p.m.
'OLAppointment.Duration = Range("D1").Value 'duración ej para hora y media: 90
'OLAppointment.Location = Range("E1").Value 'Ubicación
'OLAppointment.ReminderMinutesBeforeStart = Range("F1").Value 'aviso
OLAppointment.Save 'para guardar la cita
'OLAppointment.display 'Para mostrar la cita
Set OLAppointment = Nothing
Set OLNS = Nothing
Set OLApp = Nothing
End If
Next
End Sub

Saludos.Dam

Si es lo que necesitas.