Luis Mondelo respondió:
Este es mi ejemplo para que lo adaptes a tus necesidades: Sub envío() Set parte1 = CreateObject("outlook.application") Set parte2 = parte1.createitem(olmailitem) parte2.to = Range("b2").Value parte2.Subject = Range("d2") & Range("e2") & Range("f2")...