TOTVSTEC

Árvore de páginas

Cria uma nova pasta de mensagens no servidor IMAP.

Sintaxe

CreateFolder( < cFolder > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cFolder

caractere

Indica o nome da pasta que será criada.

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).
  • Caso cFolder seja uma subpasta, informe a hierarquia das pastas.

Exemplos

#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, 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:CreateFolder( "myfolder" ) )
  
  oMail:Disconnect()
return
  • Sem rótulos