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