Importar tareas de Excel a Outlook
Tengo que cargar unas tareas a Outlook con todos sus campos (Asunto, desde, hasta, Estado, Prioridad, Aviso, Aviso desde, Aviso hasta y % de completitud). El tema es que en la web encontré una macro, pero esta me permite hacerlo uno por uno, y son muchas! Además de que no estan todos los campos.
Alguien me podría ayudar con esto.
1 respuesta
Te anexo un ejemplo de como pudieras tener tus datos.
Para cada registro en tu hoja "tareas" se creará una tarea en outlook
Los campos de estado y Prioridad, tienes que poner un número, para estado van desde el 0 hasta 4 y corresponden a los valores "no comenzada", "en curso", "Completada", "A la espera" y "Aplazada". Para la prioridad van del 0 al 2 y corresponden a los valores "Baja", "Normal" y "Alta".
La macro. Cambia "tareas" por el nombre de tu hoja.
Sub CrearTareaOutlook()
'Por.Dante Amor
Set h = Sheets("tareas")
'
For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row
Set Tarea = CreateObject("Outlook.Application").CreateItem(olTaskItem)
With Tarea
.Subject = h.Cells(i, "A").Value 'asunto
.Body = h.Cells(i, "B").Value 'cuerpo
'
.StartDate = h.Cells(i, "C").Value 'inicio
.DueDate = h.Cells(i, "D").Value 'vencimiento
.ReminderSet = True 'activar aviso
.ReminderTime = h.Cells(i, "E").Value 'fecha y hora de aviso
'
.PercentComplete = h.Cells(i, "F").Value '% completado
.Status = h.Cells(i, "G").Value 'estado, valores 0 a 4
.Importance = h.Cells(i, "H").Value 'Prioridad. Valores 0 a 2
.Save
End With
Next
Set Tarea = Nothing
End SubActualiza las columnas en la macro según tus datos o acomoda tus datos según mi ejemplo.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
Hola Dante! Muchas gracias pero me tira un error...
Ahhh!!
Lo hace en esta línea
.StartDate = h.Cells(i, "C").Value 'inicio
Entra a VBA, en el menú Herramientas, Referencias, revisa que tengas activa la referencia :
Microsoft Outlook 12.0 Object Library.
Tal vez en lugar de 12 te encuentres otro número, depende de tu versión.
