TOTVSTEC

Árvore de páginas

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

  • 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 limpo.
  • 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.
  • Função deve ser utilizada apenas para conexões IMAP e só armazena o Objeto caso já esteja 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

Veja também

  • Sem rótulos