Pablo,
Eu estou usando o harbour baixado pelo svn.
Meu programa de teste que funcionou. ou melhor está funcionando. acabei de testar.
FUNCTION MAIN
CLS
IF Inetestaconectada()=.F.
alert("para testar essa função você deve ter acesso a internet, favor vereficar")
RETURN Nil
ENDIF
Consulta()
RETURN Nil
FUNCTION Consulta
LOCAL oPg :=Win_OleCreateObject("Microsoft.XMLHTTP")
oPg:Open("GET",'http://xxxxxxx.xxx.xx.xxx.br/cgi-bin/EnviaEmail_CGI.exe?Nome=Teste&Assunto=Teste de email Harbour&Destinos=[]Equipe03&CC=[]Equipe07&BCC=asimoesluz@gmail.com&ResponderPara=&Origem=hhelpdes@smf.com&EhErro=F&Html=F&Corpo="Testando envio de email com o Harbour"')
oPg:Send()
DelayResposta(3)
cBuf:=oPg:responseText
IF File("resposta.txt")
FErase("resposta.txt")
ENDIF
EscreveLinha(cBuf,"resposta.txt")
cResposta:=Html2Texto("resposta.txt")
IF Empty(cResposta)
alert("Email não enviado.")
ELSE
alert(cResposta)
ENDIF
quit
RETURN Nil
FUNCTION DelayResposta(nDelay)
FOR I:=1 TO nDelay
Inkey(1)
NEXT
RETURN Nil
FUNCTION Html2Texto(cArq)
LOCAL cTexto:="", cLinha:="", nLinha, nPosIni, nPosFim, cChar
FT_FUSE( cArq )
DO WHILE !FT_FEOF()
cLinha:=FT_FREADLN()
cLinha:=StrTran( cLinha, Chr(12)) // Elimina caracter EJECT
cLinha:=StrTran( cLinha, Chr(13))
FOR nLinha:=1 TO Len(cLinha)
nPosIni:=At('<', cLinha)
nPosFim:=At('>', cLinha)
cChar:=SubStr(cLinha,nPosIni,nPosFim)
cLinha:=StrTran(cLinha,cChar)
//? cLinha, nPosIni, nPosFim
//inkey(0)
IF nPosIni == 0 .AND. nPosFim == 0
EXIT
ENDIF
NEXT
cTexto+=cLinha
FT_FSKIP()
ENDDO
FT_FUSE()
/*<html>
<body>
<center><b><font color="#0000FF">Email enviado com sucesso</font></b></center>
</body>
</html>*/
RETURN cTexto
FUNCTION inetestaconectada( cAddress )
LOCAL aHosts, cName
InetInit()
IF cAddress == NIL
cAddress := "www.google.com.br"
ENDIF
aHosts := InetGetHosts( cAddress )
IF aHosts == NIL .OR. Len(aHosts)=0
InetCleanup()
RETURN .F.
ENDIF
InetCleanup()
RETURN .T.
FUNCTION AbreLinha(nLinha,cArq)
LOCAL I
DEFAULT nLinha TO 1
FOR I:=1 TO nLinha
StrFile(""+HB_OsNewLine(),cArq,.T.)
NEXT
RETURN Nil
FUNCTION EscreveLinha(cVar,cArq)
StrFile(cVar,cArq,.T.)
RETURN Nil