TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Adriana Panseri Santos

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Daniel Otto Bolognani

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

SetMailObj

...

Colapse ALL

...

...

SetMailObj

Armazena

...

ou

...

apaga

...

um

...

objeto

...

TMailManager na

...

lista

...

de

...

objetos

...

do

...

servidor.

Sintaxe

Bloco de código
collapsefalse
SetMailObj( <
cID>
 cID >, <
oMailObj> ) --> Nil
 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

...

 

Nil (Nulo)

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 apenas deve ser utilizada para conexões IMAP e só armazena o Objeto caso já esteja conectado ao servidor IMAP.

Exemplos

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
User Function

 

Exemplos
user function
 tstmailobj(cSMTPServer,
cMailSever
cMailServer, cUser, cPass)
  Local
oSMTPManager
oImapManager :=
NilLocal
Nil
oPOPManager
:= NilLocal
Local nret :=
0oSMTPManager
0
  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 != 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 
 sErro := oImapManager:GetErrorString( nRet )
    Conout( sErro )
    return -1 
  endif
  // GUARDA OBJETO COM CONEXAO IMAP
POP
ONLY
ONLYSetMailObj
SetMailObj("
POPCONN
IMAPCONN",
oPOPManager
oImapMan)
  
Return .T.

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

Abrangência

Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

Veja

...

também