Hola Colega!!!!!!!! Te dejamos el código de VBA, Solo debes copiarlo, pegarlo en tu Macro de Excel y modificar los datos y rangos de referencias: /////////////////////////////////////////// Sub Enviar_Correos() ' ThisWorkbook.Sheets("Selecciona la hoja de la Info.").Select ActiveSheet.Range("Selecciona el Rango de Inform.").Select ' X = ThisWorkbook.Sheets("Hoja").Range("Donde esta la formula CONTAR").Value For i = 1 To X ThisWorkbook.Sheets("Hoja").Range("Donde evaluaremos i").Value = i ' ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = Correo destino .Item.cc = Con Copia a.... .Item.bcc = Con copia Oculta a..... .Item.Subject = Asunbto del correo .Introduction = Introduccion del correo
.Item.Send End With Next i End Sub //////////////////////////////////////////////
Para poder ayudarte requerimos la imagen, ya que al darle "Depurar" muestra la.linea donde comienza el error y alli podemos identificar los que sucede, por favor envianos la.captura del error a nuestro Facebook facebook.com/hammyis.tutoriales.7
@@HammYisTutoriales El primer problema ya lo he resuelto, pero ahora la firma no me sale y creo que es debido a que es algo mas grande que el espacio dedicado a plantilla, pero tengo el siguiente problema no puedo modificar la firma para ajustarla, tengo que hacer otra vez la macro?, no puedo desvincularla es todo un cuerpo, no encuentro la solución, gracias
@@HammYisTutoriales Gracias, acabo de solucionarlo, pero outlook no me respeta el correo predeterminado, ahora estoy en eso, te agradezco mucho el intereses y la rapidez por tus seguidores, no es fácil que esto ocurra. Repito muchas gracias. *****
Ey! Amigo Muchísimas Gracias, no tienes idea cuanto me ayudaste, he consultado mucho este tema en TH-cam y eres quien mejor lo explica con una sintaxis tan fundamental, gracias sigue así, con mucho valor en ti y en tus vídeos. Saludos Desde Perú 02/12/2020
Hola Masajito, muchas gracias por tus palabras y nos alegra mucho saber que nuestro esfuerzo te es útil, te enviamos un abrazo desde Colombia y cuánto con nosotros para lo que necesites
Hola Masahiko, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
yo lo apliqué para un informe semanal de resultados, usé una tabla en la que coloqué nombres y correos y de ahi sustraje cada registro para que el informe muestre la informacion de cada persona y el correo se mande al destinatario correcto y sus jefes. tu codigo está muy concreto, muchas gracias
Hola Gafriy, nos alegra que te haya sido de utilidad el código y te invitamos a compartirlo con las personas que consideres que les pueda aprovechar. Gracias por tu comentario 😊👍
Hola Gafrly, te queriamos recordar que mañana se subirá una video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hermano en verdad un trabajo espléndido... felicitaciones.. Si en algún momento puedas hacer otro vídeo, podrías hacer para enviar mensajes masivos a WhatsApp utilizando excel y VBA... sería genial.. Gracias en verdad Saludos desde Perú
Estupenda Opción y mejor explicado Imposible. Oye tengo una pregunta, si quiero darle formato al cuerpo del mensaje es posible? Quiero centrar el Texto y Resaltar algunas parte del Texto, si se puede hacer?
Buenas tardes Hammer. Increible como sirve esto, regreso contantemente a ver el video. Una pregunta. Se podría agregar a esta macro la opción de agregar attachments? Una vez mas, muchas gracias
Muchas gracias por la ayuda Hammer, excelente explicación. Una pregunta. Se puede especificar el la macro desde que cuenta de correo de desea enviar (si tenemos varoas cuentas en Outlook)?. .... Intenté agregando .Item.From = "cuenta de mail" Muchas Gracias
Hola Leopoldo, nos alegra que te sea de utilidad nuestro video, en proximos videos enseñaremos como enviarlo desde correos distintos, mientras subimos el video lo que puedes hacer es vincular tus cuentas microsoft o tu outlook de escritorio y antes de correr la macro usar como Predeterminada la cuenta de la que quieres que se envien los correos.
Hola Chagolla, nos alegra que te guste nuestro contenido, te invitamos a compartirlo con quienes pueden necesitarlo ya que recuerda "El conocimiento es un tesoro que aumenta su valor cuando es compartido" Un abrazo
Hola Andres, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Luis, gracias por el comentario, el próximo video enseñaremos como adjuntar archivos, quedate muy pendiente para que no te lo pierdas, ya estamos trabajando en el
Hola Luis, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Buenas. Excelente video. Me gustaría saber si existe otra forma (pueder ser la htdml body) cuando los cuerpos del correo están condicionados a otro datos y no es la misma celda que contiene la firma, como en este caso.
Excelente video. Hay alguna forma de que no se envíen los correos de forma automática? Que se generen, para poder revisarlos? Muchas gracias, me ha sido muy útil. Felicitaciones-
Nos alegra que te sea de utilidad nuestros videos. En el siguiente video hay una forma que genera los correos pero no los envia para una revisión, quitando el comando ".Send" y usando el comando ".Display" th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola exelente viseo!! sabes si en vez de correos se pueden enviar mensages por mesennger a facebook? se podría reemplazar el link del correo por el link de mesennger? Gracias
Hola Andres, si es posible y en el siguiente video explicamos una manera de hacerlo, esperamos te sea de uyilidad: th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Todo excelente, solo que cuando le doy ejecutar, aparece un mensaje que dice microsoft esta esperando que otra aplicacion complete una accion OLE y no se envian los correos podrias apoyarme?
Hola como estas? El video lo editamos cortando parte de dilatación u otros procesos que no aportan a la esencia del video y si suman tiempo, entonces lo escribi normalmente pero se edito ese y varios puntos para reducir el tiempo del video
Muy buen video, me ayudó mucho. Estaba intentando que también insertara un archivo adjunto que de igual manera que el destinatario y el saludo con la función de buscarv pusiera la ruta del archivo a adjuntar pero me sale error, ¿cómo podría quedar de esa forma?
Hola Alejandro, nos alegra que te sea de utilidad, ahora lo que respecta a adjuntar los adjuntos aqui hay un video donde explicamos una forma de hacerlo, esperamos te ayude th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola Nicolas, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Andres, en el primer comentario esta la base del codigo, sin embargo aca te lo dejo de nuevo /////////////////////////////////////////// Sub Enviar_Correos() ' ThisWorkbook.Sheets("Selecciona la hoja de la Info.").Select ActiveSheet.Range("Selecciona el Rango de Inform.").Select ' X = ThisWorkbook.Sheets("Hoja").Range("Donde esta la formula CONTAR").Value For i = 1 To X ThisWorkbook.Sheets("Hoja").Range("Donde evaluaremos i").Value = i ' ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = Correo destino .Item.cc = Con Copia a.... .Item.bcc = Con copia Oculta a..... .Item.Subject = Asunbto del correo .Introduction = Introduccion del correo
.Item.Send End With Next i End Sub //////////////////////////////////////////////
@@HammYisTutoriales no saben como me acaba de ayudar esto para el ennvío masivo de aviso a clientes en dónde laboró, podrías indicarme como se llama el vídeo que comentas para poder darle formato, muchísimas gracias !
@@aaronbenitez6599 Hola Aron, nos alegra que te sea de utilidad, hemos subido tres video para envíos masivos usando distintos comandos, el ultimo te permite hacer este envió con adjuntos, imágenes e hipervínculos th-cam.com/video/kEXlD_r56Ws/w-d-xo.html
Hola, excelente video, alguien sabrá como puedo enviar correo masivo pero con cuerpo de correo diferente, lo que ocupo es enviar a todos los alumnos de nuevo ingreso su correo institucional.
Buenos días estimado, saludos de Perú. Tienes algún vídeo de macros donde conviertan archivos word a PDF masivamente y lo guarde con un nombre distinto cada PDF, en una ruta determinada.?. Gracias de antemano
Hola Lil, para enviarlos desde gmail tocaria por medio de GoogleSheets, sin embargo el codigo es distinto, ya que Sheets maneja un lenguaje parecido al JavaScript y no al VBA, mas adelante, en HammYis Tutoriales, enseñaremos Google sheets y la programación para la secuencia de comando
Hola Lil, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola, no tengo mucha soltura en VB, pero he seguido exactamente como tu lo has hecho y me da error en For i = 1 To X y no se solucionarlo, me podrías ayudar, gracias
Hola lorenzo, ese error se puede deber a que el valor de "X" no esta definido, sin embargo para mayor exactitud contactanos por nuestra pagina de Facebook y enviamos una captura del error y asi podremos ayudarte facebook.com/hammyis.tutoriales.7
Hola buenas tardes, me podrías por favor ayudar con esta función ActiveWorkbook.EnvelopeVisible = True , cuando le doy ejecutar me aparece que se ha producido el error 1004 en tiempo de ejecución...gracias
Hola Jenny, puede ser que la variable no este definida o que no tengas habilitado los correos, si deseas contactanos por nuestro facebook y envianos un pantallazo para poderte ayudar. m.facebook.com/hammyis.tutoriales.7
Hola Jenny, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Luis, en el siguiente video damos un ejemplo de como adjuntar archivos, solo debes cambiar la extension por ".pdf" th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola tengo una inquietud me genera error al generar los email "Subscript out of range (Error 9) que tendria que hacer para solucionar este inconveniente?
Hola Arbolar, debes verificar que el rango que escogiste no tenga alguna proteccion y este bien definido, si persiste el error contacatamos por Facebook y envianos pantallazo del error para poderte ayudar
Hola Arbolar, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Natalia, nos alegra que te hay funcionado, a continuacion te dejamos dos ejemplos para adjuntar archivos, el primero tambien podras usar hipervínculos. th-cam.com/video/kEXlD_r56Ws/w-d-xo.html th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola, Me he hecho todo lo que indicas pero me marca error con la leyenda " Run time '1004': Application - defined or object - defined error" y me señala en amarillo el Sub Enviar_correos() Me puedes ayudar por favor.
Hola Piedrola, la macro utiliza el outlook que este activo en microsoft, para cambiar la cuenta puedes hacerlos desde outlook - Archivo - Cuentas de Office- Cambiar Cuenta y antes de correr la Macro debes asegurarte que esta en sesión la cuenta que deseas
Hola Piedrola, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Gonzalo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Jairo, ese error se puede dar por no nombrar las variables, si quieres envianos un pantallazo por nuestra página de facebook y te ayudaremos facebook.com/hammyis.tutoriales.7
Hola Jairo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Pedro, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola buenas, me funciono tu macro excelente explicacion pero tengo un pequeño detalle que me gustaria adcionar y no se como seria existe algun item para modificar el DE: DE:¿ ......?-----
Hola Johann, el correo que registra como quien envia es el que es te activo con tu cuenta Microsoft, solo debes tener abierto el correo en la aplicación de escritorio al momento de ejecutar la Macro
Si lo que requieres es que con la misma macro se envie correos desde distintas cuentas, lo que se puede hacer es vincular tus cuentas Microsft y antes de ejecutar la macro en tu Outlook vayas a Archivo - cuentas Office - Cambiar Cuenta..... Y selecciones el correo que deseas como destinatario, sin embargo esto implica que debes separar el proceso de envio de acuerdo a que cuenta requieres que envie que mensaje. Estuve investigando y preguntando si habia forma de hacer ese cambio de cuenta por medio del codigo y no he obtenido una respuesta afirmativa, seguire investigando y te informare si encuentro otra forma de hacerlo
Hola Johann, te queriamos recordar que mañana se subirá una video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola Rodrigo, que error te aparece?? Por que si es por sintaxis puede ser que necesites verificar si esta en ingles se utiliza "vlookup" o en algunas versiones de excel los caracteres se seprana con coma "," y no con punto y com ";"
Hola Rodrigo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola, adicione la opción del adjunto a los Item, de esta manera: With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Datos").Range("B2").Value .Item.cc = "nal@gmail.com" .Item.bcc = "" .Item.Subject = ThisWorkbook.Sheets("Datos").Range("B3").Value .Introduction = ThisWorkbook.Sheets("Datos").Range("B4").Value .Item.Attachments.Add ThisWorkbook.Sheets("Datos").Range("B8").Value Realiza el proceso pero conforme va corriendo la macro al próximo registro, lo que hace es adicionar otro adjunto. Ejm. Al registro 3 le quedan los adjuntos del 1er, 2do y 3er registro Ayuda por fa
Segun veo a todos los correos le estas adjuntando el archivo en la celda "B8" si en la parte superior ya definiste la "Ufila" debes poner el rango asi "Range("B" & Ufila).Value"
@@HammYisTutoriales Hola ensaye esta opcion pero no funciona. Lo que necesito es que luego de enviar cada correo con su correspondiente adjunto el item de adjunto vuelva a quedar vacio para el siguiente envio y asi sucesivamente. Gracias por tu disposición para ayudarme 😊
Bro queria preguntale a ver si ud me puede hacer la ayuda, sera que se puede poner automaticamente ( , ) COMAS para separar los correros masivos, osea para que los correos que tenga una coma separada automaticamente, esque aveces tengo 800 emails los cuales debo de separar con una coma uno por uno para que me reconozca los correos en la plataforma que uso para enviar correos....
Hola Marlion, como estas? Lo mas efectivo seria verificar que patron de separacion tienen (si esta separado por espacio, o por punto y coma o por guion, etc) una vez identificado el patron seleccionar los datos y reemplazar (con el comando CTRL + L) por coma o el caracter que requieras.
Hola Colega!!!!!!!!
Te dejamos el código de VBA, Solo debes copiarlo, pegarlo en tu Macro de Excel y modificar los datos y rangos de referencias:
///////////////////////////////////////////
Sub Enviar_Correos()
'
ThisWorkbook.Sheets("Selecciona la hoja de la Info.").Select
ActiveSheet.Range("Selecciona el Rango de Inform.").Select
'
X = ThisWorkbook.Sheets("Hoja").Range("Donde esta la formula CONTAR").Value
For i = 1 To X
ThisWorkbook.Sheets("Hoja").Range("Donde evaluaremos i").Value = i
'
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Correo destino
.Item.cc = Con Copia a....
.Item.bcc = Con copia Oculta a.....
.Item.Subject = Asunbto del correo
.Introduction = Introduccion del correo
.Item.Send
End With
Next i
End Sub
//////////////////////////////////////////////
Me sigue dando el mismo error "For i = 1 Yo X"
Para poder ayudarte requerimos la imagen, ya que al darle "Depurar" muestra la.linea donde comienza el error y alli podemos identificar los que sucede, por favor envianos la.captura del error a nuestro Facebook
facebook.com/hammyis.tutoriales.7
@@HammYisTutoriales El primer problema ya lo he resuelto, pero ahora la firma no me sale y creo que es debido a que es algo mas grande que el espacio dedicado a plantilla, pero tengo el siguiente problema no puedo modificar la firma para ajustarla, tengo que hacer otra vez la macro?, no puedo desvincularla es todo un cuerpo, no encuentro la solución, gracias
Hola Lorenzo, si no puedes modificar el tamaño de la firma puedes modificar, en el codigo, el Rango seleccionado a enviar
@@HammYisTutoriales Gracias, acabo de solucionarlo, pero outlook no me respeta el correo predeterminado, ahora estoy en eso, te agradezco mucho el intereses y la rapidez por tus seguidores, no es fácil que esto ocurra. Repito muchas gracias.
*****
Ey! Amigo Muchísimas Gracias, no tienes idea cuanto me ayudaste, he consultado mucho este tema en TH-cam y eres quien mejor lo explica con una sintaxis tan fundamental, gracias sigue así, con mucho valor en ti y en tus vídeos. Saludos Desde Perú 02/12/2020
Hola Masajito, muchas gracias por tus palabras y nos alegra mucho saber que nuestro esfuerzo te es útil, te enviamos un abrazo desde Colombia y cuánto con nosotros para lo que necesites
Hola Masahiko, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
yo lo apliqué para un informe semanal de resultados, usé una tabla en la que coloqué nombres y correos y de ahi sustraje cada registro para que el informe muestre la informacion de cada persona y el correo se mande al destinatario correcto y sus jefes.
tu codigo está muy concreto, muchas gracias
Hola Gafriy, nos alegra que te haya sido de utilidad el código y te invitamos a compartirlo con las personas que consideres que les pueda aprovechar. Gracias por tu comentario 😊👍
Hola Gafrly, te queriamos recordar que mañana se subirá una video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Parcero, me salvó el puesto, bacana!! Muchas gracias.
excelente, al grano y practico
maravilloso! tienen nuevo suscriptor! gracias..
Wow, lo voy a practicar!!!!
Hermano en verdad un trabajo espléndido... felicitaciones..
Si en algún momento puedas hacer otro vídeo, podrías hacer para enviar mensajes masivos a WhatsApp utilizando excel y VBA... sería genial..
Gracias en verdad
Saludos desde Perú
Hola Adan, nos alegra mucho que te sea de utilidad nuestros videos, es una gran idea, suscribete a nuestro canal para que NO te lo pierdas
muchas gracias, me ahorraste mucho tiempo
Hola Karen, nos alegra que te sea de utilidad los videos, recuerda compartirlo para que pueda ayudar a mas gente, un abrazo
Estupenda Opción y mejor explicado Imposible. Oye tengo una pregunta, si quiero darle formato al cuerpo del mensaje es posible? Quiero centrar el Texto y Resaltar algunas parte del Texto, si se puede hacer?
Buenas tardes Hammer.
Increible como sirve esto, regreso contantemente a ver el video.
Una pregunta.
Se podría agregar a esta macro la opción de agregar attachments?
Una vez mas, muchas gracias
Hola puedes consultarlo con nuestro experto en Macros al número+57 3122399699. 😊
Muchas gracias por la ayuda Hammer, excelente explicación.
Una pregunta. Se puede especificar el la macro desde que cuenta de correo de desea enviar (si tenemos varoas cuentas en Outlook)?.
.... Intenté agregando .Item.From = "cuenta de mail"
Muchas Gracias
Hola Leopoldo, nos alegra que te sea de utilidad nuestro video, en proximos videos enseñaremos como enviarlo desde correos distintos, mientras subimos el video lo que puedes hacer es vincular tus cuentas microsoft o tu outlook de escritorio y antes de correr la macro usar como Predeterminada la cuenta de la que quieres que se envien los correos.
@@HammYisTutoriales Excelente, Thanks.
EXELENTE TRABAJO
Hola Chagolla, nos alegra que te guste nuestro contenido, te invitamos a compartirlo con quienes pueden necesitarlo ya que recuerda "El conocimiento es un tesoro que aumenta su valor cuando es compartido"
Un abrazo
Muy útil la info
Excelente, me funcionó
Hola Andrés, nos encanta que te haya servido. No olvides pasarte por nuestro canal para más vídeos 😉
Hola Andres, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Muchas gracias y muy útil la explicación, me gustaría saber cómo agregar adjuntos
Hola Luis, gracias por el comentario, el próximo video enseñaremos como adjuntar archivos, quedate muy pendiente para que no te lo pierdas, ya estamos trabajando en el
@@HammYisTutoriales muchas gracias, estaré muy pendiente
Hola Luis, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Buenas.
Excelente video.
Me gustaría saber si existe otra forma (pueder ser la htdml body) cuando los cuerpos del correo están condicionados a otro datos y no es la misma celda que contiene la firma, como en este caso.
Buen dia, tenemos un video que esperamos te sea de utilidad y aclare tu duda
th-cam.com/video/kEXlD_r56Ws/w-d-xo.html
excelente video..1!! tienes otro tutorial donde podamos aprender como enviar archivos ajuntos de forma masiva con los correos?
Hola jose, nos alegra que te haya gustado.
En el siguiente video te podremos ayudar con lo que requieres.
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Ya los extrañaba !!
Nosotros a uds
Excelente video. Hay alguna forma de que no se envíen los correos de forma automática? Que se generen, para poder revisarlos? Muchas gracias, me ha sido muy útil.
Felicitaciones-
Nos alegra que te sea de utilidad nuestros videos.
En el siguiente video hay una forma que genera los correos pero no los envia para una revisión, quitando el comando ".Send" y usando el comando ".Display"
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Excelente la macro, pero como se puede con esta misma macro, adjuntar archivos diferentes a cada correo enviado....
Gracias
Hola exelente viseo!! sabes si en vez de correos se pueden enviar mensages por mesennger a facebook? se podría reemplazar el link del correo por el link de mesennger? Gracias
Gran video, como se debe hacer para enviar pero a través de Gmail
Hola, Buen video. Es posible agregar un documento adjunto, diferente para cada contacto?
Hola Andres, si es posible y en el siguiente video explicamos una manera de hacerlo, esperamos te sea de uyilidad:
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Todo excelente, solo que cuando le doy ejecutar, aparece un mensaje que dice microsoft esta esperando que otra aplicacion complete una accion OLE y no se envian los correos podrias apoyarme?
Hola, como pegaste tan rapido el "MailEnvelope"? Saludos
Hola como estas?
El video lo editamos cortando parte de dilatación u otros procesos que no aportan a la esencia del video y si suman tiempo, entonces lo escribi normalmente pero se edito ese y varios puntos para reducir el tiempo del video
Muy buen video, me ayudó mucho. Estaba intentando que también insertara un archivo adjunto que de igual manera que el destinatario y el saludo con la función de buscarv pusiera la ruta del archivo a adjuntar pero me sale error, ¿cómo podría quedar de esa forma?
Hola Alejandro, nos alegra que te sea de utilidad, ahora lo que respecta a adjuntar los adjuntos aqui hay un video donde explicamos una forma de hacerlo, esperamos te ayude
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Estimados, muy buen video, consulta, como seria para agregar un archivo adjunto?
Hola Nicolas, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Que hago si en este mismo proyecto quiero agregar pdfs ??
Buen día sus videos me son muy útiles, será posible que me pasen la plantilla de código ?
Hola Andres, en el primer comentario esta la base del codigo, sin embargo aca te lo dejo de nuevo
///////////////////////////////////////////
Sub Enviar_Correos()
'
ThisWorkbook.Sheets("Selecciona la hoja de la Info.").Select
ActiveSheet.Range("Selecciona el Rango de Inform.").Select
'
X = ThisWorkbook.Sheets("Hoja").Range("Donde esta la formula CONTAR").Value
For i = 1 To X
ThisWorkbook.Sheets("Hoja").Range("Donde evaluaremos i").Value = i
'
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Correo destino
.Item.cc = Con Copia a....
.Item.bcc = Con copia Oculta a.....
.Item.Subject = Asunbto del correo
.Introduction = Introduccion del correo
.Item.Send
End With
Next i
End Sub
//////////////////////////////////////////////
Hola. Que buen video. Tengo dos dudas: (1) ¿Puedo agregar formatos (como negrilla, palabras resaltadas, viñetas y demás) al cuerpo del correo?. (2) ¿Cómo puedo agregar documentos adjuntos?
Hola William, en el ultimo video enseñamos como adjuntar archivos y el formato y fuente de texto se puede realizar por medio del "HTML BODY"
@@HammYisTutoriales no saben como me acaba de ayudar esto para el ennvío masivo de aviso a clientes en dónde laboró, podrías indicarme como se llama el vídeo que comentas para poder darle formato, muchísimas gracias !
@@aaronbenitez6599 Hola Aron, nos alegra que te sea de utilidad, hemos subido tres video para envíos masivos usando distintos comandos, el ultimo te permite hacer este envió con adjuntos, imágenes e hipervínculos
th-cam.com/video/kEXlD_r56Ws/w-d-xo.html
Hola William, en el ultimo video te explicamos como usar el lenguaje HTML para tus correos masivos
th-cam.com/video/kEXlD_r56Ws/w-d-xo.html
Muy interesante el video me puede regalar la plantilla de envio de correos milgracias
Hola, excelente video, alguien sabrá como puedo enviar correo masivo pero con cuerpo de correo diferente, lo que ocupo es enviar a todos los alumnos de nuevo ingreso su correo institucional.
Buenos días estimado, saludos de Perú. Tienes algún vídeo de macros donde conviertan archivos word a PDF masivamente y lo guarde con un nombre distinto cada PDF, en una ruta determinada.?. Gracias de antemano
Hola Tony, por el momento no lo tenemos, pero es una EXCELente idea, suscribete a nuestro y queda muy pendiente por que lo haremos
Hola y cómo sería si se quisiera enviar desde GMAIL? sería a través de Google Sheets con el mismo código o habría una variación?
Hola Lil, para enviarlos desde gmail tocaria por medio de GoogleSheets, sin embargo el codigo es distinto, ya que Sheets maneja un lenguaje parecido al JavaScript y no al VBA, mas adelante, en HammYis Tutoriales, enseñaremos Google sheets y la programación para la secuencia de comando
Hola Lil, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola, como agregas en esta macro un archivo pdf, intente agregar la macro de tu otro video pero no puedo hacerlo, me puedes ayudar porfavor
Hola, no tengo mucha soltura en VB, pero he seguido exactamente como tu lo has hecho y me da error en For i = 1 To X y no se solucionarlo, me podrías ayudar, gracias
Hola lorenzo, ese error se puede deber a que el valor de "X" no esta definido, sin embargo para mayor exactitud contactanos por nuestra pagina de Facebook y enviamos una captura del error y asi podremos ayudarte
facebook.com/hammyis.tutoriales.7
Hola buenas tardes, me podrías por favor ayudar con esta función ActiveWorkbook.EnvelopeVisible = True , cuando le doy ejecutar me aparece que se ha producido el error 1004 en tiempo de ejecución...gracias
Hola Jenny, puede ser que la variable no este definida o que no tengas habilitado los correos, si deseas contactanos por nuestro facebook y envianos un pantallazo para poderte ayudar.
m.facebook.com/hammyis.tutoriales.7
Hola Jenny, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola, me pasa lo mismo. Sigo sin poder solucionarlo, alguna idea ? Saludos !
Como adjuntar un portafolio pdf?
Hola Luis, en el siguiente video damos un ejemplo de como adjuntar archivos, solo debes cambiar la extension por ".pdf"
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola tengo una inquietud me genera error al generar los email "Subscript out of range (Error 9) que tendria que hacer para solucionar este inconveniente?
Hola Arbolar, debes verificar que el rango que escogiste no
tenga alguna proteccion y este bien definido, si persiste el error contacatamos por Facebook y envianos pantallazo del error para poderte ayudar
Hola Arbolar, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Como le hago para enviarlo desde gmail?
Hola, ejecuto esta macro y me funciona perfecta.
Alguien me puede ayudar adcionar un adjunto pdf
Hola Natalia, nos alegra que te hay funcionado, a continuacion te dejamos dos ejemplos para adjuntar archivos, el primero tambien podras usar hipervínculos.
th-cam.com/video/kEXlD_r56Ws/w-d-xo.html
th-cam.com/video/_hGtaTD_UaA/w-d-xo.html
Hola,
Me he hecho todo lo que indicas pero me marca error con la leyenda " Run time '1004': Application - defined or object - defined error" y me señala en amarillo el Sub Enviar_correos()
Me puedes ayudar por favor.
Cómo puedo cambiar la cuenta de outlook predeterminada desde la que enviar el mail?
Gracias
Hola Piedrola, la macro utiliza el outlook que este activo en microsoft, para cambiar la cuenta puedes hacerlos desde outlook - Archivo - Cuentas de Office- Cambiar Cuenta y antes de correr la Macro debes asegurarte que esta en sesión la cuenta que deseas
Hola Piedrola, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola. No puedo ingresar la firma. En que me puedo estar equivocando?
Debes verificar que la imagen este dentro del rango seleccionado
Sub CORREO()
ThisWorkbook.Sheets("CORREO").Select
ActiveSheet.Range("D3:D4").Select
Set dam = CreateObject("outlook.application").CreateItem(0)
dam.To = "gonzalo@hotmail.com.com"
dam.Subject = "Producto nuevo"
dam.Display
'
' Dam.Send
End Sub
////// puede ser?
Intenta con el rango:. "ActiveSheet.Range("D3:D8").Select". Y pones la imagen de la firma digital dentro del Rango
Hola Gonzalo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Hola!
Ayuda!
Me sale este error: "Error de compilación". El objeto with debe ser un tipo definido por usuario. Object o variant
Hola Jairo, ese error se puede dar por no nombrar las variables, si quieres envianos un pantallazo por nuestra página de facebook y te ayudaremos
facebook.com/hammyis.tutoriales.7
@@HammYisTutoriales Ya les escribí! Espero puedan responderme pronto y mil gracias de antemano.
Hola Jairo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
Unos capos! ¿cómo se puede adjuntar archivos: PDF, doc, etc?
Hola Pedro, con excel todo se puede, el próximo video enseñaré como adjuntar archivos en el correo, debes estar atento.
@@HammYisTutoriales genial, estaré a la espera
Hola Pedro, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
@@HammYisTutoriales genial. Estaré atento
Hola buenas, me funciono tu macro excelente explicacion pero tengo un pequeño detalle que me gustaria adcionar y no se como seria existe algun item para modificar el DE:
DE:¿ ......?-----
Hola Johann, el correo que registra como quien envia es el que es te activo con tu cuenta Microsoft, solo debes tener abierto el correo en la aplicación de escritorio al momento de ejecutar la Macro
@@HammYisTutoriales ósea si activo desde un buzón crees que se pueda enviar con el correo de buzón
Si tuvieras un item para complementar la macro como otro correo del de que inicia será perfecto
Si lo que requieres es que con la misma macro se envie correos desde distintas cuentas, lo que se puede hacer es vincular tus cuentas Microsft y antes de ejecutar la macro en tu Outlook vayas a Archivo - cuentas Office - Cambiar Cuenta..... Y selecciones el correo que deseas como destinatario, sin embargo esto implica que debes separar el proceso de envio de acuerdo a que cuenta requieres que envie que mensaje. Estuve investigando y preguntando si habia forma de hacer ese cambio de cuenta por medio del codigo y no he obtenido una respuesta afirmativa, seguire investigando y te informare si encuentro otra forma de hacerlo
Hola Johann, te queriamos recordar que mañana se subirá una video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
AYUDA NO ME SIRVE EL mandar la imagen, les llega como codigo no como imagen
Hola Rodrigo, que error te aparece?? Por que si es por sintaxis puede ser que necesites verificar si esta en ingles se utiliza "vlookup" o en algunas versiones de excel los caracteres se seprana con coma "," y no con punto y com ";"
Hola Rodrigo, te queriamos recordar que mañana se subirá un video que complementa este, en el cual te enseñaremos a adjuntar archivos en los correos Masivos, no te lo pierdas
:O
Hola, adicione la opción del adjunto a los Item, de esta manera:
With ActiveSheet.MailEnvelope
.Item.To = ThisWorkbook.Sheets("Datos").Range("B2").Value
.Item.cc = "nal@gmail.com"
.Item.bcc = ""
.Item.Subject = ThisWorkbook.Sheets("Datos").Range("B3").Value
.Introduction = ThisWorkbook.Sheets("Datos").Range("B4").Value
.Item.Attachments.Add ThisWorkbook.Sheets("Datos").Range("B8").Value
Realiza el proceso pero conforme va corriendo la macro al próximo registro, lo que hace es adicionar otro adjunto.
Ejm. Al registro 3 le quedan los adjuntos del 1er, 2do y 3er registro
Ayuda por fa
Segun veo a todos los correos le estas adjuntando el archivo en la celda "B8" si en la parte superior ya definiste la "Ufila" debes poner el rango asi "Range("B" & Ufila).Value"
@@HammYisTutoriales Hola ensaye esta opcion pero no funciona.
Lo que necesito es que luego de enviar cada correo con su correspondiente adjunto el item de adjunto vuelva a quedar vacio para el siguiente envio y asi sucesivamente.
Gracias por tu disposición para ayudarme 😊
Hola natalie, escribenos al wp +573122399699 y vemos tu vaso puntual
@@8912naty si pudiero resolverte la duda para solucionar tambien este inconveniente
@@elizabethgoez6703 Hola, no fue posible y no volvi a tener contacto con la persona.
Si alguien tiene la solucion por fa nos ayudan
Bro queria preguntale a ver si ud me puede hacer la ayuda, sera que se puede poner automaticamente ( , ) COMAS para separar los correros masivos, osea para que los correos que tenga una coma separada automaticamente, esque aveces tengo 800 emails los cuales debo de separar con una coma uno por uno para que me reconozca los correos en la plataforma que uso para enviar correos....
Hola Marlion, como estas? Lo mas efectivo seria verificar que patron de separacion tienen (si esta separado por espacio, o por punto y coma o por guion, etc) una vez identificado el patron seleccionar los datos y reemplazar (con el comando CTRL + L) por coma o el caracter que requieras.