Enviar correo automáticamente desde Excel una vez vencida una fecha
Me gustaría poder enviar un e-mail automáticamente una vez vencida la fecha.
Tengo puesto en la (G13) el motivo y la fecha de inicio en (I 13) y fecha prevista (I14).
Me gustaría que si no se cumple ese motivo en dicha fecha se envíe un e-mail automáticamente al correo que está en la celda (Z13).
1 Respuesta
Pongámonos en situación de que es Lunes 22 /06/2015.
Datos reales;
Nº(A13) Acción(G13) Encargado(H13) Fecha inicio(i13) Fecha fin(J13) Situación(L13)
Nº1
envío de lacasitos
Pedro
22/06/2015
23/06/2015
en curso
Los registros a tener en cuenta es la fecha fin prevista y situación. Si la situación está en curso y la fecha fin prevista vence al dia siguiente del dia actual es decir; Lunes 22/06/2015 la acción vence mañana por lo tanto que se le mande un e-mail automáticamente al responsable.
El asunto va a ser acción.
En el cuerpo del correo me gustaría que se enviara el nº y acción.
Efectivamente se va a enviar por Outlook.
Gracias un saludo.
Te anexo la macro. Cambia en la macro "Hoja1" por el nombre de tu hoja donde tienes los datos.
La macro va a revisar desde la fila 13 en adelante todos los registros, si cumplen con las condiciones se enviará el correo al destinatario que se encuentre en la columna Z.
Sub EnviarCorreo()
'Por.Dante Amor
Set h = Worksheets("Hoja1")
For i = 13 To h.Range("A" & Rows.Count).End(xlUp).Row
n = 0
If h.Cells(i, "J") = Date + 1 And _
UCase(h.Cells(i, "L")) = "EN CURSO" Then
Set dam = CreateObject("outlook.application").CreateItem(0)
dam.To = h.Cells(i, "Z")
dam.Subject = h.Cells(i, "G")
dam.Body = "Número: " & h.Cells(i, "A") & ". Acción: " & h.Cells(i, "G")
dam.Display
End If
Next
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
Estimado, uso esta macro, pero se arma el correo pero no es envía automáticamente. ¿Qué faltará? Gracias - Rodrigo Jose Ahumada
Cambia .Display por .Send - Dante Amor
Utilicé su explicación y puse (Cells(i, «P») = Date + 3 Then, para evitar los días sábados y domingos y que me envíe el correo un viernes si la fecha a caducarse es el lunes, pero quiero poner alguna condición en que me envíe el correo el día hábil anterior a la fecha a caducarse, de tal forma que si el lunes es un día no hábil por ser festivo y el martes es la fecha de vencimiento, se ejecute el correo el viernes anterior. Para eso, tengo un listado de días no habiles en una columna del excel desde donde se ejecuta. ¿Cómo podría hacerlo? - alberto Jhayya
Pero el + 1 no es para evitar alguna fecha. el + 3 no va a evitar los sábado y domingos. Tendrías que calcular la fecha hábil anterior con la fórmula dias.lab, te sugiero que pongas la fórmula en una columna, entonces que la macro revise esa columna. - Dante Amor
gracias. quería evitar hacer una columna con la fórmula que me dice. - alberto Jhayya