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

On 5 sep, 14:05, "Emilio" wrote:
Mostrar la cita

¡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 comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
"Zoltar" escribió en el mensaje de noticiasnews:
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

Gracias Emilio.
Lamentablemente no funciona, ya que no reconoce la instrucción

set cita=createobject("Outlook.AppointmentItem")

Seguiremos intentando.

Atte

Zoltar

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
perdón, es lo que pasa por escribir al vuelo

set cita=Outlookapl.createobject("Outlook.AppointmentItem")


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:
On 5 sep, 14:05, "Emilio" wrote:
Mostrar la cita

¡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
comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
"Zoltar" escribió en el mensaje de
noticiasnews:
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

Gracias Emilio.
Lamentablemente no funciona, ya que no reconoce la instrucción

set cita=createobject("Outlook.AppointmentItem")

Seguiremos intentando.

Atte

Zoltar

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

The message was checked by ESET Smart Security.

http://www.eset.com




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

The message was checked by ESET Smart Security.

http://www.eset.com

On 5 sep, 16:34, "Emilio" wrote:
Mostrar la cita

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
perdón, es lo que pasa por escribir al vuelo

set cita=Outlookapl.createobject("Outlook.AppointmentItem")

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
"Zoltar" escribió en el mensaje de noticiasnews:
On 5 sep, 14:05, "Emilio" wrote:









> ¡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
> comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
> "Zoltar" escribió en el mensaje de
> noticiasnews:
> 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

Gracias Emilio.
Lamentablemente no funciona, ya que no reconoce la instrucción

set cita=createobject("Outlook.AppointmentItem")

Seguiremos intentando.

Atte

Zoltar

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

The message was checked by ESET Smart Security.

http://www.eset.com

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

The message was checked by ESET Smart Security.

http://www.eset.com

Muchas gracias, Emilio.

Tampoco me resultó con la instrucción corregida.

Sí me funcionó lo siguiente:

Sub creaTarea()
Dim Outlookapl As Object
Set Outlookapl = CreateObject("Outlook.Application")
With Outlookapl.createitem(3)
.DueDate = Date + 5 & " 2:00 pm"
.Subject = "Prueba 6"
.Recipients.Add "pepe"
.Save

End With

End Sub

Me podrías indicar qué otros métodos tiene la propiedad createitem ?.

Atte

Zoltar

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
consulta la ayuda, de ella los he sacado yo.

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:
On 5 sep, 16:34, "Emilio" wrote:
Mostrar la cita

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
perdón, es lo que pasa por escribir al vuelo

set cita=Outlookapl.createobject("Outlook.AppointmentItem")

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO
comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
"Zoltar" escribió en el mensaje de
noticiasnews:
On 5 sep, 14:05, "Emilio" wrote:









> ¡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
> comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
> "Zoltar" escribió en el mensaje de
> noticiasnews:
> 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

Gracias Emilio.
Lamentablemente no funciona, ya que no reconoce la instrucción

set cita=createobject("Outlook.AppointmentItem")

Seguiremos intentando.

Atte

Zoltar

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

The message was checked by ESET Smart Security.

http://www.eset.com

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

The message was checked by ESET Smart Security.

http://www.eset.com

Muchas gracias, Emilio.

Tampoco me resultó con la instrucción corregida.

Sí me funcionó lo siguiente:

Sub creaTarea()
Dim Outlookapl As Object
Set Outlookapl = CreateObject("Outlook.Application")
With Outlookapl.createitem(3)
.DueDate = Date + 5 & " 2:00 pm"
.Subject = "Prueba 6"
.Recipients.Add "pepe"
.Save

End With

End Sub

Me podrías indicar qué otros métodos tiene la propiedad createitem ?.

Atte

Zoltar

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

The message was checked by ESET Smart Security.

http://www.eset.com




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

The message was checked by ESET Smart Security.

http://www.eset.com