Crear macro en excel para que envíe un correo electrónico por outlook informando de los documentos próximos a caducar
Necesito crear una macro que me envié a mi y a mi compañera un correo informando de los documentos que caducarán 2 meses más tarde.
La tabla la tengo estructurada asi:
Título de la tabla: TRAZABILIDAD
COLUMNA A:Del A3 al A177 código del Documento
COLUMNA B : Descripción del documento
COLUMNA C: Versión del documento
COLUMNA D: Próxima revisión
COLUMNA E: Vigencia del documento
COLUMNA F: Avisar. Aquí he marcado 60 días antes de que caduque el documento.
En las celdas G3 y G4 he puesto las direcciones de correo
Lo que necesito es que se envíe un correo electrónico a estas direcciones cuando se llegue a las fechas de aviso ( columna F)
El asunto del correo podría ser: PNT a punto de caducar
El texto: Revisar PNT XXX código, descripción y versión --> Columnas A, B y C
Caducará el próximo xxx ( aquí poner la fecha de próxima revisión que es la columna D)
No sé si me explico muy bien.
Cualquier cosa preguntarme.
1 Respuesta
H o l a Meri:
Desafortunadamente pusiste la información en los comentarios, y ahí no se aprecian muy bien.
Podrías enviarme un correo con ejemplos.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Meri Marfil” y el título de esta pregunta.
Avísame en esta pregunta presionando el botón que dice "Pedir más información, y escribiendo que ya me enviaste el correo.
':)
S a l u d o s . D a n t e A m o r
Ya te he pasado el correo Dante.
Cualquier cosa me dices!
Gracias!
H o l a:
Te anexo la macro para enviar el correo
Sub EnviarCorreo()
'Por.Dante Amor
Application.DisplayAlerts = False
Set dam = CreateObject("Outlook.Application").createitem(0)
dam.To = [G2] & "; " & [G3]
dam.Subject = "PNT a punto de caducar"
'
u = Range("A" & Rows.Count).End(xlUp).Row
Set r = Range("A1:F" & u)
f = r.Rows.Count
c = r.Columns.Count
tabla = "<table border><tr>"
'
For i = 1 To r.Rows.Count
If Cells(i, "F") = Date Or i = 1 Then
For j = 1 To r.Columns.Count
tabla = tabla & "<td>" & r.Cells(i, j) & "</td>"
Next
tabla = tabla & "</tr>"
End If
Next
tabla = tabla & "</table>"
'
dam.HtmlBody = _
"<HTML> " & _
"<BODY>" & _
"<P>" & tabla & "</P>" & _
"</BODY> " & _
"</HTML>" '
'
dam.Display 'El correo se muestra
dam.Send 'El correo se envía en automático
MsgBox "Correo enviado", vbInformation, "CORREO"
End Sub':) ':)
Hola Dante - Richard Campusmana gonzales
Dante puedes darme tu correo por favor, tengo unas consultas. Gracias - Richard Campusmana gonzales
Comentario borrado por el autor - Dante Amor
Con gusto te doy mi correo: [email protected] pero, para cualquier consulta debes crear una pregunta nueva en el tema de excel. - Dante Amor
Buenas noches y muchas gracias Dante por tu respuesta.En la columna F tengo fechas y sé que caduca 60 días antes porque tengo puesta una fórmula ( columna D - 60)Ejemplo: A B C D E FPRO5 RECEPCIÓN Y ENTRADA DE PRODUCTOS 2016 27/01/2016 27/01/2013 28/11/2015Si necesitas algo más dímelo. Y si hace falta que te mande el archivo lo mismo.Mil gracias. - Meri Marfil