Me engancho en las propuestas, te paso estos te puede servir, es un código que envia mail desde vfp directamente.
Acá esta el código. o sino visita http://marcelocolombani.blogspot.com/ estoy tratando de armar un rejunte de todas las cosas que he probado. lcServidor = "smtp.server.com" lcPuerto = 25 lcTo = "[EMAIL PROTECTED]" lcFrom = "[EMAIL PROTECTED]" lcSubject= "Prueba" lcText = "Texto" lcUsuario = "[EMAIL PROTECTED]" lcPassword = "clave que sea" #define sckClosed 0 #define sckOpen 1 #define sckListening 2 #define sckConnectionPending 3 #define sckResolvingHost 4 #define sckResolved 5 #define sckConnecting 6 #define sckConnected 7 #define sckClosing 8 #define sckError 9 #DEFINE crlf CHR(13)+CHR(10) DECLARE integer Sleep IN WIN32API integer && (Aporte realizado en foro fox del MUG. Gracias. PabloC) oWinsock = CREATEOBJECT("MSWinsock.Winsock.1") oWinsock.Protocol = 0 && 0=TCP , 1=UDP oWinsock.RemoteHost = lcServidor oWinsock.RemotePort = lcPuerto && smtp oWinsock.Connect() esperar = 0 DO while oWinsock.State # sckConnected AND esperar <= 10 sleep(500) esperar = esperar + 1 ENDDO IF oWinsock.State = sckConnected oWinsock.senddata("HELO " + oWinsock.RemoteHost + crlf) sleep(250) oWinsock.senddata("AUTH LOGIN " + crlf) sleep(250) oWinsock.senddata(STRCONV(lcUsuario,13) + crlf) sleep(250) oWinsock.senddata(STRCONV(lcPassword,13) + crlf) sleep(250) oWinSock.senddata("Mail From:"+lcFrom + crlf) sleep(250) oWinSock.senddata("RCPT TO:" + lcTo + crlf) sleep(250) oWinsock.senddata("DATA" + crlf) oWinsock.senddata("From:" + lcFrom + crlf) oWinSock.senddata("To:"+ lcTo + crlf) oWinsock.senddata("Subject:" + lcSubject + crlf) oWinsock.senddata(crlf + lcText + crlf) sleep(250) oWinsock.senddata("." + crlf) sleep(250) oWinsock.senddata("quit") sleep(250) Else oWinsock.close() RETURN "No se pudo conectar con el servidor" Endif oWinsock.close() RETURN "El mensaje se envio correctamente" Saludos Marcelo Colombani ----- Original Message ----- From: "Estela Lázaro" <[EMAIL PROTECTED]> To: "GUFA List Member" <[email protected]> Sent: Wednesday, May 07, 2008 12:22 PM Subject: [GUFA] Envio de mail Hola, ya lo intenté, con AutenticathionMethod = 0,1 y 2 pero nada, no salen los yahooses al menos. Saludos Estela ----- Mensaje original ---- De: Pablo Sigüenza <[EMAIL PROTECTED]> Para: GUFA List Member <[email protected]> Enviado: miércoles 7 de mayo de 2008, 11:12:07 Asunto: [GUFA] Envio de mail Definitivamente el producto es excelente. Fijate las propiedades AutenticathionMethod ; UserName ; Password. Me paso esta semana y lo solucioné con esto. Saludos. Pablo Sigüenza Socio # 1074 ----- Original Message ----- From: Estela Lázaro To: GUFA List Member Sent: Wednesday, May 07, 2008 9:20 AM Subject: [GUFA] Envio de mail Hola, cuál podrá ser? Me costó descubrir que eran las que no eran del dominio las que daban error porque mis primeras pruebas fueron con 2 o 3 direcciones, y por supuesto, como no podía ser de otra manera, con las del dominio. Probé con otro ejemplo con SendViaCDOSYS pero no viajan los dibujos y pequeños jpg. Saludos y Gracias Estela ----- Mensaje original ---- De: Luis Lescano <[EMAIL PROTECTED]> Para: GUFA List Member <[email protected]> Enviado: miércoles 7 de mayo de 2008, 8:49:22 Asunto: [GUFA] Envio de mail Hola Estela, yo lo estoy usando y anda perfecto, no será una restricción interna que no puede enviar mails. Saludos Lic. Luis Sergio Lescano Informatica y Telecomunicaciones ELECTROINGENIERIA S.A. División Nuclear Web: www.eling.com.ar De:[email protected] [mailto:[EMAIL PROTECTED] En nombre de Estela Lázaro Enviado el: Miércoles, 07 de Mayo de 2008 08:36 a.m. Para: GUFA List Member Asunto: [GUFA] Envio de mail Buenos días Bajé el ejemplo de ifox para enviar mails, realmente muy bueno y más aún que me permite enviar el cuerpo con formato html imàgenes incluidas, pero me da error 7, por lo que veo cuando es una dir que no es del dominio del smtp (yahoo por ejemplo). Es así? O estoy haciendo algo mal? Alguna vez me dio error 4 pero no recuerdo cuándo Saben de algún otro? Probé con muchos, unos que me abren el outlook pero no me sirve, y con otro con cuenta de gmail, pero tamboco lo quieren. Otro con createobject("CDO.Message") me da error en el send Gracias Estela ________________________________ Yahoo! Encuentros Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros. Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration ________________________________ Yahoo! Encuentros Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros. Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration Yahoo! Encuentros. Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros http://yahoo.cupidovirtual.com/servlet/NewRegistration
