Enviar un rango por email

[Antoni]

Hola:

Parece que algunos temas aparecen regularmente por el foro a pesar que se han solucionado con anterioridad, este es uno de ellos.

A ver si hay suerte y la gente "se queda con la copla" esta vez.

Se trata de un formulario que permite enviar a una lista de destinatarios el contenido de un rango.

Se pueden asociar al envío un asunto y un texto introductorio predeterminado y modificarlos antes de enviar.

El envio se hace con el objeto .MailEnvelope.

Tan simple como:

Sub EnviarEmail(Destinatario As Variant)

With ActiveSheet.MailEnvelope

   .Introduction = Introduccion

   .Item.to = Destinatario

   .Item.Subject = Asunto

   .Item.Send

End With

End Sub

[/CODE]

¿ A que no parece tan complicado ? Pues está en la Ayuda de VBA.

Saludos.

EnviarRangoEmail.zip

[juliocesar_seapf]

hola Macro....

muy bueno tu aporte, pero no entiendo que quieres decir con MailEnvelope

agradecería tu ilustración...

[erickarciga]

Excelente!!, pero se puede programar para que se envíe el correo por Lotus Notes?

[Antoni]

Hola a todos:

JulioCesar:

Mis disculpas porqué no he visto tu pregunta hasta hoy.

Directamente de la ayuda:

[TABLE]

[TR]

[TD=align: left]WorkSheet.MailEnvelope (propiedad)[/TD]

[/TR]

[/TABLE]

Representa un encabezado de correo electrónico para un documento

.Sintaxis

expresión.MailEnvelope

expresión Variable que representa un objeto WorkSheet.

En este ejemplo se establecen los comentarios del encabezado de la hoja de cálculo activa.

[COLOR=#008000][TABLE]

[TR]

[TD]Sub HeaderComments()

   ActiveSheet.MailEnvelope.Introduction = "To Whom It May Concern: "

End Sub[/TD]

[/TR]

[/TABLE]


[/COLOR][B][B][TABLE]

[TR]

[TD][/TD]

[/TR]

[/TABLE]


[/B][/B][/CODE]

[b][color=#ff0000]Erikarciga[/color][/b]:

No tengo ni la mas remota idea.

Saludos

[Invitado luigi]

Buenas:

Erik, la pregunta que realizas nada tiene que ver con el aporte en cuestión, con lo cual deberías crear un tema nuevo.

O utilizar la opción del buscador, parte superior derecha de la página del foro y en el colocas Lotus, haces clic en buscar y te saldrán media docena de opciones, entre ellas un aporte del Máster Never, con el cual creo que solucionas tu problema.

Saludos.

[MAGOMA]

Gracias Macro por el código, lo estoy aplicando en un proyecto que tengo encaminado y agradeceré la ayuda (perdonandome la ignorancia), lo que estoy tratando de hacer es que también me tome CC en el email y poner una firma al mismo, porque cuando lo genero no lo puedo firmar antes de enviarlo.

Gracias y saludos,

magoma

[Antoni]

Hola:

Para enviar con copia, añade la línea

   .Item.CC = DestinatarioCopia[/CODE]

En cuanto a lo de firmar, ni la mas remota idea.

Saludos