Excel - Envío de correo electrónico desde excel

Val: 1

Envío de correo electrónico desde excel

Publicado por Angel (1 intervención) el 19/08/2019 18:17:15

Buen día, necesito ayuda para modificar un código de una macro, lo que necesito es que me envíe por correo toda la lista de actividades pendientes juntas en el mismo correo, pues con el código que tengo las envía separadas por filas en diferentes correos, les envío el código espero me puedan ayudar,gracias y saludos!

Sub Enviar_Correos()

    For i = 2 To Range("D" & Rows.Count).End(xlUp).Row

        If Cells(i, "F").Value = "Pendiente" Then

            Set dam = CreateObject("outlook.application").createitem(0)

            dam.To = Cells(i, "E").Value

            dam.Subject = "Recordatorio de seguimiento a pendientes"

            dam.Body = "Estimado/a : " & Cells(i, "D").Value & vbCr & vbCr & _

                       "Le recordamos que tiene pendientes " & _

                       "las siguientes actividades : " & Cells(i, "B").Value & vbCr & vbCr & _

                       "Saludos Cordiales."

            dam.Display

        End If

    Next

    MsgBox "Se han enviado las actividades pendientes"

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 3

Val: 3.136

Envío de correo electrónico desde excel

Publicado por Andres Leonardo (1585 intervenciones) el 19/08/2019 19:29:06

Espero esto te sirva...

Sub Enviar_Correos()

Set dam = CreateObject("outlook.application").createitem(0)

dam.To = reportependiente@mitrabajo.com ' aqui va el correo donde deberias enviar el correo  que tiene todos los pendientes

dam.Subject = "Recordatorio de seguimiento a pendientes"

dam.Body = "Estimado/a : "  & "Le recordamos que tiene pendientes " & _

"las siguientes actividades : "  & vbCr

For i = 2 To Range("D" & Rows.Count).End(xlUp).Row

If Cells(i, "F").Value = "Pendiente" Then

  dam.Subject = dam.Subject  &   Cells(i, "B").Value & vbCr & vbCr

End If

Next

 dam.Subject = dam.Subject  &  "Saludos Cordiales."

dam.Display

MsgBox "Se han enviado las actividades pendientes"

End Sub

**Eso deberia funcionar disculpa por no ponerlo perfecto pero estoy desde el telefono ...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar