Mandar mediante macro una hoja por e-mail

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mí, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de cálculo. En cada hoja (cada una se llama
de
una manera diferente), en la celda "C3" está una dirección e-mail (diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no sé si es así como se
dice)
a la dirección e-mail que está en la celda "C3" de su hoja.
Y así con todas. ¿ es posible ?. Gracias y un saludo.

Imanol,

Prueba el codigo de abajo. Ojo - es posible q te salte la ventana de
seguridad de tu programa de correo para cada uno de los mensajes (60) y
tengas q pulsar Aceptar 60 veces, asi empieza con un par de hojas. Ademas
este codigo intentara enviar todas las hojas presentes en el libro, por lo
cual si tienes hojas q no quires enviar tendras q modificar el macro.

Saludos,
KL
'-Inicio Codigo-
Sub EnviarHojas()
Dim Direccion As String
Dim Tema As String
For Each s In ThisWorkbook.Worksheets
s.Copy
Direccion = s.Range("C3")
Tema = s.Name
ActiveWorkbook.SendMail Direccion, Tema, True
Next s
End Sub
'-Fin Codigo-

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mí, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de cálculo. En cada hoja (cada una se llama
de
una manera diferente), en la celda "C3" está una dirección e-mail (diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no sé si es así como se
dice)
a la dirección e-mail que está en la celda "C3" de su hoja.
Y así con todas. ¿ es posible ?. Gracias y un saludo.

x-no-archive:yes

He probado el código de abajo y me da el error:
Error de comprobación, error de sintaxis.
Lo mismo en éste que en otro código que me has mandado
para otra cosa muy importante me indica lo mismo.
Éste en concreto lo necesitaría para ayer.
Gracias y un saludo.

Imanol,

Prueba el codigo de abajo. Ojo - es posible q te salte la ventana de
seguridad de tu programa de correo para cada uno de los mensajes (60) y
tengas q pulsar Aceptar 60 veces, asi empieza con un par de hojas. Ademas
este codigo intentara enviar todas las hojas presentes en el libro, por lo
cual si tienes hojas q no quires enviar tendras q modificar el macro.

Saludos,
KL
'-Inicio Codigo-
Sub EnviarHojas()
Dim Direccion As String
Dim Tema As String
For Each s In ThisWorkbook.Worksheets
s.Copy
Direccion = s.Range("C3")
Tema = s.Name
ActiveWorkbook.SendMail Direccion, Tema, True
Next s
End Sub
'-Fin Codigo-

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mí, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de cálculo. En cada hoja (cada una se llama
de
una manera diferente), en la celda "C3" está una dirección e-mail (diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no sé si es así como se
dice)
a la dirección e-mail que está en la celda "C3" de su hoja.
Y así con todas. ¿ es posible ?. Gracias y un saludo.

Imanol,

Si es tan urgente, enviame la hoja y te lo arreglo en unos minutos.

KL

"Imanol" wrote in message
news:
x-no-archive:yes

He probado el código de abajo y me da el error:
Error de comprobación, error de sintaxis.
Lo mismo en éste que en otro código que me has mandado
para otra cosa muy importante me indica lo mismo.
Éste en concreto lo necesitaría para ayer.
Gracias y un saludo.

Imanol,

Prueba el codigo de abajo. Ojo - es posible q te salte la ventana de
seguridad de tu programa de correo para cada uno de los mensajes (60) y
tengas q pulsar Aceptar 60 veces, asi empieza con un par de hojas. Ademas
este codigo intentara enviar todas las hojas presentes en el libro, por lo
cual si tienes hojas q no quires enviar tendras q modificar el macro.

Saludos,
KL
'-Inicio Codigo-
Sub EnviarHojas()
Dim Direccion As String
Dim Tema As String
For Each s In ThisWorkbook.Worksheets
s.Copy
Direccion = s.Range("C3")
Tema = s.Name
ActiveWorkbook.SendMail Direccion, Tema, True
Next s
End Sub
'-Fin Codigo-

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mí, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de cálculo. En cada hoja (cada una se llama
de
una manera diferente), en la celda "C3" está una dirección e-mail (diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no sé si es así como se
dice)
a la dirección e-mail que está en la celda "C3" de su hoja.
Y así con todas. ¿ es posible ?. Gracias y un saludo.

KL
si te envio la hoja y la pudiste arreglar, ojala puedas compartir la
respuesta yo tambien tengo una necesidad similar

"KL" escribió:

Imanol,

Si es tan urgente, enviame la hoja y te lo arreglo en unos minutos.

KL

"Imanol" wrote in message
news:
x-no-archive:yes

He probado el código de abajo y me da el error:
Error de comprobación, error de sintaxis.
Lo mismo en éste que en otro código que me has mandado
para otra cosa muy importante me indica lo mismo.
Éste en concreto lo necesitaría para ayer.
Gracias y un saludo.

Imanol,

Prueba el codigo de abajo. Ojo - es posible q te salte la ventana de
seguridad de tu programa de correo para cada uno de los mensajes (60) y
tengas q pulsar Aceptar 60 veces, asi empieza con un par de hojas. Ademas
este codigo intentara enviar todas las hojas presentes en el libro, por lo
cual si tienes hojas q no quires enviar tendras q modificar el macro.

Saludos,
KL
'-Inicio Codigo-
Sub EnviarHojas()
Dim Direccion As String
Dim Tema As String
For Each s In ThisWorkbook.Worksheets
s.Copy
Direccion = s.Range("C3")
Tema = s.Name
ActiveWorkbook.SendMail Direccion, Tema, True
Next s
End Sub
'-Fin Codigo-

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mí, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de cálculo. En cada hoja (cada una se llama
de
una manera diferente), en la celda "C3" está una dirección e-mail (diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no sé si es así como se
dice)
a la dirección e-mail que está en la celda "C3" de su hoja.
Y así con todas. ¿ es posible ?. Gracias y un saludo.