Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Envío de correo electrónico desde excel

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

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 13 puestos en Excel (en relación al último mes)
Gráfica de Excel

Envío de correo electrónico desde excel

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

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!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Envío de correo electrónico desde excel

Publicado por Andres Leonardo (1583 intervenciones) el 19/08/2019 19:29:06
Espero esto te sirva...


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar