¿es posible vincular una celda a un aviso de outlook?

[SERGI_1975]

Hola, me gustaría saber si es posible vincular una celda al calendario de Outlook para generar una alerta cuando en dicha celda se da la fecha "hoy". Gracias de antemano.

[asesorcperic]

hola checa esto que esta por san google a lo mejor te sirve

Dim OLNS As Object

Dim OLAppointment As Object

On Error Resume Next

Set OLApp = GetObject(, "Outlook.Application")

If OLApp Is Nothing Then Set OLApp = CreateObject("Outlook.Application")

On Error GoTo 0

If Not OLApp Is Nothing Then

Set OLNS = OLApp.GetNamespace("MAPI")

OLNS.Logon

Set OLAppointment = OLApp.CreateItem(olAppointmentItem)

OLAppointment.Subject = Range("A1").Value 'Asunto

OLAppointment.Body = Range("B1").Value 'Cuerpo

OLAppointment.Start = Range("C1").Value 'inicio ej: 08/12/2012  17:00:00 p.m.

OLAppointment.Duration = Range("D1").Value 'duración ej para hora y media: 90

OLAppointment.Location = Range("E1").Value 'Ubicación

OLAppointment.ReminderMinutesBeforeStart = Range("F1").Value 'aviso

OLAppointment.Save 'para guardar la cita

'OLAppointment.display 'Para mostrar la cita

Set OLAppointment = Nothing

Set OLNS = Nothing

Set OLApp = Nothing

End If

End Sub[/CODE]

[SERGI_1975]

Uffff, me acabo de dar cuenta de lo ignorante que soy y de lo complicado que es esto, porque me suena a chino total!!! No se ni como hay que usar eso, ni donde, ni nada. Te agradezco mucho la molestia de haberlo buscado pero creo que tendré que estudiar un poco antes de poder sacarle partido a esta información. Gracias de nuevo.