import.css=/download/attachments/6062824/tecnologia.css

Armazena ou apaga um objeto TMailManager na lista de objetos do servidor.

Sintaxe

SetMailObj( < cID >, < oMailObj > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cID

caractere

Indica um identificador, usado para recuperar o objeto armazenado posteriormente.

X


oMailObj

qualquer

Indica um objeto do tipo TMailManager ou nulo.

X


Observações

Exemplos

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("tst@totvs.com.br","daniel.bolognani@totvs.com.br","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