Ayuda para poder modificar el código
Como se puede hacer para modificar kla columna que debe recorrer
supongamos hasta la p
Sub envío()
For I = 2 To Range("C" & Rows.Count).End(xlUp).Row
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
Set parte3 = parte1.createitem(olmailitem)
parte2.To = Range("C" & I)
parte2.Subject = "Diferencias" + " " + Range("E" & I) + " " + Range("F" & I)
parte2.body = "Buenos Días" + Chr(13) + Chr(13) + Range("D" & I) + Chr(13) + Chr(13) + Range("E" & I) + " " + Range("F" & I) + " " + " " + Range("G" & I) + " " + Range("H" & I)
parte2.DISPLAY 'aquí puedes poner send y lo enviará directamente
Set parte1 = Nothing
Set parte2 = Nothing
Next
End Sub
1 respuesta
Esta sería la macro
Sub envío()
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
Set parte3 = parte1.createitem(olmailitem)
parte2.To = Range("C" & i)
parte2.Subject = "Diferencias" + " " + Range("E" & i) + " " + Range("F" & i)
cadena1 = "Buenos Días" + Chr(13) + Chr(13) + Range("D" & i) + Chr(13) + Chr(13)
For j = 5 To 16
cadena2 = cadena2 + Cells(i, j) + " "
Next
parte2.body = cadena1 + cadena2
parte2.display 'Send 'aquí puedes poner send y lo enviará directamente
Set parte1 = Nothing
Set parte2 = Nothing
Next
End Sub
Saludos. Dam
Si es lo que necesitas.
