Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/6062824/tecnologia.css |
Portuguese |
Pagetitle | ||||
---|---|---|---|---|
|
Exclui uma mensagem do servidor de e-mail.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
DeleteMsg( < nMsg > )
|
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nMsg | numérico | Indica o número da mensagem que será excluída. | 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. |
Exemplos
Bloco de código | theme | Eclipse|||||||||
---|---|---|---|---|---|---|---|---|---|---|
| title
| 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( 0, .T.3,.T. 3 ) 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:DeleteMsg( 1 ) if nRet <> 0 conout( nRet ) conout( oMail:GetErrorString( nRet ) ) endif endif oMail:Disconnect() return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas