Lista De Email

[volmir]

Bom dia estou com um problema agora pra enviar os arquivos para uma lista de email

ou seja preci enviar o mesmo email para varias pessoas 

pra uma esta dando certo ou seja esta funcionando o problema e com os email que informo no parametro

CC 

 

criei um variavel do tipo Tstring

 

e adicionei todos os email necesarios mas ele nao esta enviando pra este somente 

aquele que esta no parametro Para esta enviando nao sei se estou fazendo algo de errado

vou postar aqui meu codigo para analizarem:

 

 

var

 Para : String;

 CC   : Tstrings;

begin

  Para:=DM.qrPessoas.FieldByName('EMAIL').AsString;

 

  CC:=TStrings.Create;

  CC.Add(DM.qrPessoas.FieldByName('EMAIL').AsString);

  CC.Add(DM.qrPessoas.FieldByName('EMAIL').AsString);

  CC.Add(DM.qrPessoas.FieldByName('EMAIL').AsString);

 

 

 

DM.CTe1.Conhecimentos.Items[0].EnviarEmail(

          DM.cdsConfSMTP_EMAIL.AsString, //host

          IntToStr(DM.cdsConfPORTA_EMAIL.AsInteger), //porta

          DM.cdsConfUSUARIO_EMAIL.AsString,  //user

          DM.cdsConfSENHA_EMAIL.AsString,   //password

          DM.cdsConfUSUARIO_EMAIL.AsString, //From(de)

          Para, //To(para)

          DM.cdsConfASSUNTO_EMAIL.AsString,//assunto

          Msg,  //mensagem

          ConexaoSeg,//conexao segura SSL

          EnviaPDF, //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 confirmacao

          DM.cdsConfRAZAO_EMIT.AsString//nome remetente

          );

end;

 

nao consegui descobrir onde esta o meu erro

 

[eliton.sc]

Bom Dia Volmir eu uso assim ?

var

 CC, sl  : Tstrings;

Begin

       Try

         sl := TStringList.Create;

               try

                 sl.text := ' Segue em anexo o CT-e de Nº' .... "minhas configurações pessoais";

                 CC:=TstringList.Create;

 

                  While not DM_PESSOAS.St_Pr_Seleciona_Contatos.Eof do

                   Begin

                      If DM_PESSOAS.St_Pr_Seleciona_Contatosc_forma_contato_desc.AsString = 'EMAIL-CTE' Then

                          Begin

                             CC.Add(DM_PESSOAS.St_Pr_Seleciona_Contatosr_pessoa_contato_obs.AsString); //especifique um email válido

                          end;

                        DM_PESSOAS.St_Pr_Seleciona_Contatos.Next;

                    end;

 

                                  ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(DM_PESSOAS.Sql_R_Pessoa_filialcte_email_host.Text

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_port.Text

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_user.Text

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_pass.Text

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_user.Text

                                             , EMAIL_PARA

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_assunto.Text+' Nº: '+CTRC

                                             , sl

                                             , DM_PESSOAS.Sql_R_Pessoa_filialcte_email_ssl.AsBoolean

                                             , TRUE //Enviar PDF junto

                                             , CC //Lista com emails que serão enviado cópias - TStrings

                                             , nil // Lista de anexos - TStrings

                                             , True //Pede confirmação de leitura do email

                                             ,False  // aguarda envio

                                             ,CTE_REMETENTE ); //remetente

                              CC.Free;

                   finally

 

                sl.Free;

             end;

       except

 end;

 

 

Detalhe, verifique seu Antivirus que tive varios problemas com o Avast que bloqueia o envio de e-mails tem que configurar a liberaração no mesmo antes de envio pelo Sistema...

 

                 

 

 

 

 

[volmir]

Boa tarde pois é mais ou menos a mesma forma que eu faço e pra mim nao esta enviando para os CC

somente envia para o primeiro parametro (To)

[Italo Giurizzato Junior]

Boa tarde Volmir,

 

Você esta fazendo desta forma:

 

 CC:=TStrings.Create;

 CC.Add(DM.qrPessoas.FieldByName('EMAIL').AsString);

 

Tente assim:

 

 CC:=TStringList.Create;

 CC.Clear;

 CC.Add(DM.qrPessoas.FieldByName('EMAIL').AsString);

 

Percebeu a diferença?

[volmir]

Esta ok consegui resolver 

acredito que era por que nao estava passsando os ultimos parametros

[volmir]

Boa tarde Italo na verdade estou fazendo assim

CC:=TStringList.Create;

foi erro de digitacao la na primeira vez que enviei 

mas agora esta funcionando 

bleza

[walter faria]

Como passar uma lista de e-mail para ser enviado pelo AcbrNFEMonitor ?

 

Obrigado.