Envío de mail por OutLook con lagunas condiciones particulares
Espero estés bien y aprovecho para hacerte una consulta.
Quisiera enviar una sucesión de mails (uno detrás del otro) desde Outlook con las siguientes condiciones:
1. Que recorra la col A de la Hoja1 donde solo hay direcciones de e-mails,
2. Que por cada celda <> de vacío que encuentre tome el dato (dirección de e-mail),
3. Envíe un e-mail a esa dirección y antes del envío,
4. Que tome una Imagen que esta en Hoja2, la copie y la pegue en el cuerpo del e-mail a enviar,
5. Por ultimo la maquina que enviara los mails hasta agotar la lista, tiene 3 direcciones de Outlook y debe hacerse desde una en particular
¿Es posible crear un código que haga todo esto?
Quedo a la espera de tus comentarios y aprovecho la oportunidad para agradecerte desde ya y como siempre
Daniel
1 Respuesta
H o l a : Realiza una prueba para enviar el correo utilizando una de tus 3 direcciones.
Sigue las instrucciones del enlace:
Como puedo predeterminar con una macros una de mis 3 cuentas de mi Outlook
Avísame si te funciona.
Por otra parte, para enviar la imagen, lo recomendable es utilizar código HTML para insertar un archivo que contenga la imagen, ya que copiar y pegar la imagen no es muy funcional para algunas versiones de office. Entonces pon en un archivo jpg la imagen que quieras enviar.
Te anexo la macro
Sub EnviarCorreo()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
logo = "imagen.jpg"
Sheets("Hoja1").Select
'
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "A") <> "" Then
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olMailItem)
dam2.To = Cells(i, "A").Value 'Destinatarios
dam2.Subject = "Asunto"
dam2.SendUsingAccount = dam1.Session.Accounts.Item(2)
dam2.Attachments.Add ruta & logo
dam2.HTMLBody = _
"<HTML> " & _
"<BODY bgcolor=#F5F6CE>" & _
"<img src=cid:" & logo & " height=140 width=730>" & _
"<P> Cuerpo del correo " & _
"</P>" & _
"</BODY> " & _
"</HTML>"
dam2.Display 'El correo se muestra
'dam2.Send
End If
Next
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
