Saltar al contenido

Crear cita en calendario outlook no default desde excel vba

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...

Featured Replies

No hay posts para mostrar

Archivado

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