Histórico da Página
Pagetitle | ||||
---|---|---|---|---|
|
Composition Setup |
---|
import.css=/download/attachments/6062824/tecnologia.css
|
...
Exclui uma mensagem do servidor de e-mail.
Sintaxe
Bloco de código |
---|
numérico 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) se encontrar e excluir a mensagem caso contrário, será retornado o código de erro ocorrido. |
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "TOTVS.CH"
#DEFINE EMAIL_ACCOUNT 'p10teste'
#DEFINE EMAIL_PASSWORD '123'
#DEFINE EMAIL_POPSERVER 'pop3.provedor.com.br'
#DEFINE EMAIL_SMTPSERVER 'smtp.provedor.com.br'
User Function mail004()
Local oMail := tMailManagerTMailManager():NEW New() Local nRet := 0 Local nNumMsg := 0 oMail:Init( EMAIL_POPSERVER, EMAIL_SMTPSERVER, EMAIL_ACCOUNT, EMAIL_PASSWORD ) nret := oMail:PopConnect() If nRet == 0 conout( "Open Successful" ) Else conout( nret ) conout( oMail:GetErrorString( nret ) ) 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( "Delete Successful" ) conout( nNumMsg ) Else conout( nret ) conout( oMail:GetErrorString( nret ) ) Endif Else conout( "não há mensagens para deletar" ) Endif oMail:PopDisConnect() Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas