Enviando e-mail com Delphi pelo componente NMSMTP
Compartilhe :

Aqui está uma versão otimizada da sua publicação, com mais clareza, organização e SEO aprimorado:

Como Enviar E-mail no Delphi com o Componente NMSMTP

Enviando E-mails no Delphi com NMSMTP

O Delphi permite o envio de e-mails por meio do componente TNMSMTP, disponível na aba FastNet da VCL. Neste tutorial, você aprenderá a configurar e enviar um e-mail com poucas linhas de código.

🚀 Passo a Passo

1️⃣ Crie um novo projeto no Delphi.
2️⃣ Arraste um componente TNMSMTP para o formulário.
3️⃣ Adicione um botão (TButton) e insira o código abaixo no evento OnClick:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.seuprovedor.com'; // Servidor SMTP
  NMSMTP1.UserID := 'seu_usuario'; // Usuário do servidor SMTP
  NMSMTP1.Password := 'sua_senha'; // Senha do e-mail

  NMSMTP1.Connect; // Conecta ao servidor SMTP

  // Configuração da mensagem
  NMSMTP1.PostMessage.FromAddress := '[email protected]';
  NMSMTP1.PostMessage.ToAddress.Text := '[email protected]';
  NMSMTP1.PostMessage.Subject := 'Assunto do E-mail';
  NMSMTP1.PostMessage.Body.Text := 'Este é um teste de envio de e-mail pelo Delphi!';

  NMSMTP1.SendMail; // Envia o e-mail

  NMSMTP1.Disconnect; // Desconecta do servidor SMTP
end;

🔹 Melhorando o Código

✔️ Evite credenciais fixas no código: Para maior segurança, armazene os dados em variáveis de ambiente ou um banco de dados.
✔️ Validação: Verifique se os campos necessários (e-mail do remetente e destinatário) estão preenchidos antes do envio.
✔️ Leitura Dinâmica: Você pode buscar o destinatário, assunto e corpo do e-mail de TEdit, TMemo ou de um banco de dados.

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.seuprovedor.com';
  NMSMTP1.UserID := EditUsuario.Text;  
  NMSMTP1.Password := EditSenha.Text;  

  NMSMTP1.Connect;  

  NMSMTP1.PostMessage.FromAddress := EditRemetente.Text;
  NMSMTP1.PostMessage.ToAddress.Text := EditDestinatario.Text;
  NMSMTP1.PostMessage.Subject := EditAssunto.Text;
  NMSMTP1.PostMessage.Body.Text := MemoMensagem.Text;

  NMSMTP1.SendMail;  
  NMSMTP1.Disconnect;  
end;

🛠 Alternativas para Enviar E-mails no Delphi

Se precisar de mais segurança e suporte para autenticação TLS/SSL, considere utilizar componentes mais modernos, como:

✅ Indy (TIdSMTP) – suporta SMTP autenticado com criptografia TLS/SSL.
✅ Synapse – biblioteca leve para envio de e-mails via SMTP.

🔑 Exemplo com TIdSMTP (Indy)

uses
  IdSMTP, IdMessage, IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
begin
  SMTP := TIdSMTP.Create(nil);
  Msg := TIdMessage.Create(nil);
  try
    SMTP.Host := 'smtp.seuprovedor.com';
    SMTP.Username := 'seu_usuario';
    SMTP.Password := 'sua_senha';
    SMTP.Port := 587;
    
    // Habilita SSL/TLS
    SMTP.UseTLS := utUseExplicitTLS;
    SMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);

    Msg.From.Address := '[email protected]';
    Msg.Recipients.EmailAddresses := '[email protected]';
    Msg.Subject := 'Assunto do E-mail';
    Msg.Body.Text := 'Este é um teste de e-mail usando Indy no Delphi!';

    SMTP.Connect;
    SMTP.Send(Msg);
    SMTP.Disconnect;
  finally
    SMTP.Free;
    Msg.Free;
  end;
end;

🔎 Conclusão

Com o TNMSMTP, você pode enviar e-mails no Delphi com facilidade. No entanto, para um ambiente mais seguro e profissional, prefira componentes como TIdSMTP (Indy) que suportam autenticação segura.

📌 Gostou do tutorial? Compartilhe e deixe seu comentário!

😊🚀


Compartilhe :

Posts Similares