Enviando email com Delphi pelo componente NMSMTP

Nesta dica a seguir vamos enviar um email utilizando o componente NMSMTP do Delphi.

Crie um novo projeto e insira um componente do tipo TNMSMTP na aba FastNet da VCL do Delphi

Adicione ao formulário um objeto Button e coloque o codigo a seguir no evento OnClick do objeto.

procedure TForm1.Button1Click(Sender: TObject);

begin

NMSMTP1.Host := 'servidoremailsmtp.com';

NMSMTP1.UserID := 'nomedousuario'; // Nome do Usuário

NMSMTP1.Connect; // Conecta no servidor smtp

NMSMTP1.PostMessage.FromAddress := 'remetente@seudominio.com';

NMSMTP1.PostMessage.ToAddress.Text := 'destino@dominio.com';

NMSMTP1.PostMessage.Body.Text := 'Coloque aqui sua mensagem';

NMSMTP1.PostMessage.Subject := 'Assunto do Email';

NMSMTP1.SendMail; // Envia o email

end;

Com poucas linhas de código é possivel enviar um email pelo delhi através do componente NMSMTP.

Se você quiser sofisticar sua aplicação pode faze-la buscar valores do e-mail, corpo da mensagem e assunto de um banco de dados ou objetos tipo edit.