Enviar correos electronicos desde hoja excel

Solo consultas sobre el nuevo Excel 2.007

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Re: Enviar correos electronicos desde hoja excel

Notapor salmeroj » 03 Mar 2010 09:12

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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salmeroj
Miembro Frecuente
Miembro Frecuente
 
Registrado: 05 Feb 2010 12:57

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 03 Mar 2010 13:16

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor salmeroj » 03 Mar 2010 13:22

Gracias Antoni. Tomo nota.
Un saludo
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
salmeroj
Miembro Frecuente
Miembro Frecuente
 
Registrado: 05 Feb 2010 12:57

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 10 Abr 2010 00:13

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 :oops:
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 10 Abr 2010 04:41

Hola:

Sube el archivo por favor (.xls).

Salu2. Antoni.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 10 Abr 2010 21:49

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 11 Abr 2010 12:18

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
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 11 Abr 2010 14:26

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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 13 Abr 2010 00:19

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 14 Abr 2010 03:42

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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 20 Abr 2010 22:26

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...
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 21 Abr 2010 04:02

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.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor silvertop » 21 Abr 2010 23:36

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
silvertop
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Abr 2010 23:43

Re: Enviar correos electronicos desde hoja excel

Notapor Antoni » 22 Abr 2010 05:00

Hola:

Muchas gracias. Me lo miraré detenidamente.

Salu2. Antoni.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Enviar correos electronicos desde hoja excel

Notapor xpelos » 24 Abr 2010 19:59

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.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
xpelos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Ene 2006 12:39

AnteriorSiguiente

Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Excel 2.007

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado