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

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

> 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.

Gracias de antemano, pero como puedo darle el nombre del archivo el valor

una celda de la hoja??.

Gracias

"Lao_España" escribió:

> 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

> que la quieres enviar y ponerle el nombre a la hoja + la fecha del

> para esto último graba la hoja, la envía y luego la elimina. espero que

> 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

> EnviarA = InputBox("dirección de Correo Electronico", "Enviar a:")
> NombreFichero = InputBox("Nombre del fichero a enviar", "Nombre

>
> 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

> > 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.
>
>
>