Buenos días tengo una macro para mandar un correo avisando que se modifico, pero hay que ejecutar el macro para que funcione, busque en el foro pero no encontre esta solución especifica.
Hay alguna manera que al guardar salga el correo automaticamente.
Este es el macro que uso, pero no se como asignarsela al boton guardar, gracias.
Sub Mail_small_Text_Outlook()
' Is working in Office 2000-2010
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 = "mi correo"
.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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días tengo una macro para mandar un correo avisando que se modifico, pero hay que ejecutar el macro para que funcione, busque en el foro pero no encontre esta solución especifica.
Hay alguna manera que al guardar salga el correo automaticamente.
Este es el macro que uso, pero no se como asignarsela al boton guardar, gracias.
Sub Mail_small_Text_Outlook()
' Is working in Office 2000-2010
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 = "mi correo"
.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