TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

Recebe uma nova mensagem do servidor populando o objeto da mensagem.

Sintaxe

Receive2( < oServer >, < nMsg > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oServer

objeto

Indica o objeto do servidor de e-mail, criado através da classe TMailMng.

X


nMsg

numérico

Indica o número da mensagem que será criada, recebido através do método TMailMng:GetNumMsgs.

X


Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna 0 (zero) quando o e-mail for recebido com sucesso. Caso contrário, retorna outro valor.

Exemplos

Exemplo 1
user function GetEmails()
  Local nMessages := 0, nI := 0
  Local xRet
  Local oServer, oMessage
  
  oServer := TMailMng():New( 1, .T., .T. )
  
  oServer:cUser := "username" //define the e-mail account username
  oServer:cPass := "password" //define the e-mail account password
  oServer:cSrvAddr := "mail.totvs.com.br" // define the receive server
  
  xRet := oServer:Connect()
  if xRet <> 0
    cMsg := "Could not connect on server: " + oServer:GetErrorString( xRet )
    conout( cMsg )
    return
  endif
  
  oServer:GetNumMsgs( @nMessages )
  conout( "Number of messages: " + cValToChar( nMessages ) )
    
  if nMessages > 0
    oMessage := TMailMessage():New()
    
    for nI := 1 to nMessages
      conout( "Receiving message " + cValToChar( nI ) )
      
      oMessage:Clear()
      xRet := oMessage:Receive2( oServer, nI )
      if xRet <> 0
        conout( "Could not get message " + cValToChar( nI ) + ": " + oServer:GetErrorString( xRet ) )
      endif
    next nI
  endif
  
  xRet := oServer:Disconnect()
  if xRet <> 0
    conout( "Could not disconnect from server: " + oServer:GetErrorString( xRet ) )
  endif
return

Abrangência

Disponível em build superior a 7.00.131227A


  • Sem rótulos