Fórum INDY - IdSMTP #186073
03/10/2003
0
Oi gente,
Tenho uma rotina para envio de email usando o IdSMTP,
estou usando o seguinte tratamento p/ o envio:
IdSMTP1.Connect;
try
IdMessage1.Subject := Edit2.Text;
IdMessage1.From.Text := UserEmail;
DM.Qaux1.First;
while (not DM.Qaux1.Eof) do Begin
Label5.Caption := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
IdMessage1.Recipients.EMailAddresses := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
IdMessage1.Body.Text := PageProducer1.Content;
IdSMTP1.Send(IdMessage1);
DM.Qaux1.next;
end;
Application.MessageBox(´As mensagens foram enviadas com sucesso.´,´Email´,mb_ok);
finally
IdSMTP1.Disconnect;
BitBtn1.Enabled := True;
Label5.Caption := ´´;
end;
No envio, foi encontrado os erros(Quando acha um erro ele para a execução do programa):
450<mariaeugenia@iajjoc.com.br>:Recipient address rejected:Domain not found
554<diegomonteiro@vascaonet.com>:Recipient address rejected:Domain not found(Verisign wild-card)
- Gostaria que ao dar um erro, seja salvo o email,cod erro, descrição num arquivo(txt ou html) sem parar o envio dos outros emails do recordset. Sei que terei que usar o try except, mas já tentei e não consegui.
Qualquer dica enviar para o mail
ajoppert@yahoo.com
Grata
Tenho uma rotina para envio de email usando o IdSMTP,
estou usando o seguinte tratamento p/ o envio:
IdSMTP1.Connect;
try
IdMessage1.Subject := Edit2.Text;
IdMessage1.From.Text := UserEmail;
DM.Qaux1.First;
while (not DM.Qaux1.Eof) do Begin
Label5.Caption := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
IdMessage1.Recipients.EMailAddresses := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
IdMessage1.Body.Text := PageProducer1.Content;
IdSMTP1.Send(IdMessage1);
DM.Qaux1.next;
end;
Application.MessageBox(´As mensagens foram enviadas com sucesso.´,´Email´,mb_ok);
finally
IdSMTP1.Disconnect;
BitBtn1.Enabled := True;
Label5.Caption := ´´;
end;
No envio, foi encontrado os erros(Quando acha um erro ele para a execução do programa):
450<mariaeugenia@iajjoc.com.br>:Recipient address rejected:Domain not found
554<diegomonteiro@vascaonet.com>:Recipient address rejected:Domain not found(Verisign wild-card)
- Gostaria que ao dar um erro, seja salvo o email,cod erro, descrição num arquivo(txt ou html) sem parar o envio dos outros emails do recordset. Sei que terei que usar o try except, mas já tentei e não consegui.
Qualquer dica enviar para o mail
ajoppert@yahoo.com
Grata
Angela
Curtir tópico
+ 0
Responder
Posts
05/10/2003
Alysson
Adicione:
* 1 idSMTP com o nome de smtp;
* 2 Edits com nome de assunto e o outro de para
* 1 Tmemo com o nome de Memo1;
* 1 Tbutton com o nome de vai;
* 1 TidMessage com o nome de msg;
* 1 PagePRoducer com o nome de Paginador;
configure o SMTP antes de enviar, com o host, user e talz....
configure o Paginador do jeito que vc quiser....
procedure onvaiclick(sender:Tobject);
var
i:integer;
x:String;
begin
msg.subject := assunto.text;
msg.from.strings[0] := UserEmail;
msg.body.text := paginador.content;
smtp.connect;
for i := 1 to DM.Quaux1.recordcount do
begin
DM.Quaux1.moveto(i);
msg.Recipients.strings[0] := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
try
smtp.send(msg);
except x := x +#1310 + ´Erro No ´ + inttostr(i); end;
end;
smtp.disconnect;
ShowMessage(´Erros: ´+ 1310 + x);
end;
* 1 idSMTP com o nome de smtp;
* 2 Edits com nome de assunto e o outro de para
* 1 Tmemo com o nome de Memo1;
* 1 Tbutton com o nome de vai;
* 1 TidMessage com o nome de msg;
* 1 PagePRoducer com o nome de Paginador;
configure o SMTP antes de enviar, com o host, user e talz....
configure o Paginador do jeito que vc quiser....
procedure onvaiclick(sender:Tobject);
var
i:integer;
x:String;
begin
msg.subject := assunto.text;
msg.from.strings[0] := UserEmail;
msg.body.text := paginador.content;
smtp.connect;
for i := 1 to DM.Quaux1.recordcount do
begin
DM.Quaux1.moveto(i);
msg.Recipients.strings[0] := LowerCase(DM.Qaux1.FieldByName(´EMAIL´).Value);
try
smtp.send(msg);
except x := x +#1310 + ´Erro No ´ + inttostr(i); end;
end;
smtp.disconnect;
ShowMessage(´Erros: ´+ 1310 + x);
end;
Responder
Gostei + 0
23/04/2004
Nigro
Como usar Indy no Delphi7?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)