[Artigos]  Enviando e-mails com Delphi 5 Publicado por Admin : Quinta, Dezembro 19, 2002 - 05:33 GMT-3 (7847 leituras)  3 Comentários    Enviar para um amigo    Versão para impressão 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

Comentários

Ordem:  Os mais antigos primeiro Os mais recentes primeiro Melhores primeiro

Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.

por: tiago.veras (tiagovera.s@hotmail.com) : Fev 12, 2015 - 05:53 (Informações sobre o membro | Enviar uma mensagem) http://

Usei o Delphi 7 Na aba Indy Clients/ Componente IdSMTP1 mas o componente não reconhece o comando PostMessage

[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados