Histórico da Página
...
Portuguese | |||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: XmlC14NFile
|
Nome | Tipo | Descrição | Obrigatório | Referência |
cID | Caracter | Indica um identificador, usado para recuperar o objeto armazenado posteriormente. | X | |
oMailObj | Qualquer | Indica um objeto do tipo TMailManager ou nulo. | X |
Nil (Nulo)
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 limpado.
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.
IMPORTANTE: Documentar os parâmetros obrigatórios que estão faltando (3º e 4º).
user function tstmailobj(cSMTPServer, cMailSever, cUser, cPass)Local oSMTPManager := NilLocal oPOPManager := NilLocal nret := 0oSMTPManager:= 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 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 // GUARDA OBJETO COM CONEXAO POP ONLYSetMailObj("POPCONN", oPOPManager)Return .T.User Function DummyPOP()Local oMailManager := NilLocal oMessage := NilLocal nError := 0, nCount := 0, nLoop := 0oMailManager := GetMailObj("POPCONN")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.User Function LIMPAPOP() // LIMPANDO POSICAO POPCONN SetMailObj("POPCONN", NIL)Return
Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas