Saltar al contenido

Crear cita en calendario outlook no default desde excel vba


JuShTo

Recommended Posts

publicado

Buenas,

Estoy tratando de crear citas en funcion de los datos de una hoja de excel, mi problema no es obtener los datos del excel ni nada por estilo sino utilizar correctamente los objetos para poder acceder a las carpeta no default del Outlook.

Como os digo para crear citas sobre el calendario default no tengo problemas, pero sobre cualquier otro calendario es imposible.

Os adjunto unos códigos...

Sub SetAppt()
Dim olApt As Object ' Outlook.AppointmentItem
Dim olApp As Object ' Outlook.Application
Dim i As Long
Dim apptRange As Variant
Const olAppointmentItem As Long = 1

' create outlook
Set olApp = GetOutlookApp

If olApp Is Nothing Then
MsgBox "Could not start Outlook"
Exit Sub
End If

Set myNameSpace = olApp.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderCalendar).Folders("micalendario")
' read appts into array
apptRange = Range(Cells(2, 1), Cells(Rows.Count, 7).End(xlUp)).Value

For i = LBound(apptRange) To UBound(apptRange)
Set olApt = olApp.Add.Item(olAppointmentItem)
With olApt
' Datos de la cita
End With
Next i

End Sub
Function GetOutlookApp() As Object
On Error Resume Next
Set GetOutlookApp = CreateObject("Outlook.Application")[/CODE]

Me da Error 5 en esta linea...

Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderCalendar).Folders("micalendario")

Sin embargo, si esa misma linea la utilizo en las macros de outlook funciona perfectamente...

Como veis ni siquiera intento insertar nada hasta ahora, sólo intento acceder a la carpeta desde Excel...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.