GetMailObj

Obtém o objeto de e-mail tMailManager, conectado previamente com a conexão IMAP, referente ao valor informado no parâmetro <cID>.

Sintaxe

GetMailObj( < 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

Exemplo 1

User Function tstmailobj(cSMTPServer, cMailServer, cUser, cPass)
  Local oImapManager := Nil
  Local nret := 0
  oImapManager:= tMailManager():New()
  oImapManager:SetUseSSL(.T.)
  oImapManager:SetUseTLS(.T.)
  oImapManager:Init(cMailServer, "", cUser, cPass)
  nRet := oImapManager:ImapConnect()
  if nRet != 0
    sErro := oImapManager:GetErrorString( nRet )
    Conout( sErro )
    return -1 
  endif
  // GUARDA OBJETO COM CONEXAO IMAP ONLY
  SetMailObj("IMAPCONN", oImapMan)
  
Return .T.

User Function DummyPOP()
  Local oMailManager := Nil
  Local oMessage := Nil
  Local nError := 0, nCount := 0, nLoop := 0
  oMailManager  := GetMailObj("IMAPCONN")
  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

Árvore de páginas