Crear un calendario en outlook desde excel
Crear mediante código vba un calendario en outlook y guardar una cita desde excel
1 Respuesta
Respuesta de Dante Amor
1
En el siguiente enlace hay una macro para crear calendarios y citas.
http://www.officefull.es/fechas-horas/79-citas-calendarios-personalizados-vba.html
La macro de Hector Miguel Orozco
Sub Agendar_en_miCalendario()
Dim miOutlook AsObject, miCalendario AsObject, miCita AsObject, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
On Error GoTo Crear
Set miOutlook = GetObject(, "outlook.application")
If Err = 0 ThenGoTo Creado
Crear:
Err.Clear
Set miOutlook = CreateObject("outlook.application")
Creado:
On Error GoTo0
For Fila = 2 To uFila
' en la col-B se tienen los nombres de los calendarios
Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
Set miCita = miCalendario.Items.Add(1)
' en la col-A se tienen los identificadores del recordatorio/cita
miCita.Subject = "Vencimiento de: " & Range("a" & Fila).Value
' en la col-C se tienen las fechas de los vencimientos
miCita.Start = "11:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.End = "11:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
miCita.ReminderPlaySound = True
miCita.Save
Next
miOutlook.Quit
Set miCita = Nothing
Set miOutlook = Nothing
End SubSi necesitas alguna adecuación a la macro avísame.
No olvides valorar la respuesta.
