EMAIL

[asimoes]

Pessoal,

Alguém teria alguma rotina pronta de envio de email?

Agradeço desde já a colaboração,

[]´s

[Maligno]

Pegue no meu site, clicando aqui, um manual (razoavelmente atualizado, creio eu) com o help completo do XHarbour, onde consta um exemplo de envio de eMail. Ou, se preferir, colando de lá:

Código: Selecionar todos

PROCEDURE Main
   LOCAL oSmtp, oEMail
   LOCAL cSmtpUrl
   LOCAL cSubject, cFrom, cTo, cBody, cFile

   // preparing data for eMail
   cSmtpUrl := "smtp://mailaccount:password@smtp.server.com"
   cSubject := "Testing eMail"
   cFrom    := "MyName@Mail.server.com"
   cTo      := "YourName@another.server.com"
   cFile    := "File_Attachment.zip"
   cBody    := "This is a test mail sent at: " + 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( cSmtpUrl )

   // sending data via internet connection
   IF oSmtp:open()
      oSmtp:sendMail( oEMail )
      oSmtp:close()
      ? "Mail sent"
   ELSE
      ? "Error:", oSmtp:lastErrorMessage()
   ENDIF
RETURN

[sygecom]

Pessoal,

Alguém teria alguma rotina pronta de envio de email?

Agradeço desde já a colaboração,

[]´s

Se vc esta usando o xharbour 1.0.0 use a HB_SENDMAIL() e link a TIP.LIB

[asimoes]

Obrigado,

Maligno e Leonardo,

Pela dica.

x[]´s