Enviar correo desde excel de acuerdo a una condicion
publicado
Este problema me supera, mis conocimientos en VB son muy basicos, pero de seguro alguno puede resolverlo en menos de 2 min.
Necesito una macro que evalue un rango de filas que contienen cada una un correo electronico, si la condicion a evaluar (en un rato comento cual es) se cumple, entonces debe copiar esa direccion o direcciones de correo eltronico y enviar via outlook un correo masivo
Tanto el asunto como el cupero del mesaje son iguales, por eso pueden incluirse en alguna celda y tomarlo a aprti de alli, si mas un caso cumple con la condicion entonces se pueden copiar en un solo mensaje todas las direcciones de correo,
La condicion a evaluar es: si la fecha actual =hoy() esta en un rango 60 dias antes de la fecha1 (es un dato ya de la hoja) y la fecha1 ; es decir
=SI(Y(B4>=(A4-60);(B4<=A4));"enviar correo";"NO ENVIAR") se cumple entonces envia el correo con las direcciones de email que cumplan con la condicion.
Una vez enviado un correo de alguno de los casos YA NO SE DEBERAN ENVIAR MAS CORREOS A ESE CASO pero se debe segir evaluando el resto de casos cada vez que se decida ejecutar la macro
Una vez enviado un correo de algun caso (fila) en particular se debera incluir una marca en la ultima columna de la hoja indicando que se envio el correo
Agrego el archivo base sobre que se indica todo lo anterior.
Este problema me supera, mis conocimientos en VB son muy basicos, pero de seguro alguno puede resolverlo en menos de 2 min.
Necesito una macro que evalue un rango de filas que contienen cada una un correo electronico, si la condicion a evaluar (en un rato comento cual es) se cumple, entonces debe copiar esa direccion o direcciones de correo eltronico y enviar via outlook un correo masivo
Tanto el asunto como el cupero del mesaje son iguales, por eso pueden incluirse en alguna celda y tomarlo a aprti de alli, si mas un caso cumple con la condicion entonces se pueden copiar en un solo mensaje todas las direcciones de correo,
La condicion a evaluar es: si la fecha actual =hoy() esta en un rango 60 dias antes de la fecha1 (es un dato ya de la hoja) y la fecha1 ; es decir
=SI(Y(B4>=(A4-60);(B4<=A4));"enviar correo";"NO ENVIAR") se cumple entonces envia el correo con las direcciones de email que cumplan con la condicion.
Una vez enviado un correo de alguno de los casos YA NO SE DEBERAN ENVIAR MAS CORREOS A ESE CASO pero se debe segir evaluando el resto de casos cada vez que se decida ejecutar la macro
Una vez enviado un correo de algun caso (fila) en particular se debera incluir una marca en la ultima columna de la hoja indicando que se envio el correo
Agrego el archivo base sobre que se indica todo lo anterior.
Gracias de antemano
consulta.xlsm