ACBRMail, Nao Consigo Limpar Lista de Destinatarios

[j2c9m7]

Estou usando o ACBRMail, pra mandar varios emails com anexos, na sequencia...

Acontece que o ACBRMail.Clear nao esta limpando a lista de destinatarios, e repetindo/enviando a todos na lista!

Como procedo, alguem ja passou por essa situacao?

Abraços

[Daniel Simoes]

Não parece haver nada errado com o s fontes...

procedure TACBrMail.Clear;
begin
  ClearAttachments;
  fSMTP.Reset;
  fMIMEMess.Header.Clear;  // <-- Limpando o Header
  fMIMEMess.Clear;
  fReplyTo.Clear;
  fBCC.Clear;
  fSubject := '';
  fBody.Clear;
  fAltBody.Clear;
end;    

procedure TMessHeader.Clear;
begin
  FFrom := '';
  FToList.Clear;     //<-- Limpando os destinatários
  FCCList.Clear;
  FSubject := '';
  FOrganization := '';
  FCustomHeaders.Clear;
  FDate := 0;
  FXMailer := '';
  FReplyTo := '';
  FMessageID := '';
  FPriority := MP_unknown;
end;       

 

[j2c9m7]

10 minutos atrás, Daniel Simoes disse:

Não parece haver nada errado com o s fontes...

procedure TACBrMail.Clear;
begin
  ClearAttachments;
  fSMTP.Reset;
  fMIMEMess.Header.Clear;  // <-- Limpando o Header
  fMIMEMess.Clear;
  fReplyTo.Clear;
  fBCC.Clear;
  fSubject := '';
  fBody.Clear;
  fAltBody.Clear;
end;    

procedure TMessHeader.Clear;
begin
  FFrom := '';
  FToList.Clear;     //<-- Limpando os destinatários
  FCCList.Clear;
  FSubject := '';
  FOrganization := '';
  FCustomHeaders.Clear;
  FDate := 0;
  FXMailer := '';
  FReplyTo := '';
  FMessageID := '';
  FPriority := MP_unknown;
end;       

 

Daniel, tambem cheguei nesse ponto, pior nao estou conseguindo entender o problema!

Pode me dizer, se o Replyto pode influenciar na rotina de envio? pois quando seto um email para resposta, acaba dando uma confusao maior ainda! repetindo email... sera que pode estar relacionado?

ou como faço pra indicar a conta de email, na qual desejo receber a respota, se cliente responder email?

[Daniel Simoes]

Realmente parece ser esse o problema... veja esse trecho, e tente comentar essas linhas...

  // Sending Copies to Reply To //
  c := fReplyTo.Count;
  if c > 0 then
    MailProcess(pmsSendReplyTo);
 

Isso vem desde a 1a versão do componente... (feita pelo Jean)...

Acho que não seja o correto, enviar cópias do email para quem está no ReplyTo...  Qual a sua opinião ?

5 minutos atrás, j2c9m7 disse:

ou como faço pra indicar a conta de email, na qual desejo receber a respota, se cliente responder email?

ACBrMail1.AddReplyTo

[j2c9m7]

4 minutos atrás, Daniel Simoes disse:

Realmente parece ser esse o problema... veja esse trecho, e tente comentar essas linhas...

  // Sending Copies to Reply To //
  c := fReplyTo.Count;
  if c > 0 then
    MailProcess(pmsSendReplyTo);
 

Isso vem desde a 1a versão do componente... (feita pelo Jean)...

Acho que não seja o correto, enviar cópias do email para quem está no ReplyTo...  Qual a sua opinião ?

ACBrMail1.AddReplyTo

Justamente, vou comentar essa linhas e te dou retorno!

Abraços

10 minutos atrás, Daniel Simoes disse:

Realmente parece ser esse o problema... veja esse trecho, e tente comentar essas linhas...

  // Sending Copies to Reply To //
  c := fReplyTo.Count;
  if c > 0 then
    MailProcess(pmsSendReplyTo);
 

Isso vem desde a 1a versão do componente... (feita pelo Jean)...

Acho que não seja o correto, enviar cópias do email para quem está no ReplyTo...  Qual a sua opinião ?

ACBrMail1.AddReplyTo

Daniel, comentando essas linhas, funcionou direitinho! o ideal seria remover esse bloco do componente!

Abraços

[Daniel Simoes]

No SVN

Citar

-- ACBrMail --
[-] Não enviar cópias dos emails para endereços em "ReplyTo"
    (por: DSA)