Enviar email automático en excel
Tengo una hoja de excel que se alimenta de datos externos, los cuales se actualizan de forma automática. Tras editar esos datos, si alguno cumple unos criterios impuestos, me lo coloca en una tabla. Me gustaría que cuando se coloque algún dato en la tabla, excel me mande la tabla por email. Es decir que mientras esté la tabla vacía no haga nada, pero cuando se coloque un valor en una casilla, excel me mande un email con esta tabla. La tabla se llama Tabla4, se encuentra en la Hoja2, y su extensión es O2:X11 (cabecera incluida). ¿Teneis alguna idea de como construir esta macro?
2 respuestas
Perdona, aquí os dejo un enlace del archivo con datos ficticios.
Muchas gracias.
https://drive.google.com/open?id=1oGchZRlcH3UW6JvLGXnpFo-cLsb1EaJQ
Con esta macro puede enviar la tabla siempre y cuando tenga abierto el correo de microsoft outlook para que el correo se envíe. Lo del envío automático al momento de que la tabla deje ver si puedo encontrar la manera.
Sub Enviar_correo()
ActiveSheet.Range("Tabla4").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "[email protected]"
.Item.Subject = "Asunto: Envío rango de Excel por email"
.Introduction = "Ejemplo de rango adjunto con formato..."
.Item.Send
End With
End Sub