Exibir origem

Encerra a conexão com o servidor POP - Post Office Protocol.

Sintaxe

PopDisconnect()

Retorno

Nome	Tipo	Descrição
nRet	numérico	Retorna 0 (zero) ao encerrar a conexão com sucesso. Caso contrário, será retornado um código de erro.

Observações

Caso o protocolo IMAP esteja definido para ser utilizado (no arquivo de configuração (INI) do TOTVS Application Server, na seção Mail, a chave Protocol ser definida como o valor "IMAP"), o método irá realizar a desconexão do protocolo IMAP, chamando um comando de Purge antes de desconectar.
Caso o protocolo MAPI esteja definido para ser utilizado (no arquivo de configuração (INI) do TOTVS Application Server, na seção Mail, a chave Protocol ser definida como o valor "MAPI"), o método irá realizar a desconexão do protocolo MAPI, apagando todas as mensagens que foram marcadas para remoção utilizando o método DeleteMsg. Após a desconexão, não será possível o recebimento ou o envio de emails.

Exemplos

#INCLUDE "TOTVS.CH"
#DEFINE EMAIL_ACCOUNT     'p10teste'
#DEFINE EMAIL_PASSWORD    '123'
#DEFINE EMAIL_POPSERVER   'pop3.microsiga.com.br'
#DEFINE EMAIL_SMTPSERVER  'smtp.microsiga.com.br'
User Function tstmail002()
  Local oMail := TMailManager():New()
  Local nRet := 0
  oMail:Init( EMAIL_POPSERVER, EMAIL_SMTPSERVER, EMAIL_ACCOUNT, EMAIL_PASSWORD )
  nret := oMail:PopConnect()
  If nRet == 0
    conout( "Open Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
  nRet := oMail:PopDisconnect()
  If nRet == 0
    conout( "Close Successful" )
  Else
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
  Endif
return