BOTÓN EN EXCEL QUE AL CLICKARLO PUEDAS MANDAR UN MAIL

Prueba esto.
Tendrás que asociar la rutina a un botón o, mejor,
ejecutarla cuando se cierre el libro y haya sido modificado.
Suerte.


Sub prueba()

Dim Fecha as Date
Fecha = Now()

Dim Libro As Workbook
Set Libro = Workbooks(1)
Libro.HasRoutingSlip = True

With Libro.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("") ' aqui la
direccion o direcciones
.Subject = "Envio de correo" ' aqui el titulo
.Message = "Fecha y hora de modificacion" & Fecha
End With
Libro.Route

End Sub

Tengo una hoja de excel y mi pregunta es. Como añado un
Botón en una hoja de Excel que al hacer click encima,
mande un texto "siempre fijo" con la fecha y la hora en el
que se realiza el click, a una dirección de correo siempre
fija.

Ejemplo: pulso el botón y automaticamente realiza un envío
de mail con el mensaje fijo "La hoja ha sido modificada el
día" &fecha &hora . Siempre a una dirección de correo
concreta.



.

Muchas Gracias!!

Funcionó

Prueba esto.
Tendrás que asociar la rutina a un botón o, mejor,
ejecutarla cuando se cierre el libro y haya sido

modificado.

Suerte.


Sub prueba()

Dim Fecha as Date
Fecha = Now()

Dim Libro As Workbook
Set Libro = Workbooks(1)
Libro.HasRoutingSlip = True

With Libro.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("") ' aqui la
direccion o direcciones
.Subject = "Envio de correo" ' aqui el titulo
.Message = "Fecha y hora de modificacion" & Fecha
End With
Libro.Route

End Sub

Tengo una hoja de excel y mi pregunta es. Como añado un
Botón en una hoja de Excel que al hacer click encima,
mande un texto "siempre fijo" con la fecha y la hora en

el

que se realiza el click, a una dirección de correo

siempre

fija.

Ejemplo: pulso el botón y automaticamente realiza un

envío

de mail con el mensaje fijo "La hoja ha sido modificada

el

día" &fecha &hora . Siempre a una dirección de correo
concreta.



.

.

Hola,
Estoy teniendo un problema de error en:
Libro.HasRoutingSlip = True
Podrás ayudarme
Gracias


"" escribió:

Prueba esto.
Tendrás que asociar la rutina a un botón o, mejor,
ejecutarla cuando se cierre el libro y haya sido modificado.
Suerte.


Sub prueba()

Dim Fecha as Date
Fecha = Now()

Dim Libro As Workbook
Set Libro = Workbooks(1)
Libro.HasRoutingSlip = True

With Libro.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("") ' aqui la
direccion o direcciones
.Subject = "Envio de correo" ' aqui el titulo
.Message = "Fecha y hora de modificacion" & Fecha
End With
Libro.Route

End Sub








>Tengo una hoja de excel y mi pregunta es. Como añado un
>Botón en una hoja de Excel que al hacer click encima,
>mande un texto "siempre fijo" con la fecha y la hora en el
>que se realiza el click, a una dirección de correo siempre
>fija.
>
>Ejemplo: pulso el botón y automaticamente realiza un envío
>de mail con el mensaje fijo "La hoja ha sido modificada el
>día" &fecha &hora . Siempre a una dirección de correo
>concreta.
>
>
>
>.
>