Histórico da Página

GetMailObj ( < cID> ) --> oMail

oMail(objeto)
• Retorna um objeto tMailManager, caso tenha sido encontrado o identificador <cID>; caso contrário retorna Nil.

Esta função deve ser utilizada junto com a SetMailObj.

user function tstmailobj(cSMTPServer, cMailSever, cUser, cPass)Local oSMTPManager := NilLocal oPOPManager := NilLocal nret := 0oSMTPManager:= tMailManager():New()oSMTPManager:Init("", cSMTPServer, cUser, cPass)// CONEXAO SMTP ---------------------------------------oSMTPManager:SetSmtpTimeOut( 120 )nRet := oSMTPManager:SmtpConnect()If nRet != 0  Conout("[SMTPCONNECT] Fail ao conectar" )  Conout("[SMTPCONNECT][ERROR] " + str(nRet,6) , oSMTPManager:GetErrorString(nRet))  Return .F.Else  Conout( "[SMTPCONNECT] Sucess ao conectar" )EndIf	nRet := oSMTPManager:SMTPAuth(cUser, cPass)If nRet != 0  conout("[AUTH] FAIL TRY with USER() and PASS()")  conout("[AUTH][ERROR] " + str(nRet,6) , oSMTPManager:GetErrorString(nRet))  Return .F.else  conout("[AUTH] SUCEEDED TRY with USER() and PASS()")Endif// GUARDA OBJETO COM CONEXAO SMTP ONLYSetMailObj("SMTPCONN", oSMTPManager)// CONEXAO POP ---------------------------------------oPOPManager:= tMailManager():New()oPOPManager:Init(cMailSever, "", cUser, cPass)nRet := oPOPManager:POPConnect()If nRet != 0  Conout("[POPCONNECT] Fail ao conectar" )  Conout("[POPCONNECT][ERROR] " + str(nRet,6) , oSMTPManager:GetErrorString(nRet))  Return .F.Else  Conout( "[POPCONNECT] Sucess ao conectar" )EndIf	// GUARDA OBJETO COM CONEXAO POP ONLYSetMailObj("POPCONN", oPOPManager)Return .T.User Function DummyPOP()Local oMailManager := NilLocal oMessage := NilLocal nError := 0, nCount := 0, nLoop := 0oMailManager  := GetMailObj("POPCONN")nError := oMailManager:GetNumMsgs(@nLoop)If nError <> 0	ConOut(oMailManager:GetErrorString(nError))	Return MsgStop(oMailManager:GetErrorString(nError), "oMailManager:GetNumMsgs")EndIfConOut(cValToChar(nLoop) + " mensagem(ns)")For nCount := 1 To nLoop	oMessage := Nil	oMessage := tMailMessage():New()	oMessage:Clear()		oMessage:Receive(oMailManager, nCount)                                	ConOut("Mensagem " + cValToChar(nCount))                                Next nCountReturn .T.