Page 1 of 1
Enviar Mails con adjuntos ( o sin ) con FWH y xHarbour
Posted: Thu Aug 30, 2007 9:56 pm
by 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
.
Posted: Thu Aug 30, 2007 10:03 pm
by 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.
Posted: Thu Aug 30, 2007 10:26 pm
by 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
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 )
Posted: Fri Aug 31, 2007 3:43 am
by 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 
.