Enviar mail cuando se modifique un excel

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Enviar mail cuando se modifique un excel

Notapor iuliano » 30 Mar 2011 12:39

Hola buenas.
Tengo un excel y quiero que cuando se modifique algo, me envié un mail a un correo electrónico.
Lo de mandar el mail, lo he conseguido con una macro que se me ejecuta cuando cierro el excel:
Sub Auto_close()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Ha habido una modificación en " & ThisWorkbook.Name & vbNewLine & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
""

On Error Resume Next
With OutMail
.To = "jlh@wagner-solar.com"
.CC = ""
.BCC = ""
.Subject = "Modificación en un libro"
.Body = strbody
.Send '.Display or use
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Lo que quiero es que me indique cual es el cambio que se ha hecho o me lo marque con un color o algo.
ESto se puede hacer??

Un saludo.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
iuliano
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Ene 2011 11:36

Re: Enviar mail cuando se modifique un excel

Notapor Antoni » 31 Mar 2011 06:09

Hola:

Déjame que me lo piense.

Saludos.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar mail cuando se modifique un excel

Notapor Antoni » 01 Abr 2011 06:52

Hola:

Creo que en el adjunto encontrarás lo que quieres.

Debes copiar el Módulo1 y ThisWorkbook al libro que quieras controlar.

El procedimiento es el siguiente:

Al abrir el libro se crea una hoja con el nombre "@@@Log@@@", en la que se irán recogiendo los cambios que se efectúen.

Al cerrar el libro, se envía el email con el contenido de la hoja "@@@Log@@@" en el cuerpo del mensaje, y a continuación se elimina la hoja.

En todo momento la hoja "@@@Log@@@" permanece oculta.

Saludos.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar mail cuando se modifique un excel

Notapor iuliano » 01 Abr 2011 09:39

Muchas gracias por tu ayuda e interes.

Lo he probado y esta muy bien. Ahora lo implementaré en mis excel.
Te lo agradezco mucho.
Un saludo.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
iuliano
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Ene 2011 11:36

Re: Enviar mail cuando se modifique un excel

Notapor federico ramirez marron » 01 Abr 2011 17:48

Aprovechando el post, alguien sabra cual es el objeto a crear para enviar correo por windows live mail?

Saludos!!!
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
federico ramirez marron
Miembro Frecuente
Miembro Frecuente
 
Registrado: 21 Sep 2004 21:24
Ubicación: ACAPULCO

Re: Enviar mail cuando se modifique un excel

Notapor iuliano » 09 Jun 2011 04:37

Hola muy buenas a todos.

Lo de enviar mail y que ponga los datos que se han modificado funciona perfectamente, pero me gustaria si pudiera ser que me indicase quién es el usuario que lo ha modificado, y ya me quedaría la cosa perfecta.

Un saludo y muchas gracias.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
iuliano
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Ene 2011 11:36


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 4 invitados