TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

...

Pagetitle
TMailMng:RenameFolder
TMailMng:RenameFolder

Altera o nome da pasta no servidor IMAP.

Sintaxe

Bloco de código
collapsefalse
RenameFolder( < cCurFolder >, < cNewFolder > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cCurFolder

caractere

Indica o nome atual da pasta no servidor IMAP.

X

...


cNewFolder

caractere

Indica o novo nome da pasta.

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

  • O nome informado em cCurFolder deve ser idêntico ao gravado no servidor, caso contrário, a pasta não será encontrada.
  • Utilize esse método somente para conexão IMAP.
  • Caso a conexão utilizada não seja IMAP, será retornado 1 (Operation failed).

Exemplos

titleExemplo 1
Bloco de código
themeEclipse
languagecpp
theme
Eclipse
linenumberstrue
collapsefalse
#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( 1, 3,
.T.
3 )
  Local xRet
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSrvAddr := EMAIL_SERVER
  
  xRet := oMail:Connect()
  if xRet <> 0
    conout( nRet )
    conout( oMail:GetErrorString( nRet ) )
    return
  endif
  
  conout( oMail:RenameFolder( "oldfolder", "newfolder" ) )
  
  oMail:Disconnect()
return