HMGforum.com

Code: Select all

Aquí pego el fuente para envíos desde Yahoo.es ...  para los colegas que quieran utilizarlo ... sirve para xHarbour Modo Consola Windows y Linux.



REQUEST DBFNTX
REQUEST DBFDBT

#ifdef __PLATFORM__Windows
  ANNOUNCE HB_GTSYS
  REQUEST HB_GT_WIN_DEFAULT
#endif

PROCEDURE main()
envia_mail()
RETURN(.T.)

function envia_mail()
LOCAL oSmtp
LOCAL oEMail
LOCAL cSmtpUrl
LOCAL cSubject
LOCAL cFrom
LOCAL cTo
LOCAL cBody
LOCAL cFile
Local cUrl := "smtp://lmonterof:miclave@smtp.mail.yahoo.es" // ejemplo para una cuenta en Yahoo.es
Local oUrl

oUrl:= TUrl():new( cUrl )
oUrl:cuserid := "lmonterof@yahoo.es"
   // preparing data for eMail
cSmtpUrl := "smtp://lmonterof@yahoo.es:miclave@smtp.mail.yahoo.es"
cSubject := "Prueba de Email"
cFrom    := "lmonterof@yahoo.es"
cTo      := "luis.montero@gpsinka.com"
cFile    := "archivo.zip"
cBody    := "Envio de prueba desde xharbour a las: " + DTOC(DATE()) + " " + Time()

      // preparing eMail object
oEMail   := TIpMail():new()
oEMail:setHeader( cSubject, cFrom, cTo )
oEMail:setBody( cBody )
oEMail:attachFile( cFile )

      // preparing SMTP object
oSmtp := TIpClientSmtp():new( oUrl )
osmtp:nDefaultport := 587               // Con este puerto tambien me funciona aunque yahoo tiene el 465


      // sending data via internet connection

@ 15, 11 say "SERVER: " + ourl:cServer
@ 16, 11 say "USERID: " + ourl:cUserid
@ 17, 11 say "PASSWORD: " + ourl:cPassword
@ 18, 11 say "PUERTO: " + transform(ourl:nPort,'99999')
@ 20, 11 say " "
wait "Presiona una tecla"
IF oSmtp:open()

   if oSmtp:sendMail( oEMail )
      @ 14, 11 say "Correo Enviado"
   else
      @ 14, 11 say "Correo no se Envio"
   endif
   oSmtp:close()
ELSE
   @ 14, 11 say "Correo no se Abrio"
ENDIF
wait "Fin de envio de correo"
RETURN .t.


Saludos.
Atte.
Lucho Montero.
LIMA - PERU.