Envio De E-Mail Com Cópia (Xml E Pdf)

[PANEGASSI]

Boa tarde pessoal,

 

Estou com a rotina abaixo para envio do e-mail com a informações de geração da nota eletronica(XML e PDF), porem, a rotina envia o e-mail somente para o destinatário do parametro PARA, não enviando para os destinatários do parametro CC.

 

Vocês podem me ajudar, por favor?

 

Segue codigo:

 

    CC := TstringList.Create;
    CC.Add('[email protected]');  //especifique um email válido
    {CC.Add('[email protected]');       //especifique um email válido}

    xmenema := TStringList.Create;
    xmenema.Add('Segue em Anexo Arquivo XML e PDF da Nota Fiscal Eletrônica.');
    xmenema.Add('');
    xmenema.Add('NOTA:');
    xmenema.Add(FormatFloat('000000', QryNFenumero_nf.AsInteger));
    xmenema.Add('');
    xmenema.Add('EMISSÃO:');
    xmenema.Add(QryNFedt_emissao.AsString);
    xmenema.Add('');
    xmenema.Add('EMITENTE:');
    xmenema.Add(QryNFenome_cliente.AsString);
    xmenema.Add(QryNFelograd_cliente.AsString + ', ' + QryNFenumero_cliente.AsString);
    xmenema.Add(Trim(QryNFebairro_cliente.AsString) + ' - ' + Trim(QryNFecidade_cliente.AsString) + ' - ' + Trim(QryNFeuf_cliente.AsString));
    xmenema.Add('FONE: ' + QryNFetel_res_cliente.AsString);
    xmenema.Add('CNPJ: ' + QryNFecpf_cnpj_cliente.AsString + '     I.ESTADUAL: ' + QryNFeins_est_cliente.AsString);
    xmenema.Add(QryNFeemail_cliente.AsString);
    xmenema.Add('');
    xmenema.Add('');
    xmenema.Add('');
    xmenema.Add('ATENÇÃO... Email Gerado pelo Sistema de Emissão de Nota Fiscal Eletrônica. NÃO RESPONDER ESTE EMAIL !');

    ACBrNFe.NotasFiscais.Clear;
    ACBrNFe.NotasFiscais.LoadFromFile(ExtractFilePath(Application.ExeName)+'NFe\'+Trim(QryNFechave_nfe.AsString)+'-nfe.xml');

    ACBrNFe.NotasFiscais.Items[0].EnviarEmail( 'smtps.uol.com.br',  //Host
                                                IntToStr(587),       //Port
                                                '[email protected]', //User
                                                'evnk60',                   //Pass
                                                '[email protected]',  //User
                                                Trim(QryNFeemail_cliente.AsString),//Para
                                                'NF-e nº. ' + IntToStr(QryNFenumero_nf.AsInteger) + ' - ' + Trim(QryEmpresarazao.AsString), //Assunto
                                                xmenema, //Msg
                                                False,  //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)

    ShowMessage('ATENÇÃO... E-mail enviado para o endereço ' + Trim(QryNFeemail_cliente.AsString));
    xmenema.Free;
    CC.Free;
 

[Isaque Pinheiro]

Tente jogar essas linhas:

  ACBrNFe.NotasFiscais.Clear;
    ACBrNFe.NotasFiscais.LoadFromFile(ExtractFilePath(Application.ExeName)+'NFe\'+Trim(QryNFechave_nfe.AsString)+'-nfe.xml');

Para antes da linha

 CC := TstringList.Create;