Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
| Pagetitle |
|---|
...
|
...
...
...
|
Obtém
...
o
...
objeto
...
de
...
...
tMailManager,
...
referente
...
ao
...
valor
...
informado
...
no
...
parâmetro
...
<cID>.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
GetMailObj( <cID> ) --> oMail cID > )
|
Parâmetros
...
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cID |
...
caractere | Indica um identificador para recuperar o objeto armazenado. | X |
|
Retorno
...
Nome | Tipo | Descrição |
|---|---|---|
oMail | objeto | Retorna um objeto tMailManager, caso tenha sido encontrado o identificador <cID>; caso contrário retorna Nil. |
Observações
- Esta função deve ser utilizada junto com a SetMailObj.
- Função apenas deve ser utilizada para conexões IMAP e só recupera o Objeto caso ele tenha sido armazenado conectado ao servidor IMAP.
Exemplos
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Functionuser function tstmailobj(cSMTPServer, cMailSevercMailServer, cUser, cPass) LocaloSMTPManager oImapManager :=NilLocal NiloPOPManager := NilLocalLocal nret := 00oSMTPManager oImapManager:= 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 oImapManager:SetUseSSL(.T.) oImapManager:SetUseTLS(.T.) oImapManager:Init(cMailServer, "", cUser, cPass) nRet := oImapManager:ImapConnect() if nRet != 0conout("[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 sErro := oImapManager:GetErrorString( nRet ) Conout( sErro ) return -1 endif // GUARDA OBJETO COM CONEXAO IMAP ONLYPOP ONLYSetMailObjSetMailObj("POPCONN IMAPCONN",oPOPManager oImapMan) Return .T. User Function DummyPOP() Local oMailManager := NilNilLocal Local oMessage := NilNilLocal Local nError := 0, nCount := 0, nLoop :=0oMailManager 0 oMailManager := GetMailObj("POPCONN IMAPCONN")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. if ValType(oMailManager) == 'U'
ConOut("Não foi possível recuperar o MailManager")
Return MsgStop("Não foi possível recuperar o MailManager")
endif
lRet := oMailManager:SendMail("[email protected]","[email protected]","TESTE","TESTETESTETESTE","","",{},0)
If nError <> 0
ConOut(oMailManager:GetErrorString(nError))
Return MsgStop(oMailManager:GetErrorString(nError), "oMailManager:SendMail")
EndIf
Return .T.
User Function LIMPAPOP()
// LIMPANDO POSICAO POPCONN
SetMailObj("IMAPCONN", NIL)
Return
|
Abrangência
Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10
Veja
...
também
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas