segunda-feira, 22 de julho de 2013

Enviando e-mails com Delphi 5


Nesta matéria iremos aprender como enviar e-mails através da manipulação do componente TNMSMTP. Faça o seguinte:
1) Crie um novo projeto e insira um componente do tipo TNMSMTP.
2) Adicione ao formulário um componente do tipo TButton e coloque o código abaixo no evento OnClick do objeto.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMSMTP1.Host := 'seuservidordeemail.com'; 
  NMSMTP1.UserID := 'nomedousuario'; 
  NMSMTP1.Connect; // Conecta no servidor 
  NMSMTP1.PostMessage.FromAddress := 'voce@seudominio.com'; 
  NMSMTP1.PostMessage.ToAddress.Text := 'cliente@xxx.com'; 
  NMSMTP1.PostMessage.Body.Text := 'Coloque aqui a mensagem'; 
  NMSMTP1.PostMessage.Subject := 'Titulo do E-mail'; 
  NMSMTP1.SendMail; // Envia e-mail 
end; 

  Vamos analisar o código:

  No bloco que segue, configuramos o HOST e o UserId da conta SMTP do usuário.

  NMSMTP1.Host := 'seuservidordeemail.com'; 
  NMSMTP1.UserID := 'nomedousuario'; 

  Vejamos um exemplo mais claro:

  NMSMTP1.Host := 'activedelphi.com.br'; 
  NMSMTP1.UserID := 'suporte@activedelphi.com.br'; 

  Ou então:

  NMSMTP1.Host := 'smtp.activedelphi.com.br'; 
  NMSMTP1.UserID := 'suporte'; 

  No bloco seguinte, conectamos ao servidor SMTP:

  NMSMTP1.Connect; // Conecta no servidor

  A seguir, configuramos o endereço do remetente:

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

  E o endereço do destinatário:

  NMSMTP1.PostMessage.ToAddress.Text := 'cliente@xxx.com';

  Na linha que segue, estamos configurando o texto da mensagem:
  
  NMSMTP1.PostMessage.Body.Text := 'Coloque aqui a mensagem';

  A seguir, configuramos o título do e-mail ou do assunto:

  NMSMTP1.PostMessage.Subject := 'Titulo do E-mail';

  E finalmente enviamos o e-mail:

  NMSMTP1.SendMail; // Envia e-mail

  Com poucas linhas de código enviamos um e-mail através do componente NMSMTP.

  autor: Emerson Facunte 
  e- mail: emerson@facunte.com.br 

Nenhum comentário:

Postar um comentário