Enviar Mails con adjuntos ( o sin ) con FWH y xHarbour

[jose_murugosa]

Alguien sabe de alguna clase que efectivamente funcione con FWH y xHarbour y permita enviar mails con o sin adjunto (preferentemente con), agradezco si alguien tiene algo del estilo me pueda dar una mano, porque no tengo idea de momento del como y estoy necesitando desarrollar un soft que enviaría estados de cuenta por mail.

Gracias desde ya por sus ayudas de siempre .

[Ruben D. Fernandez]

Jose:

Alguna ideas:

La clase tBlat, la encuentras aqui en el foro.

Otra posibilidad es Funky 6.0 (componente Com de pago).

Creo haber leido algo en el foro también.

Saludos

Ruben Fernandez.

[Antonio Linares]

Jose,

Precisamente hoy Gale Ford en el foro en inglés ha comentado una solución gratuita (según su uso) y un ejemplo:

http://www.ostrosoft.com/

Code: Select all  Expand view  RUN

function mailtest()
   local oMail
   local cHost          := 'mail.myhost.com'
   local cPopServer     := cHost
   local lNeedsAuth     := .f.
   local nPriority      := 0 // Normal (Default)
   local nSensitivity   := 0 // Normal (Default)
   local nNotify        := 0 // None (Default)
   local lSentOk
   local cSubject
   local cText
   local cSendTo        := 'gale.ford@wwrowland.com,help.desk@wwrowland.com'
   local cMailFrom      := 'me@myhost.com'

   oMail := CreateObject("OSSMTP.SMTPSession")
   oMail:Server := cHost
   oMail:RaiseError := .f.

   if lNeedsAuth
      oMail:AuthenticationType := 2
      oMail:Password    := 'password'
      oMail:Username    := 'administrator@myhost.com'
      oMail:ReplyTo     := 'me@myhost.com"
      oMail:POPServer   := cPopServer
   else
      oMail:AuthenticationType := 0  // 0 = no authentication
   endif
   oMail:Importance  := nPriority
   oMail:Sensitivity := nSensitivity

   // Needs comma seperator so if someone used semicolon change them to commas
   oMail:SendTo := trim(strtran( cSendTo, ';', ',' ))
   oMail:MailFrom := cMailFrom

   oMail:MessageSubject := 'My test subject'
   oMail:MessageText := 'Body of email.'

   // Attachements *********************************
   aFiles := { 'c:\autoexec.bat', 'c:\config.sys' }

   for nCounter := 1 to len( aFiles )
      oAttachment := CreateObject("OSSMTP.Attachment")
      oAttachment:FilePath = aFiles[ nCounter ]
      oAttachment:AttachmentName = cFileNoPath( aFiles[ nCounter ] )
      if file( aFiles[ nCounter ] )
         oMail:Attachments:add( oAttachment )
      endif
   next
   // Attachements *********************************

   oMail:SendEmail()
   if upper( oMail:Status ) = 'ERROR'
      lSentOk := .t.
   else
      lSentOk := .f.
   endif
   oMail := nil
return( lSentOk )


[jose_murugosa]

Gracias compatriota, gracias Antonio,

MUCHAS GRACIAS por responder tan rápido, siempre me siento acompañado por este foro .

Aprecio y valoro mucho el compañerismo de todos.

Voy a ver ambas opciones y luego les cuento .