Foro Excel

Hola amigos
Igual no me explique bien en mi mensaje de ayer.
Lo que necesito es que al enviar un mail de la hoja activa, con este codigo, en el Asunto del envio salga el nombre de la hoja
Gracias y un saludo
Alfredo


Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String

strdate = Format(Now, "dd-mm-yy h-mm-ss")
strEmail = "xxx"

Application.ScreenUpdating = False


ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "SOLICITUD DE....." NOMBRE DE LA HOJA ACTIVA
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

Application.ScreenUpdating = True
End Sub

Hola sabes n o puedo ayudarte mucho, pero por aqui mismo vi una funcion para capturar el nombre de la hoja activa.... entonces cro que puedes caoturar el nombre grabarlo en un variable y concatenarlo donde tu quieras

nombre = (funcion para capturar) ( no la recuerdo )

.SendMail strEmail, "SOLICITUD DE " & nombre

esa es la idea ojaja la encuentre ese codigo

prueba con agregar a tu codigo:

.Subject= nombredetuhoja

o sino con este,aunque creo que es el 1º

.Message = nombredetuhoja

salu2

Lo siento, no me sale nada
a ver si alguien me puede ayudar
Un saludo

Creo que deberias ponerlo asi:
.SendMail strEmail, "SOLICITUD DE....." & ActiveSheet.Name

Espero sea lo que necesitas
saludos

Gracias, asi si
Anda que no he dado vueltas.......
un saludo