SetMailObj

SetMailObj ( < cID>, < oMailObj> ) --> Nil

• Esta função, pode ser utilizada para armazenar um objeto de conexão de e-mail (TMailManager), assim como limpar o objeto já gravado anteriormente.

• Sempre deve ser passado uma string como ID de referência para o objeto que será gravado ou limpado.

• Quando for informado um valor nulo, no parâmetro [oMailObj], o item com o identificador <cID> será removido da lista de objetos de e-mail.

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.User Function LIMPAPOP()  // LIMPANDO POSICAO POPCONN  SetMailObj("POPCONN", NIL)Return