Si os ha gustado este vídeo podéis ver más en el Curso de Excel experto cutt.ly/pjRGyKh Para poder desarrollar es esta macro es aconsejable/imprescindible, haber entendido la primera parte del vídeo que es esta: kzitem.info/news/bejne/la6QvZ9vsJmaZX4 La macro utilizada en este vídeo es esta: -------------- Sub enviarmail() 'Aprendiz de Excel 'kzitem.info Dim App As Object Dim Mail As Object Sheets("Mails").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") App.Session.logon Set Mail = App.CreateItem(0) On Error Resume Next RutaImagen = "C:\Excel\KZitem.png" With Mail .To = Range("A" & i).Value .CC = Range("B" & i).Value .BCC = Range("C" & i).Value .Subject = Range("D" & i).Value '.Body = Range("E" & i).Value .HTMLBody = "" & Range("E" & i).Value & "" & _ "" & "Aprendiz de Excel" & "" & _ "" & "Calle no quiero acordarme" & "" & _ "KZitem Aprendiz" & _ "" .Attachments.Add RutaImagen .Attachments.Add Range("F" & i).Value '.Send .display End With Set Mail = Nothing 'Set App = Notinhg Next End Sub -------------
@marisolguadaluperodriguezl5291
8 ай бұрын
No me salió, algo estuvo mal 😢
@danieloteman7
Жыл бұрын
joder, es que cuando encuentras este tipo de contenido en el que hacen las cosas. faciles, concisas y sin rodeos parece que encuentres agua en el desierto. Gracias crack!
@AprendizdeExcel
Жыл бұрын
😅 Gracias!
@mariahernandezvicente3269
Жыл бұрын
Muchísima gracias, con tus tutoriales he aprendido a hacer una macro con envío de correos junto con su correspondiente firma e imagen .
@AprendizdeExcel
Жыл бұрын
Genial! Felicidades! Gracias por comentarlo 😉
@gyss83
Жыл бұрын
¡ERES UNA EMINENCIA EXPLICANDO!. Muchas gracias, me ayudo a simplificar un proceso de un sistema a este archivo. Ya me suscribí y di like a varios videos tuyos. Saludos desde México.
@AprendizdeExcel
Жыл бұрын
Gracias!! Salu2
@Gugator
2 жыл бұрын
Felicitaciones, se aprende harto contigo.
@AprendizdeExcel
2 жыл бұрын
Gracias, me alegro poder aportar algo 😉
@gynnaperez9109
2 жыл бұрын
Me has salvado la vida 💛 ...muchas gracias por compartir tus conocimientos 🙏🙌
@AprendizdeExcel
2 жыл бұрын
Gracias!
@fernandofelipesotoredondo6435
2 жыл бұрын
Gracias, me ha venido muy bien.
@AprendizdeExcel
2 жыл бұрын
Gracias Fernando! Me alegro que te haya funcionado Salu2
@mariahernandezvicente3269
Жыл бұрын
Pondré en practica lo que visto del tutorial, si lo consigo, habré conseguido un trabajo.
@AprendizdeExcel
Жыл бұрын
💪
@ludok1959
9 ай бұрын
Hola Iván, me ha gustado bastante. Gracias
@AlexSan1302
10 ай бұрын
Buenas espero que te encuentres bien, han sido de gran ayuda tus videos, lo que no me queda claro es como enviar una imagen diferente para cada correo. Agradeceria mucho tu ayuda.
@carlitosca7697
Жыл бұрын
Gracias por enseñarnos, duda crees poderme ayudar a cómo poner una imagen en el cuerpo de correo en vez de que sea adjuntada. Por favor
@jose9348
5 ай бұрын
Excelente video. Gracias por divulgar y compartir tu conocimiento. Apuntar que si los ficheros .pdf están firmados con certificado digital, no se adjuntan firmados, ¿tiene solución esto?.
@amyroamyro8344
Жыл бұрын
gracias por el aporte
@jesusglz640
Жыл бұрын
Buen material!!! Gracias
@miguelnefergarciagonzalez3784
Жыл бұрын
Perfecto me ha servido mucho , muchas gracias solo una consulta haya manera de que enmarque fecha hora exacta de envío de cada correo y si es posible enlazar cómo se hace con Google sheet para validar si fue leído o no.
@ramonberoes3150
2 жыл бұрын
Muchas gracias @Aprendiz de Excel!!! Excelente video, una consulta desde Gmail se puede agregar imágenes y firma? pq acá usas Outlook y en tu video de Gmail solo manejas adjuntos. Y me interesa usar el Gmail pero cargando imágenes y firma.
@AprendizdeExcel
2 жыл бұрын
Hola Ramón, Gmail da problemas a la hora de subir imágenes. La solución podría estar en subir previamente la imagen a un servidor público y adjuntar la url de esta. Podría ser con un código similar a este: En un código HTMLBody con formatos sería algo así: .HTMLBody = "" & "" & Range("E" & i).Value & "" & _ "" & "Aprendiz de Excel" & "" & _ "" & "Calle Desengaño 23" & " " & _ "KZitem Aprendiz" & ""
@marceloaccari4166
Жыл бұрын
Muy buena estructura para la explicación de tus videos, felicitaciones por eso. Si quisiera mandar mails desde el correo de GMail conoces algún camino? la empresa donde trabajo cambio la salida de correos por Gmail.
@AprendizdeExcel
Жыл бұрын
Gracias! Si, hicimos una serie de vídeos también para Gmail: kzitem.info/news/bejne/po6Qtn-hfnigfIY
@yareverdeciasilveira8007
2 жыл бұрын
Gracias por compartir me encantó el video y su explicación. Eres lo máximo. Una consulta en el cuerpo del correo necesito poner un mensaje extenso pero no me deja poner más de 250 caracteres, como puedo resolverlo?
@AprendizdeExcel
2 жыл бұрын
Hola Yaré, imagino que el límite estará en 255 caracteres. Puedes probar a dividir la celda en varias celdas y luego concatenarlas en el código
@JuCeVega
4 ай бұрын
Excelente video. Una consulta, si el Body tiene más de un párrafo ¿Como se realizaría? Puesto que al aplicar el "HTMI.Body" según el video como resultado tengo un solo párrafo en el Body.
@alvaroalvarez2858
Жыл бұрын
Magnifico video, mas me gustaria que pudieras agregar que se envien en automatico cada 8 segundos, o mas para evitar que se detecten como spam
@AprendizdeExcel
Жыл бұрын
Application.Wait Te dejo un vídeo en el que se usa: kzitem.info/news/bejne/1Yh6sHWihaKeoW0
@stephanieposada
3 ай бұрын
Oye que buen video, solo que el enlace para ver lo de la macro, ya no está disponible. ¿Puedes compartirlo otra vez?
@BMOCA.
2 жыл бұрын
Excelente video, sabes como hacer que al momento que se envía el correo lo haga con la firma ya guardada de outlook?
@AprendizdeExcel
2 жыл бұрын
No, por eso este vídeo
@rubenchacin9748
11 ай бұрын
Hola! excelente aporte. 👏 tengo una duda. ¿Cómo puedo personalizar el saludo a cada destinatario en particular? es decir, que en Body la primera linea sea un saludo que diga algo como: Hola! estimado ("Nombre de la Persona asociada a la dirección del e-mail"). Buenas xxxxxxx... después que venga el Body..
@jesustorrescalderon2486
Жыл бұрын
Muchas gracias muy buen material, oye una consulta existe la forma para que al momento de generar el cuerpo del correo, cierta información la enliste con viñetas?
@jorgepilozo2694
Жыл бұрын
Excelente video me ayudó mucho. Una consulta adicional se puede enviar varios adjuntos detallados en una sola columna?
@AprendizdeExcel
Жыл бұрын
¿No es más cómodo en dos columnas? Por lo de exportar datos de forma masiva. ¿Has probado separando con ";"? La verdad que no lo he probado nunca, siempre separo en varis columnas
@jorgepilozo5669
Жыл бұрын
@@AprendizdeExcel Hay clientes que quieren que en un solo correo se adjunten todos los estados de cuenta para no recibir un correo por cada estado de cuenta. He probado con "," y ";" y me sale el mensaje de : "Se ha producido un error '-214704773(8007007b)' en tiempo de ejecucion: El nombre del archivo, el nombre del directorio o la sintaxis de la etiqueta del volumen no son correctos
@AprendizdeExcel
Жыл бұрын
Pero no mandas varios correos. Son distintas columnas para poner adjuntos, no distintas filas (con los que mandarías distintos mails) Pones tantas columnas como posibles adjuntos pueda tener cada uno. Algo así: .Attachments.Add Range("F" & i).Value .Attachments.Add Range("G" & i).Value
@davidparra6022
2 жыл бұрын
Hola, excelentes videos, duda, que tengo que modificar o como escribo los correos para un mismo mail mandarlo a varios destinatarios, no solo uno
@AprendizdeExcel
2 жыл бұрын
Hola David, entiendo que quieres mandar el mismo mail a toda la lista, no que tienes un mail específico para grupos de destinatarios. Si fuera lo segundo habría que ver qué patrón de repetición tienes. La forma albañil de hacerlo sería copiar las mismas columnas en todos los mails Más elegante sería vincular asunto, cuerpos y adjuntos a una fila concreta. El bucle repite esta estructura: .To = Range("A" & i).Value .CC = Range("B" & i).Value .BCC = Range("C" & i).Value .Subject = Range("D" & i).Value .HTMLBody = "" & Range("E" & i).Value & "" & _.... .Attachments.Add Range("F" & i).Value En tu caso quieres que asunto, cuerpos y adjuntos esté fijo. Supongamos en la fila 2. Pues yo haría algo así: .To = Range("A" & i).Value .CC = Range("B" & i).Value .BCC = Range("C" & i).Value .Subject = Range("D2").Value .HTMLBody = "" & Range("2").Value & "" & _.... .Attachments.Add Range("F2").Value
@ZcDNA
2 жыл бұрын
Hola, muchas gracias por el video, muy preciso y fácil de entender, igualmente quería pedir ayuda extra. como tendría que realizar el código del cuerpo del correo para ingresar información obtenida de una tabla dinámica que varia su rango en base al destinatario? muchas gracias saludos
@AprendizdeExcel
2 жыл бұрын
Diego, te intento subo un vídeo, que será más sencillo
@AprendizdeExcel
2 жыл бұрын
Diego, lo subí el lunes: kzitem.info/news/bejne/w46etqyis4B8hYY
@leidyolave5056
Жыл бұрын
Buen día, nos podrías enseñar como colocar una imagen en el cuerpo del correo ya que no entendi la última parte del video, gracias
@AprendizdeExcel
Жыл бұрын
Puedes echar un vistazo al tercer video de la serie por si te ayuda: kzitem.info/news/bejne/w46etqyis4B8hYY
@santiagohidalgo6216
2 жыл бұрын
Hola! de verdad muchas gracias, ha sido súper claro todo, nada más tengo una duda. En el video hablas de que sería fácil poder insertar dentro del correo una imagen diferente si es que esta cambiará dependiendo de cada destinatario (cada una con su respectiva ruta de acceso), sin embargo, no he podido lograrlo y es la única parte que me falta para terminar mi correspondencia, ¿me podrías ayudar a entender cómo se hace por favor?
@santiagohidalgo6216
2 жыл бұрын
Este es el codigo que estoy utilizando: Sub enviarmail() Dim App As Object Dim Mail As Object Sheets("Mails").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") Set Mail = App.CreateItem(0) On Error Resume Next RutaImagen = Range("C" & i).Value With Mail .To = Range("A" & i).Value .Subject = Range("B" & i).Value .HTMLBody = "" .Attachments.Add RutaImagen '.Send .display
@AprendizdeExcel
2 жыл бұрын
Insertar imágenes es puñetero. Depende del CID. Deberías poner en el CID el nombre del fichero y entiendo que tus ficheros no son RutaImagen. En mi caso era KZitem.png Con fórmulas puedes sacar el nombre del fichero y enlazarlo a otra celda que sea de la que lea el nombre. Parece complicado, pero si has llegado hasta aquí tu nivel es alto. Te dejo un vídeo para sacar el nombre del fichero con fórmulas: kzitem.info/news/bejne/25yXsoKbs6OYe6w
@santiagohidalgo6216
2 жыл бұрын
Graciaaas! ya tengo los nombres de los ficheros, lo que no logro es que estos cambien para que se vaya adjuntando la imagen correspondiente a cada uno de los destinatarios :( pero siento que estoy muy cerca
@santiagohidalgo6216
2 жыл бұрын
Así quedó el código (El fichero está en columna E del archivo) Sub enviarmail() Dim App As Object Dim Mail As Object Sheets("Mails").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") Set Mail = App.CreateItem(0) On Error Resume Next RutaImagen = Range("C" & i).Value Fichero = Range("E" & i).Value With Mail .To = Range("A" & i).Value .Subject = Range("B" & i).Value '. .HTMLBody = "" '. .Attachments.Add RutaImagen '.Send .display
@AprendizdeExcel
2 жыл бұрын
Ya casi lo tienes! Primero, importante, las macros las puedes ejecutar en el modo depuración paso por paso (F8) eso te permite ver qué hace en cada paso posicionándote por las variables una vez que han pasado. En la parte de Body: .HTMLBody = "" La palabra Fichero la tienes como un texto (va enlazada entre dobles comillas " ") Deberías separar esa parte y ponerlo como variable. Ahora mismo no puedo probar, pero quizás puedas poner algo así (o alguna variante) .HTMLBody = "" Suerte!
@Mike301171
Жыл бұрын
Muchas gracias por tan excelente video y te necesito preguntar que tengo un inconveniente Yo solo necesito adjuntar la firma y ya elimine a mi criterio lo que no me servía de código pero por mas que lo intento me dice que la ruta está mal o no existe Alguna sugerencia? 😢
@juanjoselirola5669
3 жыл бұрын
Muchas gracias Aprendiz, me podrias hacer lo mismo pero para la de gmail lo que has adjuntado es para la que tienes para outlook se puede hacer con CDO?
@AprendizdeExcel
3 жыл бұрын
Para enviar correos desde gmail echa un vistazo a este vídeo: kzitem.info/news/bejne/po6Qtn-hfnigfIY Para subir una imagen Google da problemas. La solución podría estar en subir previamente la imagen a un servidor público y adjuntar la url de esta. Podría ser con un código similar a este:
@juanjoselirola5669
3 жыл бұрын
Perdona, creo que no me expliqué bien, la macro para enviar correos de Gmail me sale perfectamente pero necesito insertar al cuerpo del correo una imagen, y la macro que tienes para eso es en outlook. Muchas gracias.
@AprendizdeExcel
3 жыл бұрын
Hola Juan, creo que si te contesté con el código de la última línea. Te lo vuelvo a poner con mayor desglose Sustituye esta línea .TextBody = Range("E" & i).Value & Range("j7").Value Por esto y adapta a tus necesidades. .HTMLBody = "" & "" & Range("E" & i).Value & "" & _ "" & "Aprendiz de Excel" & "" & _ "" & "Calle Desengaño 23" & " " & _ "KZitem Aprendiz" & "" Insisto en que antes debes subir la imagen a un servidor público Salu2
@analistademetodos4840
2 жыл бұрын
Excelente video!!. Tengo una consulta, deseo que la imagen que voy a pegar en el correo tenga el hipervinculo, es decir, que a las personas que le envie el correo al darle click a la imagen los lleve a la pagina web. Muchas gracias
@AprendizdeExcel
2 жыл бұрын
Gracias! ¿Has probado a meter el código de la imagen dentro del texto que hace hipervínculo? Algo así: .HTMLBody = "" & "" & Range("E" & i).Value & "" & _ "" & "Aprendiz de Excel" & "" & _ "" & "Calle Desengaño 23" & " " & _ "" & _ ""
@analistademetodos4840
2 жыл бұрын
@@AprendizdeExcel voy a revisar si me sirve, muchas gracias
@jonathanmartinez4883
4 ай бұрын
Como puede hacer para que la macro le envie mas de 1 adjunto
@angelortiz2917
2 ай бұрын
Hasta el momento no he podido encontrar alguna manera de enviar un hipervínculo dinámico, es decir lo que cambiaría sería lo final que es el nombre de la carpeta, esta URL la tengo en una celda de excel y la quiero meter al Body del mail, alguien sabrá alguna manera de jalar desde la celda este vinculo tomando toda la ruta? asigne variable a la celda algo así: Ruta = Range("A3").Value Dir = " Enlace a carpeta " Pero me termina cortando la liga a la mitad no jala toda la ruta
@freddygomez3479
2 жыл бұрын
Hola muchas gracias compartir su conocimiento, tengo una consulta se puede combiar body y HTMLBody a la vez .. concatenar?
@AprendizdeExcel
2 жыл бұрын
Lo normal es que te coja el último que mandes. ¿Por qué no combinas dos celdas y las metes dentro de Body o HtmlBody?
@yessyb2317
Жыл бұрын
Hola, gracias por tu video, tengo una consulta, si tengo más de un adjunto para el mismo destinatario, como los puedo agrupar en un solo correo?, para que no envie 3 correos a la misma persona
@AprendizdeExcel
Жыл бұрын
Hola Yessy, platea algo así: .Attachments.Add Range("F" & i).Value .Attachments.Add Range("G" & i).Value Puedes poner las columnas que quieras
@astrhimelrcar8940
2 жыл бұрын
Gracias por el Video, muy bueno, tengo un detalle al momento de enviar automáticamente los correo la imagen sube automáticamente al lado del archivo. cual sería el error.¿? Espero tu ayuda. Gracias :)
@AprendizdeExcel
2 жыл бұрын
Quizás tenga que ver con la ruta de la imagen que usas. ¿Cómo la llamas? ¿Cómo has ajustado esa parte del código?
@jalbjalb8
2 жыл бұрын
Hola, Muchas gracias por compartir tu conocimiento, es de mucha ayuda. Tengo un inconveniente con la imagen, cuando corre la macro en outlook me arroja error en la imagen en el cuerpo del mail y la coloca como archivo adjunto, he revisado y comparado todo el código y no veo cuál podría ser el error....
@AprendizdeExcel
2 жыл бұрын
Revisa estas dos partes del código: RutaImagen = "C:\Excel\KZitem.png" " ¿Has puesto bien tu imagen? ¿el CID está bien puesto? Hice otra versión para mandar tablas como imágenes. El concepto es similar, te lo dejo por si te ayuda a desbloquear tu problema kzitem.info/news/bejne/w46etqyis4B8hYY
@RikuNiimura
Жыл бұрын
Hola! se puede hacer esto en excel online?
@AprendizdeExcel
Жыл бұрын
Las macros en Sharepoint o en OneDrive deberás habilitarlas
@marianaroldanruarte1426
2 жыл бұрын
Hola!! muchas gracias por compartir tu conocimiento!!! Me fue muy util el video ,tengo una consulta al a hora de poner una imagen me dice "No se puede mostrar la imagen vinculada. Puede que se haya movido, cambiado de nombre o eliminado el archivo. Compruebe que el vinculo señala al archivo y ubicaciones correctos" lo hice con diferntes archivos y rutas pero me sigue apareciendo lo mismo, sabrias que estoy haciendo mal? GRACIAS
@AprendizdeExcel
2 жыл бұрын
Hola Mariana, no se exactamente lo que te ocurre. Fallos probables: -La ruta de imagen que estás pegando está incompleta, sin las comillas o si la referencias a una columna puede que apuntes a otra columna o de otra hoja. -Si la asignas a una variable pueden venir fallos derivados de ahí. Comprueba a ejecutar paso por paso con F8 -El CID debe coincidir con el nombre de tu imagen -Debes insertar el código que adjunte la imagen
@JJMtz
2 жыл бұрын
Buenas tardes tenía el mismo error al principio lo que me funcionó fue posterior a 'cid: Nombre_J.png en lugar de espacio colocar guión bajo _. Muy buen video y muchas gracias por compartir tus conocimientos saludos 👍
@rauljacintoromanillosmoren8126
2 жыл бұрын
Muy buen vídeo. Tengo una pregunta, como puedo insertar un rango de datos en el cuerpo del mensaje y que al final aparezca la firma que tengo en Outlook. Gracias.
@AprendizdeExcel
2 жыл бұрын
Hola Raúl, la firma que tienes en el correo no se como ponerla (por eso este vídeo), no tengo claro que se pueda. Para mandar tablas y rangos te recomiendo que veas la siguiente parte del serial: kzitem.info/news/bejne/w46etqyis4B8hYY
@josempacheco2201
11 ай бұрын
Hola. Donde esta el enlace para bajar la macro? Por favor
@gabrieleduardoolivera4100
3 жыл бұрын
Hola, realmente me parece muy bueno tu tutorial y práctico, solo tengo una duda. La imagen yo la quiero centrar y estuve investigando y la verdad no he podido dar con la línea justa.Me podrías mostrar cómo lo centras?
@AprendizdeExcel
3 жыл бұрын
Hola Gabriel, el código que debes meter antes de la imagen es este: Las opciones posibles son left, center, right, justify Y para que te funcione deberías cambiar la última línea del código de HTMLBody por algo así: ""
@gabrieleduardoolivera4100
3 жыл бұрын
Hola, gracias por tu respuesta, así lo hice con una instrucción div. Así me lo tomo. Le voy probando cosas. Nuevamente gracias. Abrazos
@AprendizdeExcel
3 жыл бұрын
De nada. salu2
@carlosoctaviolepe5636
2 жыл бұрын
se peude que lo que viene en el cuerpo se visualice en varias lineas? por ejemplo si el codigo lo uso sin html me respeta los saltos de linea que vienen en la celda Body = Base.Range("J" & i).Value pero si lo hago de esta otra forma no me respeta los saltos de linea de la celda .HTMLBody = "" & Range("I" & i).Value & " "
@AprendizdeExcel
2 жыл бұрын
¿Has probado los saltos de línea tal y como se comenta en la serie de vídeos?
@cathyalvarez9621
2 жыл бұрын
Hola muchas gracias! excelente video, tengo una duda, en vez de poner copia oculta (BCC) repetí CC porque me gustaría copiar a varias personas pero a la hora de ejecutar la macro solo manda a uno , que es lo que estoy haciendo mal o que debo agregar, será por el punto y coma que separa un correo de otro, no se. simplemente no lo hace. Agradezco de antemano tu respuesta y seguiré intentando con la firma =)
@AprendizdeExcel
2 жыл бұрын
¿Has probado a concatenar varias celdas?
@kellycazares6985
Жыл бұрын
a mi me funcionó copiar directo desde el correo o usando ;
@jorgepilozo5669
2 жыл бұрын
Esto se puede hacer para enviar correos masivos en gmail con firma, imágenes y adjuntos?
@AprendizdeExcel
2 жыл бұрын
Con adjuntos lo tengo grabado en este vídeo: kzitem.info/news/bejne/po6Qtn-hfnigfIY
@joshuamarquez4407
Жыл бұрын
Hola buen día, una consulta si deseo colocar más párrafos en cuerpo del correo como puedo hacerlo, porque me sale todo en una sola línea
@AprendizdeExcel
Жыл бұрын
En este mismo vídeo se explica.
@redscorpy1
Жыл бұрын
Hola. Como siempre para mi el mejor: Quiero formular una pregunta sobre voces Windows, si hay alguna manera de que se puedan escuchar las Voces en Español puesto que en el paquete pone Voz Pablo que no se escucha, Predeterminada viene Helena voz robotica,en cambio en paquetes español (Mexico) si se oye la Voz Hombre, habria alguna manera de que se pudieran oir una o ambas Voces Hombre-Mujer en Español ,en EXCEL y WORD (En Castellano) cierto es que no tengo mucho conocimiento en VBA pero espero alguna respuesta para intentar conseguirlo llevo meses y no lo consigo le agradeceria si me pudiese ayudar, un cordial saludo
@sebastianguevara6013
Жыл бұрын
Buena tarde, de casualidad sabes si es posible adjuntar carpetas comprimidas en zip?
@AprendizdeExcel
Жыл бұрын
Si, claro, en principio cualquier tipo de archivos. Los comprimidos también.
@chushg
Жыл бұрын
Hola! He seguido todos los pasos y me da error de compilación señalandome en amarillo la primera parte. Sub EnviarMails() ¿como lo puedo solucionar?
@sebastianguevara6013
Жыл бұрын
Hola, estoy tratando de realizar el proceso pero el cuerpo del texto del correo me queda en una sola línea, es decir “cordial saludo, estimado cliente este correo es para recordar el pago de sus facturas” como podría solucionar para que quede separado en diferentes renglones , líneas o párrafos, gracias 🙏🏽
@AprendizdeExcel
Жыл бұрын
¿Has probado, como se explica en los vídeos, a usar ?
@CamilaGutierrezJordan
Жыл бұрын
En mi caso no me sale la imagen cuando envio, el destinatario le sale como rota la imagen, quiero realizar lo mismo pero para Gmail
@AprendizdeExcel
Жыл бұрын
Para enviarlas con Gmail echa un vistazo a este vídeo: kzitem.info/news/bejne/pmyhyYyljYl2gW0
@jhonnygutierrez1042
2 жыл бұрын
buenas dios excelente contenido , aunque tengo un problema quiero colocar la firma en el correo ya tengo la imagen pero la coloco y sale como archivo adjunto como puedo colocarla la imagen de la firma la final del cuerpo sin agregar todo lo del html saludos
@jhonnygutierrez1042
2 жыл бұрын
buenas tardes logre colocar mi firma luego del body del correo pero me coloca el body sin formato osea los punto y aparte no los toma como estan en el archivo coloca todo en un solo parrafo si me podrias ayudar con ese solo detalle porfavor seria perfecto
@AprendizdeExcel
2 жыл бұрын
¿Has revisado la parte de colocar la firma en el 2:59 y 5:00? Si quieres un párrafo nuevo prueba
@danieldelacruz7097
2 жыл бұрын
@@jhonnygutierrez1042 puedes compartirme tu código, no me deja, me sale como archivo adjunto
@martinfernandezg
Жыл бұрын
He seguido tus pasos uno a uno pero al insertar la imagen me la agrega como archivo adjunto no me la pega en el cuerpo del mail. ¿Cual puede ser el motivo?
@AprendizdeExcel
Жыл бұрын
Suele dar problemas. ¿Puede ser el CID? ¿Qué nombre tiene tu imagen? ¿Es un nombre corto? ¿Corresponde con el que has puesto en el código? Por si te ayuda. Hicimos otro vídeo insertando una tabla. Lo mismo te da ideas: kzitem.info/news/bejne/w46etqyis4B8hYY
@emilypiedrahitaperez6040
2 жыл бұрын
Buenos días! Muchas gracias porque era lo que buscaba pero me han surgido unas varias dudas... por si me podrías ayudar.. Te lo agradecería mucho. Tengo la excel masiva de tus anteriores videos, es más creo que gracias a ese vídeo me cogieron en las prácticas, así que gracias de nuevo! Me di cuenta que configurando el outlook para que al empezar un nuevo mensaje salga siempre con un formato de letra, se envía siempre como tú quieres. Pero necesito meter una firma, pero me sale error, el HTMLBody y el Body son incompatibles? Solo se puede dar formato en HTMLBody? En HTMLBody se pueden coger rangos? Perdón si no me he explicado bien, no se me da bien programar y la verdad entiendo poco. Gracias de antemanoo! Saludos
@AprendizdeExcel
2 жыл бұрын
Hola Emily, me alegro que hayas conseguido el puesto que querías gracias a tus nuevas habilidades 😉 La pregunta tal y como la planteas es confusa. Entiendo que estás poniendo en el código Body y HTMLBody. En principio deberías usar uno de los dos nada más. Uno es texto sin formato y otro con formato. Si pones los dos códigos a la vez entra en conflicto. ¿Para qué quieres coger rangos? Eso te complica para el bucle. Concatena celdas y listo. ¿no?
@emilypiedrahitaperez6040
2 жыл бұрын
Muchas gracias por contestarme de verdad! 😊 En realidad no sé si se llaman rangos, en la macro lo pones como range.. y lo que hace es cogerte esa columna. El formato lo consigo con el outlook, si utilizo el HTMLbody tendría que programar para que me saliera el formato que quiero, sabiendo que solo con el body lo consigo? Con el body no puedo agregar fotos? Te cuento lo que necesito a ver si así me expreso mejor jaja vamos a enviar las renovaciones para los clientes del próximo año y cada uno tienes dos adjuntos, subjects diferentes y cuerpos del mensaje diferentes. Solo me faltaría agregar la firma porque conseguí ponerle el formato de la empresa con el outlook como ya comenté… y estaba pensando agregarla como imagen… pero creo que eso no es posible, con ponerla en negrita ya me valdría aunque quede menos vistoso pero no consigo hacerlo… Muchísimas gracias por intentar ayudarme! Eres un maquina!
@AprendizdeExcel
2 жыл бұрын
Hola Emily, con HTMLBody podrás darle formato, poner negrita, cursiva, tipo de letra, firma, imágenes, lo que quieras. Con Body texto sin formato. Es decir, lo que necesitas es HTMLBody. En el vídeo se dan todas las variables que necesitas.
@daykelelizondo869
2 жыл бұрын
Si el cuerpo del correo es de varias filas, cómo lo puedo agregar? Intenté poniéndolo como .TextBody = Range("I6", "I15").Value pero me da un error
@AprendizdeExcel
2 жыл бұрын
Debes concatenar los rangos. Sería algo así: .TextBody = Range("I6") & Range("I15")
@mariam4879
2 жыл бұрын
pues a mi no me sale, si le pongo el apostrofe al Body , no sale lo que habia puesto el texto que queria de cuerpo del mensaje pero me sale toda la firma con su imagen. Sin embargo copio y pego tu codigo y me da error y no me sale.
@AprendizdeExcel
2 жыл бұрын
Debes poner Body o HTMLBody, el que quieras. Si pones Body el otro no lo ejecuta ¿Qué fallo te da? ¿Has probado a quitar partes y descubrir que falla? ¿Has hecho bien la parte del cid?
@mariam4879
2 жыл бұрын
@@AprendizdeExcel Al final lo he conseguido así : .Body = Range("I" & i).Value & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ Range("M" & i).Value & vbNewLine & _ "" & vbNewLine & _ Range("N" & i).Value & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ Range("O" & i).Value & vbNewLine & _ "" & vbNewLine & _ Range("P" & i).Value Y AHORA ME FALTA QUE ME APAREZCA LA IMAGEN QUE LA HE METIDO EN EL RANGO P , en la celda de la tabla pero no me la muestra en la firma del email. :( , poniendo tu codigo el logo me aparecia como un adjunto pero no en el cuerpo.
@mariam4879
2 жыл бұрын
Lo acabo de conseguir, el truco estaba en llamarla "por su nombre" en vez de la ubicacion de la celda. Muchas gracias por tu aporte, para alguien que no tiene ni idea he ido cambiando por aqui y por alla y al final lo he conseguido, que satisfacción. Gracias, gracias, gracias. Sigue haciendo videos nos vienen genial!!!
@mariam4879
2 жыл бұрын
Pos va a ser que no, porque ahora la 1ª linea del body que es la que me interesa desaparece 🤣🤣🤣🤣
@AprendizdeExcel
2 жыл бұрын
Qué guerra te está dando!
@marialourdescastillero1573
3 жыл бұрын
Disculpe. no logro ver el codigo de la macro
@AprendizdeExcel
3 жыл бұрын
Está en el comentario fijado. Algunos caracteres no me deja incluirlos en la descripción. Te la pego por aquí: La macro utilizada en este vídeo es esta: -------------- Sub enviarmail() 'Aprendiz de Excel 'kzitem.info Dim App As Object Dim Mail As Object Sheets("Mails").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") App.Session.logon Set Mail = App.CreateItem(0) On Error Resume Next RutaImagen = "C:\Excel\KZitem.png" With Mail .To = Range("A" & i).Value .CC = Range("B" & i).Value .BCC = Range("C" & i).Value .Subject = Range("D" & i).Value '.Body = Range("E" & i).Value .HTMLBody = "" & Range("E" & i).Value & "" & _ "" & "Aprendiz de Excel" & "" & _ "" & "Calle no quiero acordarme" & "" & _ "KZitem Aprendiz" & _ "" .Attachments.Add RutaImagen .Attachments.Add Range("F" & i).Value '.Send .display End With Set Mail = Nothing 'Set App = Notinhg Next End Sub -------------
@josemariarodriguezbarrios4855
Жыл бұрын
No encuentro el link para descargar la macro
@palomomk
3 жыл бұрын
Porque me sale -el objeto no admite esta propiedad o método- ayudaaaaaaa
@AprendizdeExcel
3 жыл бұрын
¿En qué línea te marca eso?
@palomomk
3 жыл бұрын
@@AprendizdeExcel al momento de querer enviar los correos
@AprendizdeExcel
3 жыл бұрын
Enviar o abrir Outlook? Has habilitado la librería?
@palomomk
3 жыл бұрын
@@AprendizdeExcel si se habilitó, tal cual seguí los pasos
@AprendizdeExcel
3 жыл бұрын
¿Has probado a ejecutarla en la versión paso por paso para comprobar dónde te falla exactamente? ¿Has visto este vídeo y te funciona ese método (por acotar de dónde puede derivar el problema)? kzitem.info/news/bejne/la6QvZ9vsJmaZX4
@analistademetodos4840
2 жыл бұрын
Buen dia, tengo este codigo para añadir una imagen con hipervinculo pero la imagen no aparece en el correo, que puede estar pasando. Muchas gracias Sub enviarmail() Dim App As Object Dim Mail As Object Sheets("Mails").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") App.Session.logon Set Mail = App.CreateItem(0) On Error Resume Next RutaImagen = "C:\Users\usuario\Desktop\Encuesta1.png" With Mail .To = Range("A" & i).Value .CC = Range("B" & i).Value .BCC = Range("C" & i).Value .Subject = Range("D" & i).Value '.Body = Range("E" & i).Value .HTMLBody = "" & Range("E" & i).Value & "" & _ "" '.Send .display End With Set Mail = Nothing 'Set App = Notinhg Next End Sub
@AprendizdeExcel
2 жыл бұрын
Quizás el CID. ¿Has probado a poner un archivo del ordenador y ponerlo con el mismo nombre?
@analistademetodos4840
2 жыл бұрын
@@AprendizdeExcel si ya lo hice y no me aparece la imagen, solo el recuadro del tamaño y le doy click y me lleva a la pagina web
@AprendizdeExcel
2 жыл бұрын
Espera, ¿has adjuntado la imagen? Esta parte del código: .Attachments.Add RutaImagen
@analistademetodos4840
2 жыл бұрын
@@AprendizdeExcel Yo la adjunte pero me aparece un archivo descargable no la imagen con el hipervinculo
Пікірлер: 134