Interesante aplicación que puede solucionar el envío masivo de mails en un tiempo muy reducido. '***Macro Para enviar correos Sub correo() 'Por.Dam ufila = Range("B" & Rows.Count).End(xlUp).Row col = Range("G1").Column For i = 2 To ufila Set dam1 =...