Crear tarea outlook
Publicado por ismael (1 intervención) el 06/04/2013 11:21:39
Hola Foro:
tengo una macro VB, para crear una tarea en Outlook 2010 desde una macro Excel 2010 (no es mia. Lan encontré en la red, y no recuerdo al autor. Lo siento).
[i]Sub CrearTareaOutlook()
Dim objectOutlook As Object
Dim objectTarea As Object
Set objectOutlook = CreateObject("Outlook.Application")
Set objectTarea = objectOutlook.CreateItem(olTaskItem)
'Set objectTarea = objectOutlook.CreateItem(IPM.Task.Tarea9)
With objectTarea
.Subject = "Prueba - 05-04-2013" 'Cells(5, 7).Value 'Título de la tarea
.Body = "Mas prueba" 'Cells(5, 7).Value 'Detalle de la tarea
.ReminderSet = True 'Recordar True/False
.ReminderTime = DateAdd("h", 24, Now) 'Recordar cada 24 horas si .ReminderSet = True
.DueDate = 5 / 4 / 2013 'Cells(11, 27).Value 'Fecha tarea
.Save
End With
Set objectTarea = Nothing
Set objectOutlook = Nothing
End Sub
Crea la tarea, utilizando el formulario normal de la aplicación.El tema es que quiero, que la cree utilizando un formulario personalizado. Como puedo llamar a este formulario personalizado?? Alguien me puede ayudar???.
Este formulario personalizado, contiene en el cuerpo de la Tarea una tabla con dos hipervínculos a carpetas del sistema de archivos. Como los puedo modificar al crear la Tarea????
Gracias por vuestro tiempo.
Saludos
tengo una macro VB, para crear una tarea en Outlook 2010 desde una macro Excel 2010 (no es mia. Lan encontré en la red, y no recuerdo al autor. Lo siento).
[i]Sub CrearTareaOutlook()
Dim objectOutlook As Object
Dim objectTarea As Object
Set objectOutlook = CreateObject("Outlook.Application")
Set objectTarea = objectOutlook.CreateItem(olTaskItem)
'Set objectTarea = objectOutlook.CreateItem(IPM.Task.Tarea9)
With objectTarea
.Subject = "Prueba - 05-04-2013" 'Cells(5, 7).Value 'Título de la tarea
.Body = "Mas prueba" 'Cells(5, 7).Value 'Detalle de la tarea
.ReminderSet = True 'Recordar True/False
.ReminderTime = DateAdd("h", 24, Now) 'Recordar cada 24 horas si .ReminderSet = True
.DueDate = 5 / 4 / 2013 'Cells(11, 27).Value 'Fecha tarea
.Save
End With
Set objectTarea = Nothing
Set objectOutlook = Nothing
End Sub
Crea la tarea, utilizando el formulario normal de la aplicación.El tema es que quiero, que la cree utilizando un formulario personalizado. Como puedo llamar a este formulario personalizado?? Alguien me puede ayudar???.
Este formulario personalizado, contiene en el cuerpo de la Tarea una tabla con dos hipervínculos a carpetas del sistema de archivos. Como los puedo modificar al crear la Tarea????
Gracias por vuestro tiempo.
Saludos
Valora esta pregunta


0