Hola!!!
usa este codigo y crea un archivo con extencion *.vbs
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "
[email protected]"
objEmail.To = "
[email protected]"
objEmail.Subject = "PRUEBA"
objEmail.Textbody = "PRUEBA"
objEmail.AddAttachment "C:\Mis documentos\Cuentas_2005.xls"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ntserver10"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
salvo por algunos parametros que debes ajustar, este archivo es como un ejecutable que permite enviar e-mail.
Desde power builder ejecuto un RUN () y listo.
Estero que te sirva.