Sendmail Harbour

[rafael]

Amigos,

Eu utilizava sendmail no xHarbour a um bom tempo já. Quando migrei para o Harbour 3.1 parou de enviar e-mail.
Ficando parado na tela quando tento enviar qualquer e-mail.

Ao encontrar o ponto onde parava notei o seguinte

Código: Selecionar todos

IF oInMail:Opensecure()

         WHILE .T.
            oInMail:GetOk()
            //IF oInMail:cReply == NIL  /// Troquei este IF pelo IF abaixo ... este no harbour não sai do while      
            IF empty(oInMail:cReply) /// Quando troquei para empty o e-mail é enviado normalmente
               EXIT
            ELSEIF "LOGIN" $ oInMail:cReply
               lAuthLogin := .T.
            ELSEIF "PLAIN" $ oInMail:cReply
               lAuthPlain := .T.
            ENDIF
         END

Fiquei na duvida do porque desta incompatibilidade ou se faltou algo na complilação?

Obrigado
Abraços

[Stanis Luksys]

Pode não ser o caso, mas se você está migrando, linke junto a lib xhb.lib, e coloque nos seus prgs

Código: Selecionar todos

#include "xhb.ch"

Abraços.

[rafael]

Stanis

Eu estou usando isso no .hbp

Código: Selecionar todos

-head=full
-n
-inc
-lhbtip
-lhbct
-lxhb

[rochinha]

Amiguinho,

É bem possivel mesmo que o retorno agora seja diferente do que na versão anterior a qual voce usava.