// Meu servidor SMTP
NMSMTP1.Host := dmSIAEAP01.tblSIAECONFNM_SERVIDOR.AsString; //
'bbs.lpnet.com.br';
// Porta SMTP, não pode ser alterada
NMSMTP1.Port := dmSIAEAP01.tblSIAECONFNR_PORTA.AsInteger; // 25
// Nome de login do usuário
NMSMTP1.UserID := dmSIAEAP01.tblSIAECONFNM_LOGIN.AsString; // 'manos';
// Conecta ao servidor
NMSMTP1.Connect;
// Se ocorrer algum erro durante a conexão com o servidor, avise!
if not NMSMTP1.Connected then
raise Exception.Create('Erro de conexão');
// Marca a posição atual do registro na tabela
Posicao := dmSIAEAP01.tblSIAE0101.Bookmark;
// Desabilita os controles Dataware
dmSIAEAP01.tblSIAE0101.DisableControls;
dmSIAEAP01.tblSIAE0101.First;
while not dmSIAEAP01.tblSIAE0101.Eof do
begin
if dmSIAEAP01.tblSIAE0101NM_EMAIL.AsString <> '' then
begin
Endereco := dmSIAEAP01.tblSIAE0101NM_EMAIL.AsString;
with NMSMTP1.PostMessage do
begin
// Seu e-mail
FromAddress := dmSIAEAP01.tblSIAECONFNM_EMAIL.AsString;
// 'edua...@lpnet.com.br';
// Seu nome
FromName := dmSIAEAP01.tblSIAECONFNM_NOME.AsString;
// 'Eduardo de Almeida Silva';
ToAddress.Clear;
// E-mail do(s) destinatário(s)
ToAddress.Add(Endereco); // colocar aqui o endereço de
quem vai receber o e-mail
// Assunto da mensagem
Subject := edtAssunto.Text; //'Teste de envio de e-mail
através do delphi';
// Corpo da mensagem
Body.Clear;
Body.Add(memoMensagem.Lines.Text);
// Anexar arquivos
// Attachments.Clear;
// Endereço do anexo
Attachments.AddStrings(Listbox.Items);
// Attachments.Add(ListBox.Items.Text);
// Manda o e-mail
NMSMTP1.SendMail;
end;
end
dmSIAEAP01.tblSIAE0101.Next;
end;
// Desconecta do servidor
NMSMTP1.Disconnect;
// Habilita os controles Dataware
dmSIAEAP01.tblSIAE0101.EnableControls;
// Volta a tabela na posição em que estava
dmSIAEAP01.tblSIAE0101.Bookmark := Posicao;
_____
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius
Enviada em: terça-feira, 1 de setembro de 2009 08:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro ao enivar e-mail
Passe a sua rotina, derepente esta faltando algum detalhe que vc não esta
percebendo.
-----Mensagem original-----
De: delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Eduardo Silva
Enviada em: terça-feira, 1 de setembro de 2009 08:17
Para: delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: RES: [delphi-br] Erro ao enivar e-mail
O destinatário é válido.
Não sei mais o que pode estar acontecendo.
-----Mensagem original-----
De: delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
[mailto:delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br>
os.com.br] Em
nome de Leandro
Enviada em: segunda-feira, 31 de agosto de 2009 17:34
Para: delphi...@yahoogrup <mailto:delphi-br%40yahoogrupos.com.br> os.com.br
Assunto: Re: [delphi-br] Erro ao enivar e-mail
sim, q vc tem q adicionar pelo menos um destinatario valido..
2009/8/31 Eduardo Silva <eduko...@yahoo. <mailto:edukobra%40yahoo.com.br>
com.br>
>
>
> Galera, tentei enviar um e-mail usando o componente NMSMTP e deu o
seguinte
> erro
>
> 554 REFUSED YOU MUST SPECIFY AT LEAST ONE VALID RECIPIENT
>
> Alguém sabe me dizer que erro é esse?
>
> Uso o delphi 5, então tem que ser o NMSMTP mesmo.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leandro, MuTukA
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
[As partes desta mensagem que não continham texto foram removidas]
