Envio de e-mail pelo Delphi
Caro colegas, peguei uma rotina para envio de e-mail por um programa feito no Delphi e apos a conecxão e executado o comando de envio ( smtp.sendmail ) o qual gera o seguinte erro ( 554 Error : no valid recipients ). Onde esto errando ? Agradeço antecipadamente
Anonymous
Curtidas 0
Respostas
Chacal81
25/03/2003
Fazer um aplicativo completo para manipulação de e-mails é um tanto trabalhoso e não
é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software
a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5
nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o
trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns
métodos para que a mensagem seja enviada. Vamos para a prática:
1. Coloque um componente TNMSMTP no form.
2. Coloque um botão e no evento OnClick deste botão escreva:
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Host do servidor de e-mail }
NMSMTP1.Host := ´mail.servidor.com.br´;
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := ´nome-do-usuario´;
NMSMTP1.Connect;
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);
with NMSMTP1.PostMessage do begin
{ E-mail do remetente }
FromAddress := ´tecnobyte@ulbrajp.com.br´;
{ Nome do remetente }
FromName := ´Daniel P. Guimarães´;
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);
Subject := ´Assunto da mensagem´;
{ Corpo da mensagem }
Body.Clear;
Body.Add(´Primeira linha da mensagem´);
Body.Add(´Segunda linha da mensagem´);
Body.Add(´´); { Linha em branco }
Body.Add(´Última linha da mensagem´);
{ Anexar arquivos }
Attachments.Clear;
Attachments.Add(´c:\diretorio\arquivo.ext´);
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
Pronto! É só fazer as adaptações necessárias e você terá envio
de e-mails em sua aplicação.
Observações: Para enviar o mesmo e-mail para vários destinatário de uma só vez
basta adicionar os endereços de e-mails de todos os destinatários em
NMSMTP1.PostMessage.ToAddress.
ATÉ MAIS,
CHACAL
´O SEGREDO DO SUCESSO É A PERSISTÊNCIA EM APRENDER A CADA DIA COM OS ERROS E ACERTOS´ SUCESSO PARA TODOS!!!
é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software
a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5
nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o
trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns
métodos para que a mensagem seja enviada. Vamos para a prática:
1. Coloque um componente TNMSMTP no form.
2. Coloque um botão e no evento OnClick deste botão escreva:
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Host do servidor de e-mail }
NMSMTP1.Host := ´mail.servidor.com.br´;
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := ´nome-do-usuario´;
NMSMTP1.Connect;
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);
with NMSMTP1.PostMessage do begin
{ E-mail do remetente }
FromAddress := ´tecnobyte@ulbrajp.com.br´;
{ Nome do remetente }
FromName := ´Daniel P. Guimarães´;
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);
Subject := ´Assunto da mensagem´;
{ Corpo da mensagem }
Body.Clear;
Body.Add(´Primeira linha da mensagem´);
Body.Add(´Segunda linha da mensagem´);
Body.Add(´´); { Linha em branco }
Body.Add(´Última linha da mensagem´);
{ Anexar arquivos }
Attachments.Clear;
Attachments.Add(´c:\diretorio\arquivo.ext´);
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
Pronto! É só fazer as adaptações necessárias e você terá envio
de e-mails em sua aplicação.
Observações: Para enviar o mesmo e-mail para vários destinatário de uma só vez
basta adicionar os endereços de e-mails de todos os destinatários em
NMSMTP1.PostMessage.ToAddress.
ATÉ MAIS,
CHACAL
´O SEGREDO DO SUCESSO É A PERSISTÊNCIA EM APRENDER A CADA DIA COM OS ERROS E ACERTOS´ SUCESSO PARA TODOS!!!
GOSTEI 0