Hola Colegas!!!! Las redes Sociales de FREYJA SEDUCTION son: FB: facebook.com/freyja.freyja.169/ IG: instagram.com/freyjaseduction_sexshop/?igshid=YmMyMTA2M2Y= WP: +57 3122399699 El Código que se ve en el video es el siguiente: Sub Correo_con_Adjuntos() Dim App As Object Dim Mail As Object Dim Correo As Workbook Dim Base As Worksheet Dim Info As Worksheet Dim Ruta As String Dim File As String Dim Extension As String Dim Adjunto As Variant For i = 2 To Sheets("base_datos").Range("A" & Rows.Count).End(xlUp).Row Set App = CreateObject("Outlook.Application") Set Mail = App.CreateItem(0) Set Correo = Workbooks(ThisWorkbook.Name) Set Base = Correo.Sheets("base_datos") Set Info = Correo.Sheets("plantilla") Ruta = "C:\Users\Usuario\Desktop\Adjuntos" File = Base.Range("D" & i).Value Extension = Base.Range("E" & i).Value Adjunto = Ruta & "\" & File & Extension With Mail .Display .To = Base.Range("C" & i).Value .CC = Base.Range("F" & i).Value .BCC = Base.Range("G" & i).Value .Subject = Base.Range("H" & i).Value .Body = Info.Range("B1").Value .HTMLBody = .HTMLBody & _ "" & _ "" & _ "" & _ "" & _ "
Muchas gracias por el tutorial. Va perfecto. De todas formas, ¿Habría alguna forma de colocar distintas imágenes en línea una detrás de otra, en lugar de debajo? Por ejemplo para poner los símbolos de las redes sociales todas en las misma fila
Muy buen video, gracias por hacerlo y compartirlo. Una consulta, que sería diferente si en el cuerpo del email quiero enviar un hipervinculo para abrir un archivo de Excel? Gracias
Buenos días, he creado la macro siguiendo tus indicaciones y me funciona todo correctamente, excepto el tema de la imagen. Si yo me lo envío a mi correo, sí que aparece la imagen correctamente, pero si lo envió a cualquier otra persona, aun dentro de la empresa, aparece un enlace roto, como que no ha encontrado dicha imagen. ¿Serías tan amable de echarme una mano con esto? muchas gracias de antemano.
Buen dia Daniel, las imagenes que llegan rotas se debe a la configuración del correo receptor, si te registra como spam o tiene parametrizado en centros de confianza No admitir correos de Macros no se vera la imagen
@@robertocarlosoriarojas2128 checa si el vínculo a las imágenes es público. Me pasaba que subía imagenes a Drive por ejemplo, y si las ponía privadas no cargaban en correos o firmas.
Buen día, una pregunta al momento de ejecutar me aparece error de sintaxis en la parte de HTML body tengo todo tal cual, solo modifique lo de la imagen
Hola Colegas!!!!
Las redes Sociales de FREYJA SEDUCTION son:
FB: facebook.com/freyja.freyja.169/
IG: instagram.com/freyjaseduction_sexshop/?igshid=YmMyMTA2M2Y=
WP: +57 3122399699
El Código que se ve en el video es el siguiente:
Sub Correo_con_Adjuntos()
Dim App As Object
Dim Mail As Object
Dim Correo As Workbook
Dim Base As Worksheet
Dim Info As Worksheet
Dim Ruta As String
Dim File As String
Dim Extension As String
Dim Adjunto As Variant
For i = 2 To Sheets("base_datos").Range("A" & Rows.Count).End(xlUp).Row
Set App = CreateObject("Outlook.Application")
Set Mail = App.CreateItem(0)
Set Correo = Workbooks(ThisWorkbook.Name)
Set Base = Correo.Sheets("base_datos")
Set Info = Correo.Sheets("plantilla")
Ruta = "C:\Users\Usuario\Desktop\Adjuntos"
File = Base.Range("D" & i).Value
Extension = Base.Range("E" & i).Value
Adjunto = Ruta & "\" & File & Extension
With Mail
.Display
.To = Base.Range("C" & i).Value
.CC = Base.Range("F" & i).Value
.BCC = Base.Range("G" & i).Value
.Subject = Base.Range("H" & i).Value
.Body = Info.Range("B1").Value
.HTMLBody = .HTMLBody & _
"" & _
"" & _
"" & _
"" & _
"
Thanks!!
Todo lo que eh aprendido de excel se lo debo a este canal! Bienvenidos nuevamente!!! 🥃🍻🥃
Mil gracias, creadores de contenido que vale la pena seguir!
Excelente, esto lo había buscado durante años….!!!!
Nos alegra que te sea de utilidad
Muchísimas gracias por la información! Excelente tutorial
Me encantan estos videos
Muy buenos videos!
Muchas gracias por el tutorial. Va perfecto. De todas formas, ¿Habría alguna forma de colocar distintas imágenes en línea una detrás de otra, en lugar de debajo? Por ejemplo para poner los símbolos de las redes sociales todas en las misma fila
Hola, por favor contacta a nuestro experto en Macros al número +57 3122399699. Gracias!
Muy buen video, gracias por hacerlo y compartirlo. Una consulta, que sería diferente si en el cuerpo del email quiero enviar un hipervinculo para abrir un archivo de Excel? Gracias
Hola! puedes contactar a nuestro experto en macros al numero +57 3122399699
@@HammYisTutoriales buenísimo, gracias.
@@HammYisTutoriales ese número tiene habilitado whatsapp? No me sale habilitado. Yo estoy en Panamá.
Si lo tiene habilitado, recuerda incluir el indicativo +57
Cual serían los parámetros de conexión a un correo privado en WEBMAIL?
Al dar ejecutar me sale, " Error de compilación", no se ha definido Sub o Fuction, ¿a que se debe?
Buenos días, he creado la macro siguiendo tus indicaciones y me funciona todo correctamente, excepto el tema de la imagen. Si yo me lo envío a mi correo, sí que aparece la imagen correctamente, pero si lo envió a cualquier otra persona, aun dentro de la empresa, aparece un enlace roto, como que no ha encontrado dicha imagen. ¿Serías tan amable de echarme una mano con esto? muchas gracias de antemano.
Buen dia Daniel, las imagenes que llegan rotas se debe a la configuración del correo receptor, si te registra como spam o tiene parametrizado en centros de confianza No admitir correos de Macros no se vera la imagen
me pasa igual, creo que es pq la ruta de las imagenes esta en nuestro pc pero no en el del que recibe el correo :/
hola colegas, lograron una solución a esto? a mi también me sale lo mismo . saludos
@@robertocarlosoriarojas2128 checa si el vínculo a las imágenes es público. Me pasaba que subía imagenes a Drive por ejemplo, y si las ponía privadas no cargaban en correos o firmas.
Buen día, una pregunta al momento de ejecutar me aparece error de sintaxis en la parte de HTML body tengo todo tal cual, solo modifique lo de la imagen
Hola, por favor contacta a nuestro experto en Macros al número +57 3122399699. Gracias!
Vieras que yo intento concatenar el HTMLBody = .HTMLBody y me genera un error la macro
Hola Denison, esa parte del codigo esta bien, se debe ver el complemento para verificar donde se encuentra el error
Cuando se envía la otra persona no puede ver la imagen del correo. Tal vez alguna solucion?
Eso ya depende de la configuración del correo electrónico de la persona que recibe, suele pasar cuando lo tienen detectado como Spam o similares
😂😂😂😂😂😂😂😂😂