Fórum Erro com Indy #335789
07/01/2007
0
Estou tendo esse erro qndo vou enviar para mais de um destinatário
esse código pega os clientes que tem email
dmPesquisas.cdsAniversario.First;
while not dmPesquisas.cdsAniversario.Eof do
begin
if dmPesquisas.cdsAniversarioEMAIL.AsString <> ´´ then
sEmail := dmPesquisas.cdsAniversarioEMAIL.AsString + ´;´ + sEmail;
dmPesquisas.cdsAniversario.Next;
end;Enviando
try
with smtp do
begin
Host := DMCadastro.cdsConfigSEVIDORSMTP.AsString;
port := 25;
Username := DMCadastro.cdsConfigLOGINEMAIL.AsString;
Connect();
end;
with IdMessage do
begin
From.Address := DMCadastro.cdsCadEmpresaEMAIL.AsString;
//Recipients.Add.Address := edtPara.Text;
Recipients.EMailAddresses := edtPara.Text;
Subject := edtAssunto.Text;
Body.Text := MmMensagem.Lines.Text;
MessageParts.Clear;
end;
TIdAttachment.Create(IdMessage.MessageParts, edtAnexo.Text);
smtp.Send(IdMessage);
smtp.Disconnect;
except
MessageBox(0, ´Ocorreu um erro no envio!´, PChar(DMCadastro.cdsCadEmpresaFantasia.AsString), MB_ICONHAND or MB_OK);
Close;
end;uso D7
Facc
Curtir tópico
+ 0Posts
07/01/2007
Massuda
Gostei + 0
08/01/2007
Facc
Certo... mas daí como faço pra enviar, por exemplo, 10 e-mails?
Gostei + 0
08/01/2007
Massuda
...
with IdMessage1 do begin
...
Recipients.EMailAddresses := ´email@servidor´;
// emails que vão receber cópia normal
CcList.EMailAddresses := ´email@servidor´;
// emails que vão receber cópia oculta
BccList.EMailAddresses := ´email@servidor´;
...Gostei + 0
08/01/2007
Facc
Gostei + 0
08/01/2007
Massuda
O servidor SMTP que você está usando é de algum provedor (UOL, Terra, etc) ou é um que você (ou sua empresa) mantem?
Gostei + 0
08/01/2007
Facc
Gostei + 0
08/01/2007
Facc
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)