Crear cita desde macro en outlook

[Bryan Acosta]

Estimados,

Tengo el siguiente códgio para crear citas desde una macro.

Private Sub CommandButton1_Click()

Dim Respuesta As VbMsgBoxResult

Dim ol As New Outlook.Application

Dim ns As Outlook.Namespace

Dim itmApoint As Outlook.AppointmentItem

Set ns = ol.GetNamespace("MAPI")

Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)

With itmApoint

.Start = "2014-05-22 13:00:00"

.End = "2014-05-22 13:00:00"

.Subject = "Prueba"

.Body = "Prueba"

.Importance = olImportanceNormal

.Save

End With

MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje"

End Sub

Este código me funciona muy bien en algunas máquinas, pero en otras me da el siguiente error:

Se ha producido el error 13 en tiempo de ejecucion

No Coinciden los tipos

Y es en la línea:

Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)

Muchas Graicas por sus comentarios.

Saludos,