Buscar por:

Enviando email com delphi pelo componente nmsmtp

Código

Neste 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.