Alaska Software Inc. - Recibir Correos Usando Asinet

	Author	Topic: Recibir Correos Usando Asinet
	Nolberto Paulino Esterell	Recibir Correos Usando Asinet on Thu, 09 Jun 2011 11:05:40 -0400 Hola si me pueden ayudar Necesito Recibir correos usando ASINET, he visto los ejemplos, pero no funcionan Nolberto Paulino Un cordial Saludo
	Pablo Botella	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 17:24:28 +0200 Hola, Para 115$ que vale la lib de Marshallsoft no te compliques la vida, compratela y te ahorras dolores de cabeza Saludos, Pablo
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 11:54:52 -0400 Gracias Pablo "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> wrote in message news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... > Hola, > Para 115$ que vale la lib de Marshallsoft no te compliques la vida, > compratela y te ahorras dolores de cabeza > > Saludos, > Pablo
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 14:03:16 -0300 Nolberto, Es muy sencillo recibir correo. Seguramente has hecho algo mal. quieres enviar tu programa al soporte? Espero haber sido de ayuda. Saludos Jose Luis Otermin Alaska Software <Nolberto Paulino Esterell> escribi en el mensaje news:6c9ea603$17207e00$46fe0@news.alaska-software.com... > Gracias Pablo > > > "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> > wrote in message news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >> Hola, >> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >> compratela y te ahorras dolores de cabeza >> >> Saludos, >> Pablo > > >
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 13:20:07 -0400 Jose Luis Este ejemplo lo saque de la ayuda que Tiene ASINET /* ------------------------------------------------------------------------- Error cuando lo corro -------------------------------------------------------------------------/ Info: Socket created successfully Info: Successfully connected to mail.fusemail.net Error: Read Error: 1 Info: Sending: USER Error: Read Error: 1 Info: Sending: PASS Error: Read Error: 1 Info: Sending: STAT Error: Read Error: 1 Info: Sending: QUIT Info: disconnect from server mail.fusemail.net Press any key to continue... / ejemplo / #pragma library("asinet10.lib") PROCEDURE Main LOCAL cServer := "mail" LOCAL cUserName := "JohnDoe" LOCAL cPassword := "Lancelot" LOCAL oLog := LogWriter():new() LOCAL oPOP3, i, nCount LOCAL oMail, oSender, cSubject oPop3 := POP3Client():new( cServer , NIL , cUserName, cPassWord, oLog , 2 ) IF .NOT. oPOP3:connect() ? "Unable to establish connection to:", cServer QUIT ENDIF nCount := oPOP3:getNumberOfNewMessages() FOR i:=1 TO nCount Obtain MIMEMessage object for e-mail oMail := oPOP3:getMessage( i ) Obtain MailAddress object of sender oSender := oMail:getFrom() IF .NOT. Empty( oSender ) ? "From:", oSender:getString() ELSE ? "Unknown sender" ENDIF Subject line of e-mail cSubject := oMail:getSubject() IF .NOT. Empty( cSubject ) ? "Subject:", cSubject ELSE ? "Unknown subject" ENDIF uncomment for message deletion oPOP3:deleteMessage( i ) NEXT oPOP3:disconnect() RETURN / * User-defined class for log-data processing */ CLASS LogWriter EXPORTED: INLINE METHOD write( cLogData ) ? cLogData RETURN ENDCLASS "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> wrote in message news:504863be$3ab805b6$4632b@news.alaska-software.com... > Nolberto, > > Es muy sencillo recibir correo. > Seguramente has hecho algo mal. > ¿quieres enviar tu programa al soporte? > -- > Espero haber sido de ayuda. > > Saludos > > Jose Luis Otermin > Alaska Software > > <Nolberto Paulino Esterell> escribió en el mensaje > news:6c9ea603$17207e00$46fe0@news.alaska-software.com... >> Gracias Pablo >> >> >> "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> >> wrote in message news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >>> Hola, >>> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >>> compratela y te ahorras dolores de cabeza >>> >>> Saludos, >>> Pablo >> >> >> > >
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 14:29:55 -0300 Nolberto, No pueden usarse esos datos de conexin porque son SOLO PARA EJEMPLO. Usa datos reales y obtendrs el resultado correcto. Espero haber sido de ayuda. Saludos Jose Luis Otermin Alaska Software <Nolberto Paulino Esterell> escribi en el mensaje news:3ab7fe07$88e24bb$47975@news.alaska-software.com... > Jose Luis > Este ejemplo lo saque de la ayuda que Tiene ASINET > > > /* ------------------------------------------------------------------------- > Error cuando lo corro > -------------------------------------------------------------------------/ > Info: Socket created successfully > Info: Successfully connected to mail.fusemail.net > Error: Read Error: 1 > Info: Sending: USER > > Error: Read Error: 1 > Info: Sending: PASS > > Error: Read Error: 1 > Info: Sending: STAT > > Error: Read Error: 1 > Info: Sending: QUIT > > Info: disconnect from server mail.fusemail.net > Press any key to continue... > > > > > / ejemplo / > #pragma library("asinet10.lib") > > > PROCEDURE Main > LOCAL cServer := "mail" > LOCAL cUserName := "JohnDoe" > LOCAL cPassword := "Lancelot" > LOCAL oLog := LogWriter():new() > LOCAL oPOP3, i, nCount > LOCAL oMail, oSender, cSubject > > oPop3 := POP3Client():new( cServer , NIL , cUserName, cPassWord, > oLog , 2 ) > > IF .NOT. oPOP3:connect() > ? "Unable to establish connection to:", cServer > QUIT > ENDIF > > nCount := oPOP3:getNumberOfNewMessages() > > FOR i:=1 TO nCount > // Obtain MIMEMessage object for e-mail > oMail := oPOP3:getMessage( i ) > > // Obtain MailAddress object of sender > oSender := oMail:getFrom() > IF .NOT. Empty( oSender ) > ? "From:", oSender:getString() > ELSE > ? "Unknown sender" > ENDIF > > // Subject line of e-mail > > cSubject := oMail:getSubject() > IF .NOT. Empty( cSubject ) > ? "Subject:", cSubject > ELSE > ? "Unknown subject" > ENDIF > > // uncomment for message deletion > // oPOP3:deleteMessage( i ) > NEXT > > oPOP3:disconnect() > RETURN > > / > * User-defined class for log-data processing > */ > CLASS LogWriter > EXPORTED: > INLINE METHOD write( cLogData ) > ? cLogData > > RETURN > > ENDCLASS > > > > > > > "Jos Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> > wrote in message news:504863be$3ab805b6$4632b@news.alaska-software.com... >> Nolberto, >> >> Es muy sencillo recibir correo. >> Seguramente has hecho algo mal. >> quieres enviar tu programa al soporte? >> -- >> Espero haber sido de ayuda. >> >> Saludos >> >> Jose Luis Otermin >> Alaska Software >> >> <Nolberto Paulino Esterell> escribi en el mensaje >> news:6c9ea603$17207e00$46fe0@news.alaska-software.com... >>> Gracias Pablo >>> >>> >>> "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> >>> wrote in message >>> news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >>>> Hola, >>>> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >>>> compratela y te ahorras dolores de cabeza >>>> >>>> Saludos, >>>> Pablo >>> >>> >>> >> >> > > >
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 13:42:14 -0400 Jose Luis Claro que estoy usando datos Reales, y m esta generando ese error Yo no puedo darte los datos de mi correo que estoy usando por eso te deje los datos del ejemplo "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> wrote in message news:2274fb8f$6be03d12$4762d@news.alaska-software.com... > Nolberto, > > No pueden usarse esos datos de conexión porque son SOLO PARA EJEMPLO. > Usa datos reales y obtendrás el resultado correcto. > > -- > Espero haber sido de ayuda. > > Saludos > > Jose Luis Otermin > Alaska Software > > <Nolberto Paulino Esterell> escribió en el mensaje > news:3ab7fe07$88e24bb$47975@news.alaska-software.com... >> Jose Luis >> Este ejemplo lo saque de la ayuda que Tiene ASINET >> >> >> /* ------------------------------------------------------------------------- >> Error cuando lo corro >> -------------------------------------------------------------------------/ >> Info: Socket created successfully >> Info: Successfully connected to mail.fusemail.net >> Error: Read Error: 1 >> Info: Sending: USER >> >> Error: Read Error: 1 >> Info: Sending: PASS >> >> Error: Read Error: 1 >> Info: Sending: STAT >> >> Error: Read Error: 1 >> Info: Sending: QUIT >> >> Info: disconnect from server mail.fusemail.net >> Press any key to continue... >> >> >> >> >> / ejemplo / >> #pragma library("asinet10.lib") >> >> >> PROCEDURE Main >> LOCAL cServer := "mail" >> LOCAL cUserName := "JohnDoe" >> LOCAL cPassword := "Lancelot" >> LOCAL oLog := LogWriter():new() >> LOCAL oPOP3, i, nCount >> LOCAL oMail, oSender, cSubject >> >> oPop3 := POP3Client():new( cServer , NIL , cUserName, cPassWord, >> oLog , 2 ) >> >> IF .NOT. oPOP3:connect() >> ? "Unable to establish connection to:", cServer >> QUIT >> ENDIF >> >> nCount := oPOP3:getNumberOfNewMessages() >> >> FOR i:=1 TO nCount >> Obtain MIMEMessage object for e-mail >> oMail := oPOP3:getMessage( i ) >> >> Obtain MailAddress object of sender >> oSender := oMail:getFrom() >> IF .NOT. Empty( oSender ) >> ? "From:", oSender:getString() >> ELSE >> ? "Unknown sender" >> ENDIF >> >> Subject line of e-mail >> >> cSubject := oMail:getSubject() >> IF .NOT. Empty( cSubject ) >> ? "Subject:", cSubject >> ELSE >> ? "Unknown subject" >> ENDIF >> >> uncomment for message deletion >> oPOP3:deleteMessage( i ) >> NEXT >> >> oPOP3:disconnect() >> RETURN >> >> / >> * User-defined class for log-data processing >> */ >> CLASS LogWriter >> EXPORTED: >> INLINE METHOD write( cLogData ) >> ? cLogData >> >> RETURN >> >> ENDCLASS >> >> >> >> >> >> >> "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> >> wrote in message news:504863be$3ab805b6$4632b@news.alaska-software.com... >>> Nolberto, >>> >>> Es muy sencillo recibir correo. >>> Seguramente has hecho algo mal. >>> ¿quieres enviar tu programa al soporte? >>> -- >>> Espero haber sido de ayuda. >>> >>> Saludos >>> >>> Jose Luis Otermin >>> Alaska Software >>> >>> <Nolberto Paulino Esterell> escribió en el mensaje >>> news:6c9ea603$17207e00$46fe0@news.alaska-software.com... >>>> Gracias Pablo >>>> >>>> >>>> "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> >>>> wrote in message >>>> news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >>>>> Hola, >>>>> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >>>>> compratela y te ahorras dolores de cabeza >>>>> >>>>> Saludos, >>>>> Pablo >>>> >>>> >>>> >>> >>> >> >> >> > >
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 21:13:51 -0300 Nolberto, Envi correos desde mi cuenta de Alaska Software a cientos de personas y slo me rebotaron las cuentas cerradas. El ejemplo hecho con AS-Inet FUNCIONA PERFECTO. Si gustas poner tus contraseas y nombres de usuarios, tanto como servidores en variables #include, por ejemplo: ---BOF--- cEmailAdr := "usuario@servidor.com" cMailServer := "mail.servidor.com" cUsername := "usuario" cPassword := "password" ---EOF--- Y usas el programa adjunto, TIENE que funcionar. No es necesario tocar nada ms. Lo pruebas y me cuentas. Espero haber sido de ayuda. Saludos Jose Luis Otermin Alaska Software <Nolberto Paulino Esterell> escribi en el mensaje news:5d6334cd$76f6a3b5$48c91@news.alaska-software.com... > Jose Luis > Claro que estoy usando datos Reales, y m esta generando ese error > Yo no puedo darte los datos de mi correo que estoy usando > por eso te deje los datos del ejemplo > > > > > "Jos Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> > wrote in message news:2274fb8f$6be03d12$4762d@news.alaska-software.com... >> Nolberto, >> >> No pueden usarse esos datos de conexin porque son SOLO PARA EJEMPLO. >> Usa datos reales y obtendrs el resultado correcto. >> >> -- >> Espero haber sido de ayuda. >> >> Saludos >> >> Jose Luis Otermin >> Alaska Software >> >> <Nolberto Paulino Esterell> escribi en el mensaje >> news:3ab7fe07$88e24bb$47975@news.alaska-software.com... >>> Jose Luis >>> Este ejemplo lo saque de la ayuda que Tiene ASINET >>> >>> >>> /* ------------------------------------------------------------------------- >>> Error cuando lo corro >>> -------------------------------------------------------------------------/ >>> Info: Socket created successfully >>> Info: Successfully connected to mail.fusemail.net >>> Error: Read Error: 1 >>> Info: Sending: USER >>> >>> Error: Read Error: 1 >>> Info: Sending: PASS >>> >>> Error: Read Error: 1 >>> Info: Sending: STAT >>> >>> Error: Read Error: 1 >>> Info: Sending: QUIT >>> >>> Info: disconnect from server mail.fusemail.net >>> Press any key to continue... >>> >>> >>> >>> >>> / ejemplo / >>> #pragma library("asinet10.lib") >>> >>> >>> PROCEDURE Main >>> LOCAL cServer := "mail" >>> LOCAL cUserName := "JohnDoe" >>> LOCAL cPassword := "Lancelot" >>> LOCAL oLog := LogWriter():new() >>> LOCAL oPOP3, i, nCount >>> LOCAL oMail, oSender, cSubject >>> >>> oPop3 := POP3Client():new( cServer , NIL , cUserName, cPassWord, >>> oLog , 2 ) >>> >>> IF .NOT. oPOP3:connect() >>> ? "Unable to establish connection to:", cServer >>> QUIT >>> ENDIF >>> >>> nCount := oPOP3:getNumberOfNewMessages() >>> >>> FOR i:=1 TO nCount >>> // Obtain MIMEMessage object for e-mail >>> oMail := oPOP3:getMessage( i ) >>> >>> // Obtain MailAddress object of sender >>> oSender := oMail:getFrom() >>> IF .NOT. Empty( oSender ) >>> ? "From:", oSender:getString() >>> ELSE >>> ? "Unknown sender" >>> ENDIF >>> >>> // Subject line of e-mail >>> >>> cSubject := oMail:getSubject() >>> IF .NOT. Empty( cSubject ) >>> ? "Subject:", cSubject >>> ELSE >>> ? "Unknown subject" >>> ENDIF >>> >>> // uncomment for message deletion >>> // oPOP3:deleteMessage( i ) >>> NEXT >>> >>> oPOP3:disconnect() >>> RETURN >>> >>> / >>> * User-defined class for log-data processing >>> */ >>> CLASS LogWriter >>> EXPORTED: >>> INLINE METHOD write( cLogData ) >>> ? cLogData >>> >>> RETURN >>> >>> ENDCLASS >>> >>> >>> >>> >>> >>> >>> "Jos Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> >>> wrote in message >>> news:504863be$3ab805b6$4632b@news.alaska-software.com... >>>> Nolberto, >>>> >>>> Es muy sencillo recibir correo. >>>> Seguramente has hecho algo mal. >>>> quieres enviar tu programa al soporte? >>>> -- >>>> Espero haber sido de ayuda. >>>> >>>> Saludos >>>> >>>> Jose Luis Otermin >>>> Alaska Software >>>> >>>> <Nolberto Paulino Esterell> escribi en el mensaje >>>> news:6c9ea603$17207e00$46fe0@news.alaska-software.com... >>>>> Gracias Pablo >>>>> >>>>> >>>>> "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> >>>>> wrote in message >>>>> news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >>>>>> Hola, >>>>>> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >>>>>> compratela y te ahorras dolores de cabeza >>>>>> >>>>>> Saludos, >>>>>> Pablo >>>>> >>>>> >>>>> >>>> >>>> >>> >>> >>> >> >> > > > main1.PRG
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 10:39:58 -0400 hola jose Luis No he podido bajar mail1.prg, porque mi servidor lo esta bloqueando, ponlo en un Archivo ZIP "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> wrote in message news:3217c677$4cde8bd3$4d813@news.alaska-software.com... > Nolberto, > Envié correos desde mi cuenta de Alaska Software a cientos de personas y > sólo me rebotaron las cuentas cerradas. > El ejemplo hecho con AS-Inet FUNCIONA PERFECTO. > Si gustas poner tus contraseñas y nombres de usuarios, tanto como > servidores en variables #include, por ejemplo: > ---BOF--- > cEmailAdr := "usuario@servidor.com" > cMailServer := "mail.servidor.com" > cUsername := "usuario" > cPassword := "password" > ---EOF--- > > Y usas el programa adjunto, TIENE que funcionar. > > No es necesario tocar nada más. > Lo pruebas y me cuentas. > > -- > Espero haber sido de ayuda. > > Saludos > > Jose Luis Otermin > Alaska Software > > > > > > <Nolberto Paulino Esterell> escribió en el mensaje > news:5d6334cd$76f6a3b5$48c91@news.alaska-software.com... >> Jose Luis >> Claro que estoy usando datos Reales, y m esta generando ese error >> Yo no puedo darte los datos de mi correo que estoy usando >> por eso te deje los datos del ejemplo >> >> >> >> >> "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> >> wrote in message news:2274fb8f$6be03d12$4762d@news.alaska-software.com... >>> Nolberto, >>> >>> No pueden usarse esos datos de conexión porque son SOLO PARA EJEMPLO. >>> Usa datos reales y obtendrás el resultado correcto. >>> >>> -- >>> Espero haber sido de ayuda. >>> >>> Saludos >>> >>> Jose Luis Otermin >>> Alaska Software >>> >>> <Nolberto Paulino Esterell> escribió en el mensaje >>> news:3ab7fe07$88e24bb$47975@news.alaska-software.com... >>>> Jose Luis >>>> Este ejemplo lo saque de la ayuda que Tiene ASINET >>>> >>>> >>>> /* ------------------------------------------------------------------------- >>>> Error cuando lo corro >>>> -------------------------------------------------------------------------/ >>>> Info: Socket created successfully >>>> Info: Successfully connected to mail.fusemail.net >>>> Error: Read Error: 1 >>>> Info: Sending: USER >>>> >>>> Error: Read Error: 1 >>>> Info: Sending: PASS >>>> >>>> Error: Read Error: 1 >>>> Info: Sending: STAT >>>> >>>> Error: Read Error: 1 >>>> Info: Sending: QUIT >>>> >>>> Info: disconnect from server mail.fusemail.net >>>> Press any key to continue... >>>> >>>> >>>> >>>> >>>> / ejemplo / >>>> #pragma library("asinet10.lib") >>>> >>>> >>>> PROCEDURE Main >>>> LOCAL cServer := "mail" >>>> LOCAL cUserName := "JohnDoe" >>>> LOCAL cPassword := "Lancelot" >>>> LOCAL oLog := LogWriter():new() >>>> LOCAL oPOP3, i, nCount >>>> LOCAL oMail, oSender, cSubject >>>> >>>> oPop3 := POP3Client():new( cServer , NIL , cUserName, cPassWord, >>>> oLog , 2 ) >>>> >>>> IF .NOT. oPOP3:connect() >>>> ? "Unable to establish connection to:", cServer >>>> QUIT >>>> ENDIF >>>> >>>> nCount := oPOP3:getNumberOfNewMessages() >>>> >>>> FOR i:=1 TO nCount >>>> Obtain MIMEMessage object for e-mail >>>> oMail := oPOP3:getMessage( i ) >>>> >>>> Obtain MailAddress object of sender >>>> oSender := oMail:getFrom() >>>> IF .NOT. Empty( oSender ) >>>> ? "From:", oSender:getString() >>>> ELSE >>>> ? "Unknown sender" >>>> ENDIF >>>> >>>> Subject line of e-mail >>>> >>>> cSubject := oMail:getSubject() >>>> IF .NOT. Empty( cSubject ) >>>> ? "Subject:", cSubject >>>> ELSE >>>> ? "Unknown subject" >>>> ENDIF >>>> >>>> uncomment for message deletion >>>> oPOP3:deleteMessage( i ) >>>> NEXT >>>> >>>> oPOP3:disconnect() >>>> RETURN >>>> >>>> / >>>> * User-defined class for log-data processing >>>> */ >>>> CLASS LogWriter >>>> EXPORTED: >>>> INLINE METHOD write( cLogData ) >>>> ? cLogData >>>> >>>> RETURN >>>> >>>> ENDCLASS >>>> >>>> >>>> >>>> >>>> >>>> >>>> "José Luis Otermin [Alaska Software]" >>>> <jose.otermin@alaska-software.com> >>>> wrote in message >>>> news:504863be$3ab805b6$4632b@news.alaska-software.com... >>>>> Nolberto, >>>>> >>>>> Es muy sencillo recibir correo. >>>>> Seguramente has hecho algo mal. >>>>> ¿quieres enviar tu programa al soporte? >>>>> -- >>>>> Espero haber sido de ayuda. >>>>> >>>>> Saludos >>>>> >>>>> Jose Luis Otermin >>>>> Alaska Software >>>>> >>>>> <Nolberto Paulino Esterell> escribió en el mensaje >>>>> news:6c9ea603$17207e00$46fe0@news.alaska-software.com... >>>>>> Gracias Pablo >>>>>> >>>>>> >>>>>> "Pablo Botella" >>>>>> <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> >>>>>> wrote in message >>>>>> news:2d71fee3$27c4c7b3$45dae@news.alaska-software.com... >>>>>>> Hola, >>>>>>> Para 115$ que vale la lib de Marshallsoft no te compliques la vida, >>>>>>> compratela y te ahorras dolores de cabeza >>>>>>> >>>>>>> Saludos, >>>>>>> Pablo >>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>> >>>> >>>> >>> >>> >> >> >> > > >
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 12:32:47 -0300 Nolberto, Debes tener presente que es para ENVIAR correo. Para recibirlos, el proceso es diferente: 1) Crear "e-mail.ch" ---BOF--- cEmailAdr := "usuario@servidor.com" cSendServer := "mail.servidor.com" cReceiveServer := "pop3.servidor.com" cUsername := "usuario" cPassword := "password" ---EOF--- Retrieving e-mails The example explains how to access a POP3 server for e-mail retrieval. The pending e-mails are retrieved from a mailbox in the FOR..NEXT loop. Limited e-mail data is then displayed, i.e. the e-mail of the sender ("From:" header) and the subject line ("Subject:" header) are listed. Refer to the classes MIMEContent(), MailAddress() and MIMEMessage() for additional examples. #pragma library("asinet10.lib") PROCEDURE Main LOCAL oLog := LogWriter():new() LOCAL oPOP3, i, nCount LOCAL oMail, oSender, cSubject #include "e-mail.ch" NO mover sta lnea. oPop3 := POP3Client():new( cReceiveServer , NIL , ; cUserName, cPassWord, ; oLog , 2 ) IF .NOT. oPOP3:connect() ? "Unable to establish connection to:", cServer QUIT ENDIF nCount := oPOP3:getNumberOfNewMessages() FOR i:=1 TO nCount Obtain MIMEMessage object for e-mail oMail := oPOP3:getMessage( i ) Obtain MailAddress object of sender oSender := oMail:getFrom() IF .NOT. Empty( oSender ) ? "From:", oSender:getString() ELSE ? "Unknown sender" ENDIF Subject line of e-mail cSubject := oMail:getSubject() IF .NOT. Empty( cSubject ) ? "Subject:", cSubject ELSE ? "Unknown subject" ENDIF uncomment for message deletion oPOP3:deleteMessage( i ) NEXT oPOP3:disconnect() RETURN /* * User-defined class for log-data processing */ CLASS LogWriter EXPORTED: INLINE METHOD write( cLogData ) ? cLogData RETURN ENDCLASS main1.rar
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 11:42:09 -0400 Gracia Jose Luis Si tiene un ejemplo para Recibir Mail con Asinet te le agradesco, ya que ese ejemplo q puse no me funcion Tengo estos errores Recibiendo Mail pop.mail.yahoo.com Info: Socket created successfully Info: Successfully connected to pop.mail.yahoo.com Error: Read Error: 1 Info: Sending: USER nsd26@yahoo.com Error: Read Error: 1 Info: Sending: PASS prueba3s Error: Read Error: 1 Info: Sending: STAT Error: Read Error: 1 Info: Sending: QUIT Info: disconnect from server pop.mail.yahoo.com "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> wrote in message news:55ffec3d$61c30bbe$16772@news.alaska-software.com... > Nolberto, > > Debes tener presente que es para ENVIAR correo. > Para recibirlos, el proceso es diferente: > > 1) Crear "e-mail.ch" > ---BOF--- > cEmailAdr := "usuario@servidor.com" > cSendServer := "mail.servidor.com" > cReceiveServer := "pop3.servidor.com" > cUsername := "usuario" > cPassword := "password" > ---EOF--- > > > Retrieving e-mails > The example explains how to access a POP3 server > for e-mail retrieval. The pending e-mails are > retrieved from a mailbox in the FOR..NEXT loop. > Limited e-mail data is then displayed, i.e. the > e-mail of the sender ("From:" header) and the > subject line ("Subject:" header) are listed. > Refer to the classes MIMEContent(), MailAddress() > and MIMEMessage() for additional examples. > > #pragma library("asinet10.lib") > > PROCEDURE Main > LOCAL oLog := LogWriter():new() > LOCAL oPOP3, i, nCount > LOCAL oMail, oSender, cSubject > > #include "e-mail.ch" NO mover ésta línea. > > oPop3 := POP3Client():new( cReceiveServer , NIL , ; > cUserName, cPassWord, ; > oLog , 2 ) > > IF .NOT. oPOP3:connect() > ? "Unable to establish connection to:", cServer > > QUIT > ENDIF > > nCount := oPOP3:getNumberOfNewMessages() > > FOR i:=1 TO nCount > Obtain MIMEMessage object for e-mail > oMail := oPOP3:getMessage( i ) > > Obtain MailAddress object of sender > oSender := oMail:getFrom() > IF .NOT. Empty( oSender ) > ? "From:", oSender:getString() > ELSE > ? "Unknown sender" > ENDIF > > Subject line of e-mail > > cSubject := oMail:getSubject() > IF .NOT. Empty( cSubject ) > ? "Subject:", cSubject > ELSE > ? "Unknown subject" > ENDIF > > uncomment for message deletion > oPOP3:deleteMessage( i ) > NEXT > > oPOP3:disconnect() > RETURN > > /* > * User-defined class for log-data processing > */ > CLASS LogWriter > EXPORTED: > INLINE METHOD write( cLogData ) > ? cLogData > > RETURN > > ENDCLASS > >
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 13:11:19 -0300 Nolberto, El ejemplo para RECIBIR est escrito EN EL MENSAJE. No conozco los parmetros de los servidores de YAHOO. Sugiero usar varias cuentas y no empecinarse con una sola. Primero debe uno asegurarse que domina la configuracin de una cuenta y luego es cuestin de probar con las dems. Algunos servidores tienen preferencias especiales y debe leerse la documentacin con detenimiento. La mayora de las fallas vienen de una informacin mal interpretada. Espero haber sido de ayuda. Saludos Jose Luis Otermin Alaska Software <Nolberto Paulino Esterell> escribi en el mensaje news:611ddb9a$6c830934$16780@news.alaska-software.com... > Gracia Jose Luis > Si tiene un ejemplo para Recibir Mail con Asinet > te le agradesco, ya que ese ejemplo q puse no me funcion > Tengo estos errores > > Recibiendo Mail pop.mail.yahoo.com > Info: Socket created successfully > Info: Successfully connected to pop.mail.yahoo.com > > Error: Read Error: 1 > Info: Sending: USER nsd26@yahoo.com > > Error: Read Error: 1 > Info: Sending: PASS prueba3s > > Error: Read Error: 1 > Info: Sending: STAT > > Error: Read Error: 1 > Info: Sending: QUIT > > Info: disconnect from server pop.mail.yahoo.com > > > > > > "Jos Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> > wrote in message news:55ffec3d$61c30bbe$16772@news.alaska-software.com... >> Nolberto, >> >> Debes tener presente que es para ENVIAR correo. >> Para recibirlos, el proceso es diferente: >> >> 1) Crear "e-mail.ch" >> ---BOF--- >> cEmailAdr := "usuario@servidor.com" >> cSendServer := "mail.servidor.com" >> cReceiveServer := "pop3.servidor.com" >> cUsername := "usuario" >> cPassword := "password" >> ---EOF--- >> >> >> // Retrieving e-mails >> // The example explains how to access a POP3 server >> // for e-mail retrieval. The pending e-mails are >> // retrieved from a mailbox in the FOR..NEXT loop. >> // Limited e-mail data is then displayed, i.e. the >> // e-mail of the sender ("From:" header) and the >> // subject line ("Subject:" header) are listed. >> // Refer to the classes MIMEContent(), MailAddress() >> // and MIMEMessage() for additional examples. >> >> #pragma library("asinet10.lib") >> >> PROCEDURE Main >> LOCAL oLog := LogWriter():new() >> LOCAL oPOP3, i, nCount >> LOCAL oMail, oSender, cSubject >> >> #include "e-mail.ch" // NO mover sta lnea. >> >> oPop3 := POP3Client():new( cReceiveServer , NIL , ; >> cUserName, cPassWord, ; >> oLog , 2 ) >> >> IF .NOT. oPOP3:connect() >> ? "Unable to establish connection to:", cServer >> >> QUIT >> ENDIF >> >> nCount := oPOP3:getNumberOfNewMessages() >> >> FOR i:=1 TO nCount >> // Obtain MIMEMessage object for e-mail >> oMail := oPOP3:getMessage( i ) >> >> // Obtain MailAddress object of sender >> oSender := oMail:getFrom() >> IF .NOT. Empty( oSender ) >> ? "From:", oSender:getString() >> ELSE >> ? "Unknown sender" >> ENDIF >> >> // Subject line of e-mail >> >> cSubject := oMail:getSubject() >> IF .NOT. Empty( cSubject ) >> ? "Subject:", cSubject >> ELSE >> ? "Unknown subject" >> ENDIF >> >> // uncomment for message deletion >> // oPOP3:deleteMessage( i ) >> NEXT >> >> oPOP3:disconnect() >> RETURN >> >> /* >> * User-defined class for log-data processing >> */ >> CLASS LogWriter >> EXPORTED: >> INLINE METHOD write( cLogData ) >> ? cLogData >> >> RETURN >> >> ENDCLASS >> >> > > >
	Osvaldo Ramirez	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 10:48:16 -0600 Estimado Hace mucho tiempo jugue con yahoo.mail, pero era con una cuenta de la cual se pagaba, es decir no era una cuenta gratis como comunmente es. No se si la politica para enviar correos via yahoo.com halla cambiado si no ha cambiado, entonces la cuenta que usemos debe ser de paga. Solo es comentario. Saludos Osvaldo Ramirez
	Jorge L	Re: Recibir Correos Usando Asinet on Wed, 22 Jun 2011 17:38:09 -0300 Hola Nolberto no olvides que para que la cuenta funcione como pop debe estar activada la opción en las opciones del yahoo además de tener correctos los puertos en la configuración que a veces no son siempre los mismos para otras cuentas todo está descripto en las opciones "Nolberto Paulino Esterell" escribió en el mensaje de noticias:611ddb9a$6c830934$16780@news.alaska-software.com... Gracia Jose Luis Si tiene un ejemplo para Recibir Mail con Asinet te le agradesco, ya que ese ejemplo q puse no me funcion Tengo estos errores Recibiendo Mail pop.mail.yahoo.com Info: Socket created successfully Info: Successfully connected to pop.mail.yahoo.com Error: Read Error: 1 Info: Sending: USER nsd26@yahoo.com Error: Read Error: 1 Info: Sending: PASS prueba3s Error: Read Error: 1 Info: Sending: STAT Error: Read Error: 1 Info: Sending: QUIT Info: disconnect from server pop.mail.yahoo.com "José Luis Otermin [Alaska Software]" <jose.otermin@alaska-software.com> wrote in message news:55ffec3d$61c30bbe$16772@news.alaska-software.com... > Nolberto, > > Debes tener presente que es para ENVIAR correo. > Para recibirlos, el proceso es diferente: > > 1) Crear "e-mail.ch" > ---BOF--- > cEmailAdr := "usuario@servidor.com" > cSendServer := "mail.servidor.com" > cReceiveServer := "pop3.servidor.com" > cUsername := "usuario" > cPassword := "password" > ---EOF--- > > > Retrieving e-mails > The example explains how to access a POP3 server > for e-mail retrieval. The pending e-mails are > retrieved from a mailbox in the FOR..NEXT loop. > Limited e-mail data is then displayed, i.e. the > e-mail of the sender ("From:" header) and the > subject line ("Subject:" header) are listed. > Refer to the classes MIMEContent(), MailAddress() > and MIMEMessage() for additional examples. > > #pragma library("asinet10.lib") > > PROCEDURE Main > LOCAL oLog := LogWriter():new() > LOCAL oPOP3, i, nCount > LOCAL oMail, oSender, cSubject > > #include "e-mail.ch" NO mover ésta línea. > > oPop3 := POP3Client():new( cReceiveServer , NIL , ; > cUserName, cPassWord, ; > oLog , 2 ) > > IF .NOT. oPOP3:connect() > ? "Unable to establish connection to:", cServer > > QUIT > ENDIF > > nCount := oPOP3:getNumberOfNewMessages() > > FOR i:=1 TO nCount > Obtain MIMEMessage object for e-mail > oMail := oPOP3:getMessage( i ) > > Obtain MailAddress object of sender > oSender := oMail:getFrom() > IF .NOT. Empty( oSender ) > ? "From:", oSender:getString() > ELSE > ? "Unknown sender" > ENDIF > > Subject line of e-mail > > cSubject := oMail:getSubject() > IF .NOT. Empty( cSubject ) > ? "Subject:", cSubject > ELSE > ? "Unknown subject" > ENDIF > > uncomment for message deletion > oPOP3:deleteMessage( i ) > NEXT > > oPOP3:disconnect() > RETURN > > /* > * User-defined class for log-data processing > */ > CLASS LogWriter > EXPORTED: > INLINE METHOD write( cLogData ) > ? cLogData > > RETURN > > ENDCLASS > >
	Osvaldo Ramirez	Re: Recibir Correos Usando Asinet on Thu, 09 Jun 2011 16:01:34 -0600 Mi estimado Vale la pena see4xb, aparte de que puede ser llamado desde cualquier lenguage de programacion. Saludos
	Jorge L	Re: Recibir Correos Usando Asinet on Fri, 10 Jun 2011 08:30:18 -0300 Hola, particularmente uso los servicios mapi en caso que tenga outlook instalado, sino tblat que si bien no es la maravilla, pero puedo saber si el mail fue enviado o no con el blat no tengo problemas para servidores de correo seguros para cuando los puertos de salida y entrada no son los 25 y 110 saludos "Nolberto Paulino Esterell" escribió en el mensaje de noticias:354f8295$6e3d9f7f$43929@news.alaska-software.com... Hola si me pueden ayudar Necesito Recibir correos usando ASINET, he visto los ejemplos, pero no funcionan Nolberto Paulino Un cordial Saludo
	Pablo Botella	Re: Recibir Correos Usando Asinet on Fri, 10 Jun 2011 17:08:13 +0200 Hola Jorge, blat es para SMTP, Nolberto necesita usar POP3 para revisar el buzon de correo Creo que la misma gente que ha hecho el blat tiene una utilidad que se llama getmail Jose Luis tiene razón de que POP3 es un protocolo sencillo, y se puede usar con Asinet, sin embargo yo le recomendé a Nolberto SEE32 porque además de ser la mejor que conozco es barata, maneja bastante bien las excepciones (cortes de comunicacion y esas cosas ) y además trae funciones para desmontar luego el email que has descargado, por 115$ que cuesta no le puedes pedir más Saludos, Pablo
	Jos Luis Otermin [Alaska Software]	Re: Recibir Correos Usando Asinet on Fri, 10 Jun 2011 13:23:44 -0300 Pablo, Si bien no participo cuando veo la solucin aportada por los colegas, en sta oportunidad cre que Nolberto pidi algo que la biblioteca SI hace. Me pareci pertinente entrar al hilo y solucionar el tema con la biblioteca en cuestin ya sea porque Nolberto es subscriptor profesional tanto como para dejar claro el punto: Se puede enviar Y recibir correo con AS-Inet. Mi ejemplo es para el envo de un adjunto como fondo del correo HTML. Mensajes como ste son frecuentes en el soporte tcnico y por eso escasean en el foro, sin embargo aprecio que Nolberto participe e invite a participar en el foro pues aqu es donde surgen soluciones creativas Espero haber sido de ayuda. Saludos Jose Luis Otermin Alaska Software "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> escribi en el mensaje news:35f64fb3$5dfae1ec$6004c@news.alaska-software.com... > Hola Jorge, > > blat es para SMTP, Nolberto necesita usar POP3 para revisar el buzon de > correo > > Creo que la misma gente que ha hecho el blat tiene una utilidad que se > llama getmail > > Jose Luis tiene razn de que POP3 es un protocolo sencillo, y se puede > usar con Asinet, sin embargo yo le recomend a Nolberto SEE32 porque > adems de ser la mejor que conozco es barata, maneja bastante bien las > excepciones (cortes de comunicacion y esas cosas ) y adems trae > funciones para desmontar luego el email que has descargado, por 115$ que > cuesta no le puedes pedir ms :-) > > Saludos, > Pablo
	Pablo Botella	Re: Recibir Correos Usando Asinet on Fri, 10 Jun 2011 21:45:19 +0200 Hola Jose Luis, > Si bien no participo cuando veo la solución aportada ... No problem, siempre es un placer leer tu mensajes, además si no le echas aliño a la ensalada queda un poco sosa > ésta oportunidad creí que Nolberto pidió algo que la biblioteca SI hace. De hecho acabo de probarlo otra vez ( con la 1.9.331) para estar seguro y si me funciona aqui. Ahora bien para usar en produccion yo prefiero SEE4XB, maneja mejor los mensajes con attachments muy largos, hace algunos años tuve que usarlo y con ASINET se me colgaba mientras que SEE4XB los manejaba perfectamente, y la verdad por 115$ que cuesta merece la pena usar SEE32, obviamente si no pones bien los parámetros no te va a funcionar con ninguna de las 2. Saludos, Pablo
	Nolberto Paulino Esterell	Re: Recibir Correos Usando Asinet on Mon, 20 Jun 2011 15:41:46 -0400 Gracias Pablo por tu ayuda, la verdad que ASINET no es muy bueno como el SEE4XB "Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> wrote in message news:5e9ce9e2$71a70675$640ce@news.alaska-software.com... > Hola Jose Luis, > >> Si bien no participo cuando veo la solución aportada ... > No problem, siempre es un placer leer tu mensajes, además si no le echas > aliño a la ensalada queda un poco sosa > >> ésta oportunidad creí que Nolberto pidió algo que la biblioteca SI hace. > De hecho acabo de probarlo otra vez ( con la 1.9.331) para estar seguro y > si me funciona aqui. > > Ahora bien para usar en produccion yo prefiero SEE4XB, maneja mejor los > mensajes con attachments muy largos, hace algunos años tuve que usarlo y > con ASINET se me colgaba mientras que SEE4XB los manejaba perfectamente, y > la verdad por 115$ que cuesta merece la pena usar SEE32, obviamente si no > pones bien los parámetros no te va a funcionar con ninguna de las 2. > > Saludos, > Pablo
	Pablo Botella	Re: Recibir Correos Usando Asinet on Tue, 21 Jun 2011 01:59:43 +0200 Hola, > Gracias Pablo > por tu ayuda, la verdad que ASINET no es muy bueno como el SEE4XB uhmmmm dicho asi queda un poco bestia y no es cierto del todo. ASINET te permite manejar facilmente unas cuantas funciones del winsock y añade algunos protocolos listos para usar, ahora bien el manejo de sockets viene asociado a tener que lidiar con situaciones que no son siempre las ideales y ahi cada uno usa sus tecnicas, pero no es justo etiquetarlo como un producto malo porque no es cierto. ASINET es una librería de manejo general de sockets y es totalmente usable, lo que no quita que see4xb que está especializada en manejo de email implemente mejor extensiones de los protocolos ( sobre todo smtp ) y tenga más mecanismos de resolución de excepciones. Yo te recomendé see4xb porque es la mejor que conozco y además es barata, pero jamas fue mi intención desprestigiar ASINET porque sería totalmente injusto. Saludos, Pablo