José Carlos eu envio os emails usando a seguinte procedure:
*****************************************************************
* The example outlines the steps required for composing an eMail
* and sending it to an SMTP mail server.
*
PROCEDURE SendMail(cAssunto,cEmail,cCorpo,vArquivo)
*****************************************************************
LOCAL oSmtp, oEMail
LOCAL cSmtpUrl
LOCAL cSubject, cFrom, cTo, cBody, cFile
// preparing data for eMail
SmtpUrl := "smtp://usurario:senha@servidor.smtp.com.br"
cSubject := cAssunto
cFrom := cEmail
cTo := cEmail
cFile := (vArquivo)
cBody := cCorpo
// 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()
return .t.
Alert("Mail sent")
ELSE
Alert("Error:"+oSmtp:lastErrorMessage() )
return .f.
ENDIF
RETURN
*/
funciona sem problemas xharbor 1.10 + gtwvt