Foro Excel

Antoni,
Has tenido que rebir un correo mio con el archivo djunto, si lo recibes funciona todo perfectamente. Por mi parte solo darte las gracias y que sigas así.
Un apregunta, para los que nos estamos iniciando en el mundo de las macros, tu o los administradores del foro, creeis que es bueno el libro que teneis para la venta. Que me vais a decir?, de todas formas y dada la experiencia en este foro confio plenamente en las recomendaciones que me podais dar.

Un saludo a todos.

Hola Joaquín:

Pues si he recibido el e-mail, lo cual, efectivamente, es una prueba de su funcionamiento, cosa que por otro lado, me ha sido imposible de comprobar porqué a mi no me funciona, tengo un problema con Outlook y este método de envío ha dejado de funcionarme.

En lo referente al libro de macros de TodoExcel, no soy el mejor indicado para contestarte ya que no lo he visto, no obstante, pienso que una buena forma de que este foro siga en funcionamiento, es colaborar en su "mantenimiento" , y que mejor manera que adquirir alguno de los productos del foro.

Bueno, pues me alegro que todo haya ido bién.

Saludos, como siempre, desde Santiago de Compostela

Antoni

Gracias Antoni. Tomo nota.
Un saludo

Hola Experto Antoni he leido cada mensaje de tu obra maestra que justo necesitaba,
al menos algo muy similar , todo funciona ok , pero solo al seleccionar 1 correo a enviar
si selecciono mas de 1 o todos , me produce un error y solo me envia el primero
segun lo q señala la macro al depurarla el error esta en With ActiveSheet.MailEnvelope

Private Sub ENVIAR_EMAIL()
Application.ScreenUpdating = False
HMAIL.Activate
HSAL.Cells.Clear
HMAIL.Cells.Copy HSAL.Cells
Workbooks(L3).SaveCopyAs ThisWorkbook.Path & "\LOCAL " & COL.List(x, 0) & ".xls"
With ActiveSheet.MailEnvelope
'.Introduction = "Texto introductorio" & vbCrLf 'Se muestra en el cuerpo del mensaje (antes que la hoja Excel)
.Item.To = COL.List(x, 2)
.Item.Subject = COL.List(x, 0) & "-" & COL.List(x, 1)
.Item.Send 'enviamos el mail
End With
End Sub

Espero me guies en esto pq seguro solo tu lo sabes ...
gracias de antemano
Joseph

Hola:

Sube el archivo por favor (.xls).

Salu2. Antoni.

Cuentame el q hiciste funciona enviando mas de un correo a la vez al seleccionarlos , pq a mi solo me funciono el envio de solo uno , para el siguiente siempre se cae...nose si los correos deben ser diferentes, pq puse para todos los casos mi correo...
hare algunos ajustes y te subo el file
gracias por la respuesta

Antoni ahi van los archivos , como te mencione solo me funciona al enviar 1 correo , pero si selecc mas de 1 o todos se cae al envio del 2º
te estare muy muy agradecido
saludos
joseph

Hola:

Prueba sustituyendo el procedimietno ENVIAR_EMAIL por:

Código: Seleccionar todo

Private Sub ENVIAR_EMAIL()
Application.ScreenUpdating = False

HMAIL.Activate
HSAL.Cells.Clear
HMAIL.Cells.Copy HSAL.Cells

Workbooks(L3).SaveCopyAs ThisWorkbook.Path & "\LOCAL " & COL.List(x, 0) & ".xls"

ActiveWorkbook.EnvelopeVisible = True 'He añadido solamente esta línea
With ActiveSheet.MailEnvelope
'.Introduction = "Texto introductorio" & vbCrLf 'Se muestra en el cuerpo del mensaje (antes que la hoja Excel)
.Item.To = COL.List(x, 2)
.Item.Subject = COL.List(x, 0) & "-" & COL.List(x, 1)
.Item.Send 'enviamos el mail
End With
End Sub


He añadido solo la línea:

Código: Seleccionar todo

ActiveWorkbook.EnvelopeVisible = True

Te pregunte lo que te pregunte, contestale que si a todo.

Salu2. Antoni.

Antoni quedo genial te pasaste ...solo debo aceptar cada vez y los correos son enviados uno a uno ...
quiza la unica mejora seria q no me pediera aceptar y decir q si cada vez pero eso sería mucho ..como esta quedo extraoridinario ......
muchas muchas muchas gracias
joseph

Lementablemente no es posible evitar que Outlook muestre el mensaje de confirmación.

Si te es indispensable evitar ese mensaje, hay un software, creo que se llama Outlook Security, o algo parecido, que permite acceder a la seguridad de Outlook. Consulta por Internet.

Salu2. Antoni.

Antoni , encontre la solucion , se trata de un pequeño programa q se instala
y al hacerlo aparece un icono abajo a la derecha, para habilitarlo debe presionarse
haciendo click 2 veces y aparecera un visto bueno , en caso contrario aparece una
x , con esto al hacer funcionar el formulario uno no debe presionar el Si del msg
q aparece
...
Por otro lado me gustaría saber como puedo introducir un msg tipo
a los correos , cosa de q al menos vaya una descripción de lo q se envia
algo del estilo Estimado SR. .........................
se anexa la información solicitada
saluda atte.
Antoni
lo q no se es si se puede especificar diferentes nombres o tiene q ser algo generico
te dejo la duda y consulta...
seguire viendo si me resulta algo
gracias
y espero sirve el truco q anexe...

Te adjunto archivo modificado para enviar un texto introductorio en cada envio, para ello he incluido una columna mas a la hoja LOCATIONS del libro EMAIL_LOCATIONS con el nombre de "A LA ATENCION DE".

Haz una prueba y lo veras mas claro.

Por otro lado has comentado:

Antoni , encontre la solucion , se trata de un pequeño programa q se instala
y al hacerlo aparece un icono abajo a la derecha, para habilitarlo debe presionarse
haciendo click 2 veces y aparecera un visto bueno , en caso contrario aparece una
x , con esto al hacer funcionar el formulario uno no debe presionar el Si del msg
q aparece
.

¿ Podrías decirme que programa es y de donde lo has descargado ?

Salu2. Antoni.

Gracias por el dato , te dejo un link explicativo...
con el uno deja el pc enviando los correos automaticamente , aunq es mas lento
q el envio en word por correspondencia, pues ahi no aparece ningun aviso...
http://www.contextmagic.com/express-cli ... ersion.htm
me comentas q tal te parece ...
saludos

Hola:

Muchas gracias. Me lo miraré detenidamente.

Salu2. Antoni.

Hace un tiempo localicé un Add-in de Ron de Bruin que funcionaba pensando en Outlook como medio de envío. (SendmailOutlook 3.3), pero por ahora no recuerdo más. Lograba enviar una o varias hojas de cálculo de un libro a un listado de direcciones de correo electrónico.
Si buscas la página de Ron de Brun, seguramente lo encontrarás...
http://www.rondebruin.nl/addins.htm
Espero que te sirva de algo.