Ligar Excel y Outlook

HOLA MIGUEL QUE BUENA AYUDA, HE SEGUIDO ESTE POST, Y ME HA SIDO MUY UTIL, ME
AHORRO TRABAJO POR SEMANAS.

Mi pregunta es al soguiente,

este macro lo he usado en una base de datos que tengo con polizas de seguros
que vencen anualmente, y así me ha generado la advertencia en el outlook, en
el calendario por defecto de OTULOOK.

Resulta que he creado varios calendarios en outlook, uno para los
vencimientos de las pólzias de los automóviles, otra para los seguros de vida
etc. Cada una de estos listados los tengo en tablas independientes.

La pregunta es como hago para que la macro me agrege los avisos, en los
calendarios que he creado para cada motivo, es deir que la macro de la tabla
de "vencimientos de autos", me cree los avisos en el calendario "Vencimiento
de Autos".

Saludos. y mil y mil gracias nuevamente.

"Héctor Miguel" wrote:

hola, Javi !

> Vale parece que ya empiezo a entender, aunque veo que algunos datos no me haran falta
> creo que con el proveedor y la fecha de aviso me basta, me estaba haciendo un lio con los avisos de outlook
> ya que no habia mirado el calendario el cual si pone todo lo que pongo en el script.
> Tengo... un problema... una vez cargados correctamente los avisos al calendario de outlook
> como puedo hacer para que cuando actualicemos el excel y volvamos a ejecutar la macro no me duplique los avisos ...

dependiendo de la forma y metodo utilizados para actualizar el arcchivo de excel (???)
creo que la forma mas facil podria ser una columna adicional (suponiendo que puede ser al col-E)
donde el codigo pueda verificar si previamente ya se habia registrado o proceder a registrar y marcar en la col-E (?)

asumiendo que la col-E es la que se puede utilizar, la macro podria quedar +/- como sigue:

Public Const Clave As String = "Agendado"
Public Sub EstablecerCitasEnOutlook()
Dim nOutlook As Object, Cita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
Set nOutlook = CreateObject("outlook.application")
For Fila = 2 To uFila
If Range("e" & Fila) <> Clave Then
Set Cita = nOutlook.CreateItem(1)
Cita.Subject = ("Finalizacion contrato " & Range("a" & Fila).Value)
Cita.Start = "09:00 AM" & _
Format(Range("d" & Fila).Value, "dd/mm/yyyy")
Cita.End = "9:15 AM" & _
Format(Range("d" & Fila).Value, "dd/mm/yyyy")
Cita.ReminderMinutesBeforeStart = 0 ' Lo dejo a 0 ya que quiero que me avise ese dia
Cita.ReminderPlaySound = True
Cita.Save
Range("e" & Fila) = Clave
End If
Next
' nOutlook.Quit
Set Cita = Nothing
Set nOutlook = Nothing
End Sub

saludos,
hector.

hola, Juan Camilo !

Resulta que he creado varios calendarios en outlook, uno para los vencimientos de las polzias de los automoviles
otra para los seguros de vida etc. Cada una de estos listados los tengo en tablas independientes.
La pregunta es como hago para que la macro me agrege los avisos, en los calendarios que he creado para cada motivo
es deir que la macro de la tabla de "vencimientos de autos", me cree los avisos en el calendario "Vencimiento de Autos"...

si tienes varias carpetas personalizadas en outlook, (probable o seguramente) te sera de utilidad el siguiente articulo:

Ejemplos de programacion para hacer referencia a elementos y carpetas en Outlook
http://support.microsoft.com/?kbid 8520

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias Hector, pero la verdad entiendo que ahi podria uno decirle a la macro
en que carpeta de calendario guardarlo, pero la verdad no entiendo casi nada
de programacion, y con ese artículo quedo super perdido.

Lo siento, debes estar lleno de calama para soportarnos a los ignoranes
totales. como yo.

Saludos
Juan Camilo


"Héctor Miguel" wrote:

hola, Juan Camilo !

> Resulta que he creado varios calendarios en outlook, uno para los vencimientos de las polzias de los automoviles
> otra para los seguros de vida etc. Cada una de estos listados los tengo en tablas independientes.
> La pregunta es como hago para que la macro me agrege los avisos, en los calendarios que he creado para cada motivo
> es deir que la macro de la tabla de "vencimientos de autos", me cree los avisos en el calendario "Vencimiento de Autos"...

si tienes varias carpetas personalizadas en outlook, (probable o seguramente) te sera de utilidad el siguiente articulo:

Ejemplos de programacion para hacer referencia a elementos y carpetas en Outlook
http://support.microsoft.com/?kbid 8520

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, Juan Camilo !

... la verdad no entiendo casi nada de programacion, y con ese articulo quedo super perdido.
... debes estar lleno de calama para soportarnos a los ignoranes totales. como yo.

he hecho algunas pruebas pero aun no logro que las citas quden sembradas en calendarios personalizados :-((
tambien he puesto un mensaje en el foro de outlook, por si quieres darle seguimiento en ese grupo mas especializado (?)

por lo de la "calma"... ni te aflijas ni preocupes, que precisamente de los "ignorantes totales"...
(empezando conmigo mismo, que NO "naci enseñado") es de quienes mas he aprendido :))

saludos,
hector.

Hola, disculpen pero este ultimo codigo lo escribo en la macro de excel? y a
la vez que se hace para activar esta macro ligarlo a un boton?

gracias de antemano

"Héctor Miguel" wrote:

hola (de nuevo), Juan Camilo !

(por si regresas a ver esta consulta)...

el siguiente codigo es el que ma ha funcionado...

saludos,
hector.

Sub Agendar_en_miCalendario()
Dim miOutlook As Object, miCalendario As Object, miCita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
On Error GoTo Crear
Set miOutlook = GetObject(, "outlook.application")
If Err = 0 Then GoTo Creado
Crear:
Err.Clear
Set miOutlook = CreateObject("outlook.application")
Creado:
On Error GoTo 0
For Fila = 2 To uFila
' en la col-B se tienen los nombres de los calendarios
Set miCalendario = miOutlook.Session.GetDefaultFolder(9).Folders.Item(Range("b" & Fila).Text)
Set miCita = miCalendario.Items.Add(1)
' en la col-A se tienen los identificadores de las polizas
miCita.Subject = "Vencimiento poliza: " & Range("a" & Fila).Value
' en la col-C se tienen las fechas de los vencimientos
miCita.Start = "09:00 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.End = "9:15 am" & Format(Range("c" & Fila).Value, "mm/dd/yyyy")
miCita.ReminderMinutesBeforeStart = 0 ' se deja en 0 para que avise en ese momento
miCita.ReminderPlaySound = True
miCita.Save
Next
' miOutlook.Quit
Set miCita = Nothing
Set miCalendario = Nothing
Set miOutlook = Nothing
End Sub