ACBRNFe2.0 erro ao enviar email com CC

[Mayworm]

Galera, é o seguinte, para uma só conta de email, um destinatário, consigo enviar legal(se deixo o parâmetro sCC como nil), mas no momento que adiciono o CC, dá erro e não envia. É o seguinte, coloquei um memo para capturar os emails que desejamos enviar os xml/pdfs - no caso do email do contador/entre outros...todos de existência comprovada.

A parte do código que trata esta parte está assim:

 CC:=TstringList.Create;

    for I := 0 to mmoEmailRemetentes.Lines.Count do begin

      if I = 0 then

        CC.Add(mmoEmailRemetentes.Lines[I])

      else

        CC.Add(';' + mmoEmailRemetentes.Lines[I]);

    end;

    if not(InputQuery('Enviar Email', 'Email de Destino', Para)) then

       exit;

    try

      ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text,

                                                 edtSmtpPort.Text,

                                                 edtSmtpUser.Text,

                                                 edtSmtpPass.Text,

                                                 Para,

                                                 edtSmtpUser.Text,

                                                 edtEmailAssunto.Text,

                                                 mmEmailMsg.lines,

                                                 cbEmailSSL.Checked,

                                                 cbEmailPDFAnexo.Checked,

                                                 CC,

                                                 nil,

                                                 cbEmailConfirmaLeit.Checked,

                                                 cbEmailAguardaEnvio.Checked,

                                                 '',

                                                 cbEmailSSL.Checked);

Na parte do CC.Add... já tentei usar como separador a vírgula, o espaço, o ponto e vírgula, já até tentei adicionar mais de um destinatário na variável PARA, separados tb por vírgula ou ponto e vírgula e de nada adianda, neste caso até envia, mas somente ao primeiro destinatário. Quando preencho o MemoEmailRemetentes preencho assim:

[email protected]

[email protected]

e ao clicar em enviar email me vem o seguinte erro:

SMTP ERROR: MailTo:Permanent Failure-Bad destination system address

553-5.1.2 We weren't able to find the recipient domain. Please check for any

553-5.1.2 spelling errors, and make sure you didn't enter any spaces, periods,

553 5.1.2 or other punctuation after the recipient's email address. q29sm2500926yba.2

Lembrando que quando coloco o nil no lugar de CC vai tranquilamente!

Obrigado a quem puder ajudar!

[Carlos Alberto Fitl]

Qual versão do ACBrNFE você esta usando, pois o meu esta enviando email com cópia.

Att.

Carlos Fitl.

[André Ferreira de Moraes]

Vc não deve colocar ;(ponto e vírgula) para separar os emails.

    for I := 0 to mmoEmailRemetentes.Lines.Count do 

        CC.Add(mmoEmailRemetentes.Lines[I]);

[/code]

[Mayworm]

Estou usando a versão 0.4.0a.

já tentei separando por ';' ponto e vírgula, e até por vírgula e tb espaço em branco:

CC:=TstringList.Create;

    for I := 0 to mmoEmailRemetentes.Lines.Count do begin

      if I = 0 then

        CC.Add(mmoEmailRemetentes.Lines[I])

      else

        CC.Add(';' + mmoEmailRemetentes.Lines[I]);

    end;

Não vai assim!

[André Ferreira de Moraes]

O modo correto é SEM ponto e vírgula, espaço, vírgula, ponto ou qualquer outro caracter.

Basta adicionar os emails na lista de cópias.

[Mayworm]

Obrigado amigo anfm,

dessa vez passou!

    for I := 0 to mmoEmailRemetentes.Lines.Count do

        CC.Add(mmoEmailRemetentes.Lines[I]);

[Mayworm]

Opa, eu só tinha verificado com um email na CC e foi, mas acabo de testar com 2 emails diferentes e válidos e não passou, ocasionando o seguinte erro:

SMTP ERROR: MailTo:Permanent Failure-Syntax error

555 5.5.2 Syntax error. b28sm6017769anb.48

.

[Mayworm]

Alguém sabe me indicar o que pode estar acontecendo, o erro ainda persiste.

Obrigado

[Carlos Alberto Fitl]

Por favor, poste aqui seu código inteiro e qual revisão do ACBrNFE você esta utilizando.

[Mayworm]

Estou utilizando a Versão: 0.4.0a do ACBR.

O código do botão enviar é o que segue:

procedure btnEnviarEmailClick(Sender: TObject);

var

  Para: string;

  CC: Tstrings;

  I: integer;

begin

  OpenDialog1.Title := 'Selecione a NFE que deseja enviar por email';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathNFe;


  if OpenDialog1.Execute then

  begin

    ACBrNFe1.NotasFiscais.Clear;

    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

    ACBrNFe1.NotasFiscais.ImprimirPDF;


    CC:=TstringList.Create;

    for I := 0 to mmoEmailRemetentes.Lines.Count do begin

      CC.Add(mmoEmailRemetentes.Lines[I]);

    end;


    if not(InputQuery('Enviar Email', 'Email de Destino', Para)) then

       exit;

    try

      ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text,

                                                                 edtSmtpPort.Text,

                                                                 edtSmtpUser.Text,

                                                                 edtSmtpPass.Text,

                                                                 Para,

                                                                 edtSmtpUser.Text,

                                                                 edtEmailAssunto.Text,

                                                                 mmEmailMsg.lines,

                                                                 cbEmailSSL.Checked,

                                                                 cbEmailPDFAnexo.Checked,

                                                                 CC,

                                                                 nil,

                                                                 false,

                                                                 cbEmailAguardaEnvio.Checked,

                                                                 '',

                                                                 cbEmailSSL.Checked);

      ShowMessage('Email enviado com sucesso!');

    except

       on E: Exception do

        begin

          raise Exception.Create('Erro ao enviar email'+sLineBreak+E.Message);

        end;

    end;

  end; 

  CC.Free;

end;

mmoEmailRemetentes é um memo onde pretendo colocar uma listagem de emails a serem utilizados para CC.

Obrigado!

[Mayworm]

Pessoal,

consegui sanar o erro!!!

Estava na linha:

for I := 0 to mmoEmailDestinatarios.Lines.Count-1 do

que antes estava:

for I := 0 to mmoEmailDestinatarios.Lines.Count do

Obrigado a todos!

[Carlos Alberto Fitl]

Verdade Mayworm, pois como o index inicia no 0 (zero) e no memo possui 10 email o seu for não vai de 0 a 10 e sim de 0 a 9, por isso precisa ser Count -1.