Envio por e-mail

Hola Vicente.

Adjunto te envío un codigo que yo utilizo para envio de hojas.

Te permite enviar una hoja de un libro, poner la dirección de correo a la
que la quieres enviar y ponerle el nombre a la hoja + la fecha del sistema,
para esto último graba la hoja, la envía y luego la elimina. espero que te
sirva.

Un saludo

Sub EnvioHoja()
Dim wb As Workbook
Dim strdate As String
Dim hoja As String
Dim EnviarA As String
Dim NombreFichero As String

strdate = Format(Now, "dd-mm-yy")

hoja = InputBox("Introducir nombre de la hoja a enviar", "Nombre de Hoja")
EnviarA = InputBox("dirección de Correo Electronico", "Enviar a:")
NombreFichero = InputBox("Nombre del fichero a enviar", "Nombre Fichero")

Application.ScreenUpdating = False

Sheets(hoja).Copy

Set wb = ActiveWorkbook

With wb
.SaveAs ("c:\enviohojas\" & NombreFichero & " " & strdate & ".xls")
.SendMail EnviarA
.ChangeFileAccess xlReadOnly
Kill ("c:\enviohojas\" & NombreFichero & " " & strdate & ".xls")
.Close False
End With

Application.ScreenUpdating = True

End Sub


"Vicente" escribió en el mensaje
news:

Como puedo en esta funcion indicar el nombre del fichero que sea los datos
que hay en una celda determinada. Por ejemplo el nombre de un cliente "
Vicente Garcia Perez.xls" como nombre del archivo.

Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="",

Subject:="Envío

Pedido de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

gracias.