Histórico da Página

import.css=/download/attachments/6062824/tecnologia.css

Conecta com o servidor SMTP, para envio de emails.

Sintaxe

SMTPConnect()

Retorno

Observações

• O método levará em conta as propriedades lAuthLogin, lAuthNTLM, lAuthPlain e lExtendSMTP para fazer a conexão.
• Caso esteja configurado o protocolo MAPI, o método retornará 1 (Operation failed).
• A classe irá se conectar com o servidor configurado na propriedade cSMTPAddr, fazendo login com o nome de usuário configurado na prorpiedade cUser e senha configurada na propriedade cPass.
• A propriedade lSMTPConnected indicará se o objeto está ou não conectado ao servidor configurado.

Exemplos

#INCLUDE "TOTVS.CH"
#DEFINE EMAIL_ACCOUNT           'p10teste'
#DEFINE EMAIL_PASSWORD          '123'
#DEFINE EMAIL_SERVER            'mail.totvs.com.br'

User Function mail001()
  Local oMail := TMailMng():New( 0, 

3, 3 ) // Configurado SMTP+SSL
  Local nRet := 0
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSMTPAddr := EMAIL_SERVER
  
  nRet := oMail:SMTPConnect()
  If nRet == 0
    conout( "Sucess" )
  Else
    conout( nRet )
    conout( oMail:GetErrorString( nRet ) )
  Endif
  oMail:SMTPDisconnect()
return