//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 email, 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.
#include "TOTVS.CH"
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 |