Como enviar E-mail no Delphi

Neste artigo iremos desenvolver uma simples aplicaç�o para o envio de e-mail usando o componente TNMSMTP (da paleta FastNet) do Delphi 5.

O objetivo aqui n�o � criar um aplicativo completo para manipulaç�o de de e-mails at� porque este seria um processo um tanto trabalhoso, mas quero aqui somente dar uma dica para sofisticar o seu software, fazendo com que o usu�rio do seu software possa enviar um e-mail (com anexo ou n�o) sem sair da sua aplicaç�o.

Saiba mais: Guia Completo de Delphi

� muito f�cil executar este exemplo, isso porque o Delphi 5 nos oferece o componente TNMSMTP qu faz praticamente todo o trabalho pra n�s. Basta somente alterar algumas propriedades e chamar alguns m�todos para que a mensagem seja enviada corretamente. Ent�o vamos l�:

Siga os passos abaixo para executar este exemplo:

Inicie um novo projeto;
Coloque um componente TNMSMTP (localizado na paleta FastNet) no formul�rio;
Coloque um bot�o e d� um duplo clique sobre ele para acessar o evento OnClick do mesmo;
Escreva o seguinte c�digo:


procedure TForm1.Button1Click(Sender: TObject);
begin
 
  { Aqui voc� coloca o seu servidor SMTP }
  NMSMTP1.Host := 'smtp.servidor.com.br';
 
  { Porta SMTP, Esta porta n�o deve ser alterada!}
  NMSMTP1.Port := 25;
 
  {Seu Nome de login }
  NMSMTP1.UserID := 'SeuLogin';
 
  { Aqui voc� se Conecta ao servidor }
  NMSMTP1.Connect;
 
  { Se ocorrer algum erro durante a conex�o com o servidor, o aplicativo d� uma mensagem de erro }
      if not NMSMTP1.Connected then
         raise Exception.Create('Erro de conex�o');
 
         with NMSMTP1.PostMessage do begin
        {Aqui voc� digita o seu e-mail }
         FromAddress := 'meuemail@meuserver.com.br';
        {Aqui voc� digita seu nome }
         FromName := 'Meu Nome';
        {Aqui o E-mail do destinat�rio }
         ToAddress.Clear;
         ToAddress.Add('destinatario@servidor.com.br');
 
        { Aqui � a parte do assunto da mensagem }
          Subject := 'Assunto da mensagem';
 
        { Este ser� o corpo da mensagem }
          Body.Clear;
          Body.Add('1� linha da mensagem');
          Body.Add('2� linha da mensagem');
          Body.Add(''); { Linha em branco }
          Body.Add('�ltima linha da mensagem');
 
      { Anexar arquivos(Se n�o quiser anexar arquivos pode apagar as tres linhas seguintes) }
 
        Attachments.Clear;
 
      { Aqui deve conter o endereço do anexo }
       Attachments.Add('c:\diretorio_do_arquivo\arquivo.txt');
 
     end;
 
      { Mandar o e-mail }
       NMSMTP1.SendMail;
    { � importante esta parte pois ela disconecta do servidor }
       NMSMTP1.Disconnect;
 end;

Pronto! � s� adaptar as suas necessidades e voc� ter� envio de e-mails em sua aplicaç�o.

Lembrando que, para enviar o mesmo e-mail para m�ltiplos destinat�rios de uma s� vez basta voc� adicionar os endereços de e-mails de todos os destinat�rios em NMSMTP1.PostMessage.ToAdress.

Curso: Curso de Delphi

Se voc� usa o Delphi 7, voc� pode fazer uso dos componentes da Paleta indy.

A depender do provedor voc� pode encontrar problemas para enviar um e-mail, talves voc� precisar� utilizar o componente NMPOP3 para se identificar ao provedor e mais, vale lembrar que nem todos os e-mails gr�tis tem serviço POP3.

Enviar E-mail no Delphi

Neste artigo iremos desenvolver uma simples aplicação para o envio de e-mail usando o componente TNMSMTP (da paleta FastNet) do Delphi 5.

Artigos relacionados