TOTVSTEC

Pesquisa

Árvore de páginas

Navegar nas páginas

ConfigurarFerramentas do espaço

import.css=/download/attachments/327912/newLayout.css

AddAtthTag('Content-Disposition: attachment; filename=arquivo.txt')

AttachFile

Adiciona (Attach) um arquivo ao objeto de e-mail.

Clear

Limpa o conteúdo do objeto. Desta forma, é possível receber várias mensagens no mesmo objeto, apenas limpando o seu conteúdo antes.

GetAttach

Permite obter o conteúdo do arquivo atachado e retornar esse conteúdo através de uma string.

GetAttachCount

Informa quantidade de arquivos anexados a mensagem.

GetAttachInfo

Apresenta todas as informações de um attachment em alguma mensagem.

Load

Carrega uma mensagem salva em disco para o objeto de e-mail TMailMessage.

Receive

Recebe uma nova mensagem do servidor populando o objeto da mensagem

Save

Salva uma mensagem de e-mail em disco.

SaveAttach

Salva um arquivo anexo a mensagem em disco.

#include "rwmake.ch"
#include "ap5mail.ch"
Static Function SaveAttachExemplo()
Local oMessage 
Local oPopServer
Local aAttInfo 
Local cPopServer := "pop.totvs.com.br"
Local cAccount := "user"
Local cPwd := "pass"
Local nPortPop := 110 
Local nPopResult := 0 
Local nMessages := 0
Local nMessage := 0
Local lMessageDown := .F.
Local nCount := 0
Local nAtach := 0 
Local nMessageDown := 0
oPopServer := TMailManager():New() 
oPopServer:Init(cPopServer , "smpt.totvs.com.br", cAccount, cPwd, nPortPop)
If ( (nPopResult := oPopServer:PopConnect()) == 0)
 //Conta quantas mensagens há no servidor
 oPopServer:GetNumMsgs(@nMessages)
 If( nMessages > 0 )
 oMessage := TMailMessage():New()
 //Verifica todas mensagens no servidor 
 For nMessage := 1 To nMessages
 oMessage:Clear()
 nPopResult := oMessage:Receive( oPopServer, nMessage)
 If (nPopResult == 0 ) //Recebido com sucesso?
 nCount := 0 
 lMessageDown := .F.
 //Verifica todos anexos da mensagem e os salva
 For nAtach := 1 to oMessage:getAttachCount()
 aAttInfo:= oMessage:getAttachInfo(nAtach)
 lSave := oMessage:SaveAttach(nAtach, "c:\arquivos\"+aAttInfo[1])
 Next 
 EndIf
 If lMessageDown 
 nMessageDown++
 EndIf 
 Next
 EndIf
 oPopServer:PopDisconnect()
EndIf
Return

Veja Também

Send

Envia um e-mail, de acordo com os dados passados pelo objeto da classe TMailManager por parâmetro, para a função.

#include "TOTVS.CH"

user Function EMail()

  Local oServer

  Local oMessage

Local nNumMsg := 0

  Local nTam    := 0

Local nI      := 0

  
  //Cria a conexão com o server STMP ( Envio de e-mail )

oServer := TMailManager():New()

  oServer:Init( "", "smtp.microsiga.com.br", "ricardo.reis", "rica4758", 0, 25 )

  
  //seta um tempo de time out com servidor de 1min

If oServer:SetSmtpTimeOut( 60 ) != 0

    Conout( "Falha ao setar o time out" )

Return .F.

EndIf

  
  //realiza a conexão SMTP

  If oServer:SmtpConnect() != 0

    Conout( "Falha ao conectar" )

Return .F.

  EndIf

  
  //Apos a conexão, cria o objeto da mensagem

oMessage := TMailMessage():New()

  
  //Limpa o objeto

  oMessage:Clear()

  
  //Popula com os dados de envio

  oMessage:cFrom              := "Microsiga "

  oMessage:cTo                := "[email protected];[email protected]"

  oMessage:cCc                := "[email protected]"

oMessage:cBcc               := "[email protected]"

oMessage:cSubject 

          := "Teste de Email"

  oMessage:cBody              := "Conteudo do e-mail"

  
  //Adiciona um attach

  If oMessage:AttachFile( "arquivo.txt" ) < 0

Conout( "Erro ao atachar o arquivo" )

    Return .F.

  Else

//adiciona uma tag informando que é um attach e o nome do arq

oMessage:AddAtthTag( 'Content-Disposition: attachment; filename=arquivo.txt')

EndIf

  
  //Envia o e-mail

  If oMessage:Send( oServer ) != 0

Conout( "Erro ao enviar o e-mail

" )
    Return .F.

  EndIf

  
  //Desconecta do servidor

If oServer:SmtpDisconnect() != 0

    Conout( "Erro ao disconectar do servidor SMTP" )

Return .F.

EndIf

  
  //Cria uma nova conexão, agora de POP

oServer := TMailManager():New()

oServer:Init( "pop3.microsiga.com.br", "", "SeunomeAntesDo@", "senhaDoEmail", 0, 110 )

  If oServer:SetPopTimeOut( 60 ) != 0

    Conout( "Falha ao setar o time out" )

Return .F.

  EndIf

  If oServer:PopConnect() != 0

    Conout( "Falha ao conectar" )

Return .F.

  EndIf

  
  //Recebe o número de mensagens do servidor

oServer:GetNumMsgs( @nNumMsg )

nTam := nNumMsg

  For nI := 1 To nTam

//Limpa o objeto da mensagem

    oMessage:Clear()

    
    //Recebe

 a mensagem do servidor
    oMessage:Receive( oServer, nI )

    
    //Escreve no server os dados do e-mail recebido

    Conout( oMessage:cFrom )

Conout( oMessage:cTo )

Conout( oMessage:cCc )

Conout( oMessage:cSubject )

    Conout( oMessage:cBody )

  Next

  
  //Deleta todas as mensagens do servidor

  For nI := 1 To nTam

oServer:DeleteMsg( nI )

Next

  
  //Desconecta do servidor POP

  oServer:POPDisconnect()

Return .T.

//Exemplo TMailMessage com Imagem

//Este exemplo de uso da classe 

TMailMessage, visa o uso e explicação de dois métodos da classe:

//SetConfirmRead() e AddAttHTag().

//SetConfirmRead() tem como objetivo, mandar uma solicitação de resposta de Leitura para a pessoa

//que receber o 

e-mail, podendo ela optar por mandar ou não.

//AddAttHTag() tem como objetivo incluir tags no cabeçalho(header) da mensagem. Obs: este cabeçalho

//não é cabeçalho do corpo da mensagem.

//Neste exemplo da função usaremos uma tag para colocarmos a imagem no corpo do texto, após

//carregar a imagem, atribuimos um ID para ele, da seguinte forma: 'Content-ID: 

<ID_siga.

jpg>'
//A parte em negrito significa o ID que atribuimos para a imagem, o que está entre as aspas deve

//ser seguido por padrão com o protocolo.

//Note que quando criamos o html que compõe a mensagem usamos esse ID:

//oMessage:cBody   := '

Teste<br><img src='cid:ID_siga.jpg'

>'

//Assim a imagem será carregada normalmente.

User Function EnvMail()

Local oMailServer := TMailManager():New()

  Local oMessage := TMailMessage():New()

  Local nErro := 0

  oMailServer:Init( "", "smtp.microsiga.com.br", "", "", 0, 25 )

  If( (nErro := oMailServer:SmtpConnect()) != 0 )

    conout( "Não conectou.", oMailServer:GetErrorString( nErro ) )

    Return

EndIf

  oMessage:Clear()

oMessage:cFrom           := "[email protected]"

  
  //Altere

oMessage:cTo             := "[email protected]"

  
  //Altere

  oMessage:cCc             := ""

  oMessage:cBcc            := ""

  oMessage:cSubject        := "Teste de envio d e-mail"

  oMessage:cBody           :=

 "Teste<br><img src='cid:ID_siga.jpg'

>"
  oMessage:MsgBodyType( "text/html" )

  
  // Para solicitar confimação de envio

  //oMessage:SetConfirmRead( .T. )

  
  // Adiciona um anexo, nesse caso a imagem esta no root

oMessage:AttachFile( '\siga.jpg' )

  
  // Essa tag, é a referecia para o arquivo ser mostrado no corpo, o nome declarado nela deve ser o usado no HTML

  oMessage:AddAttHTag( 'Content-ID: 

<ID_siga.

jpg>' )

  nErro := oMessage:Send( oMailServer )
  If( 

nErro != 0 )

    conout( "Não enviou o e-mail.", oMailServer:GetErrorString( nErro ) )

Return
  EndIf

nErro := oMailServer:SmtpDisconnect()

  If( nErro != 0 )

conout( "Não desconectou.", oMailServer:GetErrorString( nErro ) )

    Return

EndIf

Return

Abrangência

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

Veja

...

também

• TMailManager

...

• TMailMng