¿macro para hacer una cita en el outlook desde el excel?

[Maro Ghislanzoini]

Hola! Supongamos que tengo la tabla que les adjunto, como hago para crear una macro que me permita crear una cita en el

Outlook

3 días antes a la fecha que me figura en E2.

¿Cómo hago también para que se me creen otras citas cada vez que yo ingresando más datos?

Gracias!

[Maro Ghislanzoini]

Comento cualquier cosa para que siga apareciendo!!! perdón pero tengo que presentar este proyecto!!!! gracias!!

[Armando Montes]

Hola, este es tal vez el sitio con mas info al respecto:

Mail from Excel and make/mail PDF files (Windows)

Usando el buscador del foro encontraras varias consultas como esta:

Solucionado - Macro para enviar correo automáticamente | Ayuda Excel

[Maro Ghislanzoini]

Gracias Antonio. pero lo que yo quiero hacer es hacer una cita en el Outlook, no mandar un mail!!!.

saludos!!

[asesorcperic]

hola maro

puedes realizarlo con esto

Dim Respuesta As VbMsgBoxResult

Dim ol As New Outlook.Application

Dim ns As Outlook.NameSpace

Dim itmApoint As Outlook.AppointmentItem


Set ns = ol.GetNamespace("MAPI")

Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)

With itmApoint

.Start = "2014-07-09 13:00:00"

.End = "2014-07-09 14:00:00"

.Subject = "Prueba"

.Body = "Prueba"

.Importance = olImportanceNormal

.Save

End With

MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje"

Set ns = Nothing

Set itmApoint = Nothing

[/CODE]

saludos