Enviando email pelo xHarbour
Enviado: 24 Mar 2010 12:51
Prezados,
Estou tendo dificuldades em enviar um email utilizando o TIPmail do xHarbour.
O sistema compila normalmente, mas quando vai fazer o envio, ao chegar na linha que define o cabeçalho do email, ocorre Error BASE/1004 Message not found: TIPMAIL:SETHEADER. Já procurei no forum e no Google mas não consegui nenhuma explicação do que seria este erro ou do que poderia estar errado no meu código. Eu copiei ele do Guia do xHarbour e conferi que outros usuários do fórum conseguiram enviar email com sucesso com o mesmo código.
Será que alguem poderia me dar uma dica de onde estou errando ? Ou qual seria uma solução para o envio do email ?
Segue o meu código, copiado do guia do xharbour e adaptado através de consultas ao forum e a internet em geral.
Abraços a todos e muito obrigado.
Estou tendo dificuldades em enviar um email utilizando o TIPmail do xHarbour.
O sistema compila normalmente, mas quando vai fazer o envio, ao chegar na linha que define o cabeçalho do email, ocorre Error BASE/1004 Message not found: TIPMAIL:SETHEADER. Já procurei no forum e no Google mas não consegui nenhuma explicação do que seria este erro ou do que poderia estar errado no meu código. Eu copiei ele do Guia do xHarbour e conferi que outros usuários do fórum conseguiram enviar email com sucesso com o mesmo código.
Será que alguem poderia me dar uma dica de onde estou errando ? Ou qual seria uma solução para o envio do email ?
Segue o meu código, copiado do guia do xharbour e adaptado através de consultas ao forum e a internet em geral.
Código: Selecionar todos
function Testa()
LOCAL oSmtp, oEMail
LOCAL cSmtpUrl
LOCAL cSubject, cFrom, cTo, cBody, cFile
// preparing data for eMail
cSmtpUrl := "smtp://contato@chrissoares.com.br:minhasenha@mail.chrissoares.com.br"
cSubject := "Testing eMail"
cFrom := "contato@chrissoares"
cTo := "chrisrsoares@gmail.com"
cFile := nil //"File_Attachment.zip"
cBody := "This is a test mail sent at: " + DtoC(Date()) + " " + Time()
cCc := "suporte@bhdados.com.br"
cBcc := "wsoft.suporte@terra.com.br"
// preparing eMail object
oEMail := TIpMail():new(cBody)
oEMail:setBody( cBody )
oEMail:setHeader( cSubject, cFrom, cTo, cCc, cBcc )
oEMail:attachFile( cFile )
// preparing SMTP object
oSmtp := TIpClientSmtp():new( cSmtpUrl )
// sending data via internet connection
IF oSmtp:open()
oSmtp:sendMail( oEMail )
oSmtp:close()
alert("Mail sent")
ELSE
Alert("Error:", oSmtp:lastErrorMessage())
ENDIF
return