Enviar Nfe Para 2 Ou Mais E-Mails

[Jacques Augusto]

Uso o componente ACBrNfe, e gostaria de saber se tem como mandar o e-mail da NFe para mais de uma conta de e-mail.

 

eu fiz um teste, colocando ";" entre eles... e não deu certo.

[Juliomar Marchetti]

virgula

[Jacques Augusto]

Juliomar, troquei pela "," e ainda não deu certo.

Editado 27 Novembro, 2013 por Jacques Augusto

[Juliomar Marchetti]

Olha abaixo o código do exemplo que tem na pasta Exemplos do SVN

   ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    CC:=TstringList.Create;
    CC.Add('[email protected]'); //especifique um email válido
    CC.Add('[email protected]');    //especifique um email válido
    ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text
                                             , edtSmtpPort.Text
                                             , edtSmtpUser.Text
                                             , edtSmtpPass.Text
                                             , edtSmtpUser.Text
                                             , Para
                                             , edtEmailAssunto.Text
                                             , mmEmailMsg.Lines
                                             , cbEmailSSL.Checked // SSL - Conexão Segura
                                             , True //Enviar PDF junto
                                             , CC //Lista com emails que serão enviado cópias - TStrings
                                             , nil // Lista de anexos - TStrings
                                             , False  //Pede confirmação de leitura do email
                                             , False  //Aguarda Envio do Email(não usa thread)
                                             , 'ACBrNFe2' // Nome do Rementente
                                             , cbEmailSSL.Checked ); // Auto TLS
    CC.Free;

[jorge andrade]

Concatena todas as contas numa strig separando por vírgula e envia somente uma CC.

 

[]s,

[ANT.CARLOS/SP]

Concatena todas as contas numa strig separando por vírgula e envia somente uma CC.

 

Crie uma StringList cc e adicione os emails.

 

cc : TStrings;

...

 

cc := TStringList.Create;

cc.Add('emai1');

cc.Add('emai2');

 

de uma olhada na resposta anterio pra ver onde esta stringList entra.

 

100+

 

ANT.CARLOS/SP