Pesquisar na Comunidade

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;