Crear una tarea en Outlook 2007 desde Excel 2007

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

prueba por este camino

Dim Outlookapl As Object, _
Cita as object
Set Outlookapl = CreateObject("Outlook.Application")
set cita=createobject("Outlook.AppointmentItem")

Cita.Subject = "Tarea 1"
CitaDueDate = "09/05/11 3:00 pm"
Cita.Recipients.Add "pepe"
Cita.Save


Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Zoltar" escribió en el mensaje de noticias
news:
Estimados Cybernautas:

Quiero automatizar la creación de tareas desde una tabla que tengo en
Excel. Para ello he utilizado la siguiente macro

Sub tareaol()
Dim Outlookapl As Object
Set Outlookapl = CreateObject("Outlook.Application")
Outlookapl.createitem(3).Subject = "Tarea 1"
Outlookapl.createitem(3).DueDate = "09/05/11 3:00 pm"
Outlookapl.createitem(3).Save

End Sub

Sin embargo al ejecutarla sólo crea la tarea sin información. Por otra
parte no sé como asignar esta tarea a una dirección electrónica.
Alguien me podría ayudar?.

Desde ya muchas gracias.

Atte Zoltar

__________ Information from ESET Smart Security, version of virus signature
database 6435 (20110904) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 6438 (20110905) __________

The message was checked by ESET Smart Security.

http://www.eset.com