Enviando emails com Delphi - Parte I

O email é há bastante tempo uma ferramenta corriqueira, das mais usadas nesses tempos de internet. Mas, a utilidade dele não está restrita à troca de informações entre pessoas - seja por razões pessoais ou profissionais. Um sistema computacional também pode tirar proveito dessa ferramenta ao permitir, por exemplo, notificar usuários a respeito de alguma ocorrência no escopo do sistema.

Num sistema, são diversas as situações onde o envio de um email é aplicável: uma situação de erro encontrada, algum problema potencial que exija intervenção do usuário, alguma ação dentro de um workflow (por exemplo, uma aprovação que necessite do aval do usuário), troca de correspondência automática com Clientes e Fornecedores (envio de um pedido ou de uma cotação, por exemplo), remeter informações em forma de relatórios para lastrear tomadas de decisões, etc.

A forma mais utilizada para enviar de emails é através do protocolo SMTP - Simple Mail Transfer Protocol. Este é um protocolo simples, constituído pela troca de mensagens em formato texto enviadas numa ordem precisa através de TCP/IP. Mesmo sendo um protocolo relativamente simples, é mais fácil usar classes prontas que o implementem, como as publicadas pelo Projeto Indy e que são distribuídas junto com o IDE do Delphi e do C++ Builder.

Um exemplo básico usando as classes do Indy pode ser visto no quadro abaixo. Ele mostra o uso de algumas das principais propriedades necessárias para concretizar um envio:

var IdSMTP : TIdSMTP;
IdMessage : TIdMessage;
begin
IdSMTP := TIdSMTP.Create (Nil);
IdMessage := TIdMessage.Create (Nil);

{ Informações básicas para uma conexão }
IdSMTP.Host := edServidor.Text;
IdSMTP.Port := edPorta.Text;

{ Tenta conectar no servidor, aguardando no máximo um minuto }
IdSMTP.Connect (60000);

{ Nome e endereço de quem está enviando }
IdMessage.From.Address := edEnderecoDe.Text;
IdMessage.From.Name := edNomeDe.Text;

{ Destinatários }
IdMessage.Recipients.EMailAddresses := edEnderecoPara.Text;

{ Destinatários em cópia }
IdMessage.CCList.EMailAddresses := edCcPara.Text;

{ Destinatários em cópia oculta }
IdMessage.BccList.EMailAddresses := edBCcPara.Text;

{ Endereço para resposta, isto é, se um destinatário der um "reply", a resposta será enviada para este endereço }
IdMessage.ReplyTo.EMailAddresses := edResponderPara.Text;

{ Assunto da mensagem }
IdMessage.Subject := edAssunto.Text;

{ Corpo da mensagem, isto é, o texto dela }
IdMessage.Body.Text = edMensagem.Text;

{ Envia o e-mail }
IdSMTP.Send (IdMessage);

{ Desconecta }
IdSMTP.Disconnect ();

FreeAndNil (IdMessage);
FreeAndNil (IdSMTP);
end;

Esse é o exemplo mais básico possível, acessando um servidor de email que não exige autenticação nem conexão segura. A mensagem enviada também é simples - apenas texto comum, sem anexos. Ele demonstra a interação entre as classes TIdSMTP (que implementa o protocolo de comunicação em si) e TIdMessage (que contem a mensagem que será enviada). Primeiro, uso o TIdSMTP para estabelecer uma conexão com o servidor; uma vez conectado, ele pode enviar a mensagem previamente preparada; finalmente, depois que o email foi enviado, pode-se solicitar a desconexão ao servidor.

Dificilmente um servidor de email hoje não exigirá autenticação do usuário. Mas, essa configuração é trivial, bastando passar o nome do usuário e sua senha antes de tentar se conectar :

if (UsaAutenticacao) then
begin
IdSMTP.AuthenticationType := atLogin;
IdSMTP.Username := edUsuario.Text;
IdSMTP.Password := edSenha.Text;
end;

Ajustar o valor da propriedade AuthenticationType também é necessário pois é ela que instrui o componente a submeter a autenticação.

Já adicionar segurança na comunicação através de SSL ou TLS demandará um pouco mais de trabalho. Isso envolve a criação de instância de uma nova classe - TIdSSLIOHandlerSocket (na versão 9 do Indy) ou TIdSSLIOHandlerSocketOpenSSL (na versão 10). O código abaixo mostra um exemplo:

_SslHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
_SslHandler.SSLOptions.Method := sslvSSLv23;
_SslHandler.SSLOptions.Mode := sslmClient;

{ Associa ao SMTP a configuração para segurança }
IdSMTP.IOHandler := _SslHandler;

O código até que é relativamente simples. A instância da classe é criada e são ajustadas algumas propriedades, como a versão do protocolo (método de autenticação) que será usada. Caso seja necessário associar um certificado digital ao envio, as opções do SSL permitem fazer as configurações pertinentes. Antes do SMTP se conectar, o novo manipulador para comunicação segura é atribuído à instância da classe de envio.

O problema é que o Indy não implementa SSL nem TLS. As classes disponibilizadas apenas mapeiam o funcionamento existente nas bibliotecas mantidas pelo Projeto OpenSSL, um projeto open source dedicado exclusivamente à segurança de comunicação baseada em criptografia e nos protocolos SSL/TLS. Há diversas versões das bibliotecas do OpenSSL espalhadas pela internet, compatíveis com inúmeras versões de Delphi/C++ Builder e diferentes sistemas operacionais. Em último caso, o site do projeto disponibiliza os fontes para quem preferir gerar sua própria versão.

Anexar arquivos à mensagem também requer uma nova classe mas o uso dela é mais simples. Para cada arquivo que desejar anexar, instancie um TIdAttachment vinculado à mensagem antes de enviá-la:

TIdAttachment.Create (
IdMessage.MessageParts,
'c:\temp\arq.doc');

O primeiro parâmetro passado ao construtor é uma estrutura da mensagem onde são armazenadas partes externas que a constituem (como os anexos). O outro parâmetro é o nome de um arquivo mas, na versão 10 do Indy, há mecanismos para você anexar diretamente um stream qualquer, isto é, não é preciso que seja um arquivo.

Pode parecer estranho chamar o construtor e não atribuir o resultado a variável alguma. Acontece que, ao vincular o anexo ao MessageParts, este passa a ser responsável por devolver os recursos usados (memória). Então, não é preciso manter uma variável com a instância nem aplicar-lhe o destrutor quando não for mais usada já que isso será feito automaticamente.

Em outros posts, mostro como enviar email no formato HTML, inclusive usando o componente PageProducer para gerar conteúdo. Também mostrarei como incluir imagens embutidas no HTML a ser enviado.

Mais Informações
SMTP no Wikipedia, Projeto Indy, Projeto OpenSSL