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('sac@macedoveiculos.com.br'); //especifique um email válido
{CC.Add('lpanegassi@ig.com.br'); //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
'macedoveiculos@uol.com.br', //User
'evnk60', //Pass
'macedoveiculos@uol.com.br', //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;