A classe TMailManager realiza a comunicação com o servidor de e-mail. Ela permite a utilização dos seguintes protocolos:
HierarquiatClassInstance |
O código a seguir demonstra como utilizar a classe TMailManager:
// Este exemplo tem como objetivo principal documentar a classe TMailManager, com // foco nas funçoes que são usadas apenas por conexão IMAP. //----------------------------------------------------------------------------------- // Este exemplo irá fazer basicamente manipulação dos folders de uma conta de email, // através de uma conexão com o servidor IMAP. Ex: imap.microsiga.com.br //----------------------------------------------------------------------------------- #include "TOTVS.CH" User Function tstIMAP() Local aStPastas := {} Local sFolder := "TSTIMAP" Local sErro := "" Local lRet Private oMailManager oMailManager := TMailManager():New() //uso a função init para setar os dados. nErro := oMailManager:Init( "imap.microsiga.com.br", "" , "seuNomeAntesDo@", "senhadoemail" ) If nErro != 0 sErro := oMailManager:GetErrorString( nErro ) Conout( sErro ) Return .F. EndIf //realizo uma CONEXAO IMAP // Necessario configurar no arquivo .ini do server // [MAIL] // Protocol=IMAP nErro := oMailManager:IMAPConnect() If nErro != 0 sErro := oMailManager:GetErrorString( nErro ) Conout( sErro ) Return .F. EndIf //informo o server que iremos trabalhar com ID real da mensagem oMailManager:SetUseRealID( .T. ) //tento ir para o folder TSTIMAP If !oMailManager:ChangeFolder( sFolder ) //entra aqui pq o folder nao existe, entao crio ele //tento criar o folder no server IMAP If !oMailManager:CreateFolder( sFolder ) Conout( "Erro na criação do folder" ) lRet := .F. else //set o folder como assinado, para aparecer If !oMailManager:SetFolderSubscribe( sFolder, .T. ) Conout( "Erro na assinatura do folder" ) EndIf EndIf EndIf //pego os folders(pastas) existentes no servidor, incluido o TSTIMAP GetFolderList( @aStPastas ) varinfo( "PASTAS", aStPastas ) //Verificamos o folder corrente em uso sFolder := oMailManager:GetFolder() conout( "Folder Corrente" + sFolder ) If !oMailManager:DeleteFolder( sFolder ) conout( "nao foi possivel deletar a pasta" + sFolder ) EndIf oMailManager:IMAPDisconnect() return .T. Static function GetFolderList( aStPastas ) Local nI := 0, nTam := 0 Local aTemp := {} Local aFolder aTemp := oMailManager:GetFolderList() nTam := Len( aTemp ) For nI := 1 To nTam //crio um array temp {nome, nTotalMensagens, nMensagensNaoLidas, lAssinada} aFolder := {} aAdd( aFolder, aTemp[ nI ][1] ) aAdd( aFolder, aTemp[ nI ][3] ) aAdd( aFolder, aTemp[ nI ][5] ) aAdd( aFolder, .T. ) //adiciono no array de referencia do parametro aAdd( aStPastas, aFolder ) aFolder := NIL Next Return .T. |