TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Conecta com o servidor de recebimento de emails.

Sintaxe

Connect()

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna 0 (zero) quando a operação é completada com sucesso; caso contrário, retornará um código de erro.

Observações

  • O método fará a conexão dependendo do protocolo configurado no construtor da classe.
  • Caso esteja configurado o protocolo IMAP, a classe levará em conta as propriedades lAuthLogin e lAuthNTLM para fazer a conexão.
  • Caso esteja configurado o protocolo MAPI, a conexão serve para recebimento e envio de emails.
  • A classe irá se conectar com o servidor configurado na propriedade cSrvAddr, fazendo login com o nome de usuário configurado na prorpiedade cUser e senha configurada na propriedade cPass.
  • A propriedade lConnected indicará se o objeto está ou não conectado ao servidor configurado.

Exemplos

Exemplo 1
#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, .T. ) // Configurado POP3+SSL
  Local nRet := 0
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSrvAddr := EMAIL_SERVER
  
  nRet := oMail:Connect()
  If nRet == 0
    conout( "Sucess" )
  Else
    conout( nRet )
    conout( oMail:GetErrorString( nRet ) )
  Endif
  oMail:Disconnect()
return
  • Sem rótulos