ricardi Flores

Yo uso la siguiente macro Sub correo_1() Dim mi_App As Object Dim mi_Correo As Object i = 1 Do i = i + 1 Set mi_App = CreateObject("Outlook.Application") mi_App.Session.logon Set mi_Correo = mi_App.CreateItem(0) ActiveWorkbook.Save On Error Resume...