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 »

Copia uma mensagem da pasta corrente, do servidor IMAP, para outra pasta ou a mesma.

Sintaxe

CopyMsg( < nMsg >, < cFolder > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nMsg

numérico

Indica o número sequencial da mensagem no servidor IMAP.

X

 

cFolder

caractere

Indica o nome da pasta, do servidor IMAP, para qual a mensagem será transferida.

X

 

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

  • Utilize esse método somente para conexão IMAP.
  • Caso a conexão utilizada não seja IMAP, será retornado 1 (Operation failed).

Exemplos

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

User Function mail004()
  Local oMail := TMailMng():New( 1, .T. )
  Local nRet := 0
  Local nNumMsg := 0
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSrvAddr := EMAIL_SERVER
  
  nRet := oMail:Connect()
  if nRet <> 0
    conout( nret )
    conout( oMail:GetErrorString( nret ) )
    return
  endif
  
  nRet := oMail:GetNumMsgs( @nNumMsg )
  if nRet == 0
    conout( "Count Successful" )
    conout( nNumMsg )
  else
    conout( nRet )
    conout( oMail:GetErrorString( nRet ) )
  endif
  
  if nNumMsg > 0
    nRet := oMail:CopyMsg( 1, "otherfolder" )
    if nRet <> 0
      conout( nRet )
      conout( oMail:GetErrorString( nRet ) )
    endif
  endif
  
  oMail:Disconnect()
 return
  • Sem rótulos