Usando a tranqueira original que vém com XHarbour:

Moderador: Moderadores
Ou provavelmente a rotina que enviaram por email tem uma função substituta pro CreateObject()
TRY
oCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT oCfg:Fields
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServSMTP // Servidor SMTP
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPort
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 // Remote SMTP = 2, local = 1
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := lSSL // .F. Ou .T.
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := TRIM(cUser)
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/sendtls" ):Value = lTLS // Com office365, nao funciona nem a pau.
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := TRIM(cPass)
oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 60 // timeout // era 30
oCfg:Update()
END WITH
lRet := .T.
CATCH oError
MsgInfo( "Não Foi PossÃvel Enviar o E-Mail!" +CRLF+ ;
"Verifique o Remetente " +CRLF+ ;
"Verifique o Destinatário " +CRLF+ ;
"Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ;
"SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ;
"OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ;
"SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
"Mensajem: " + oError:Description, "Atenção " )
END
o problema é com gmai.com. Aqui, neste tópico, eu ensino como configurar.
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes