Histórico da Página
...
Pagetitle | ||
---|---|---|
|
...
|
...
|
A classe
...
TMailMessage representa uma mensagem de e-mail. Através dela é possível obter todas informações sobre a mensagem carregada e realizar diversas operações, como envio e recebimento de
...
e-mail.
...
TMailMessage possui todos atributos possíveis a uma mensagem de e-mail e podemos utilizar seus métodos para inserir arquivos, documentos e outras mensagens como anexo da mensagem atual.
...
Hierarquia
...
- TMailMessage
Construtores
Inclusão de trecho | ||
---|---|---|
|
...
|
...
Propriedades
Inclusão de trecho | ||||
---|---|---|---|---|
|
...
|
...
Métodos
Inclusão de trecho | ||||
---|---|---|---|---|
|
...
|
...
Observações
- A classe
...
- TMailMessage não possui hierarquia, no entanto é relacionada diretamente com a classe
...
- TMailManager para operações de envio e recebimento de e-mail.
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
O código a seguir demonstra como utilizar a classe tMailMessage: Bloco de código | | |||||||
|
Bloco de código | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| linenumbers
| collapse
| true
| //
|
| |||||||||||
//Exemplo tMailMessageTMailMessage com Imagem //Este exemplo de uso da classetMailMessage 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 oemail 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 <ID_siga.jpg> 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 Teste<br><img src='cid:ID_siga.jpg'> >' //Assim a imagem será carregada normalmente. User Function EnvMail() Local oMailServer :=tMailManager TMailManager():New() Local oMessage :=tMailMessage 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 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 <ID_siga.jpg> 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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas