Envio por e-mail

23/11/2004 - 12:15 por Vicente | Informe spam

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:="vicente@safta.com", Subject:="Envío
Pedido de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

gracias.

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Lao_España

23/11/2004 - 12:31 | Informe spam

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:
Mostrar la cita
Subject:="Envío
Mostrar la cita

Responder a este mensaje

#2 Vicente

23/11/2004 - 13:33 | Informe spam

Gracias de antemano, pero como puedo darle el nombre del archivo el valor de
una celda de la hoja??.

Gracias

"Lao_España" escribió:

Mostrar la cita

Responder a este mensaje

#3 Lao_España

23/11/2004 - 13:53 | Informe spam

Vicente tendrías que añadir la siguiente línea.

Quitar:
NombreFichero = InputBox("Nombre del fichero a enviar", "Nombre Fichero")
Poner:
NombreFichero = Worksheets.Name

Creo que con esto te funcionara.

"Vicente" escribió en el mensaje
news:
Mostrar la cita
de
Mostrar la cita
la
Mostrar la cita
sistema,
Mostrar la cita
te
Mostrar la cita
Hoja")
Mostrar la cita
Fichero")
Mostrar la cita
datos
Mostrar la cita
"
Mostrar la cita