Enviando e-mail com Delphi pelo componente NMSMTP

Nesta rotina a seguir vamos enviar um e-mail 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 código 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 := ‘[email protected]’;
NMSMTP1.PostMessage.ToAddress.Text := ‘[email protected]’;
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 é possível enviar um e-mail pelo Delphi 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.