Enviar Email Para 2 Endereco Juntos

[Hetosoft Sistemas]

Como façor para manda nfs-e para dois email juntos

 

ex:

[email protected]; [email protected]

 

sem usar a

//CC.Add('[email protected]'); //especifique um email válido

//CC.Add('[email protected]'); //especifique um email válido

usando o

Para:= [email protected]; [email protected]

 

Da erro ao enviar

SMTP ERROR: MailPermanent Failure-Bad

 

 

 

 if OpenDialog1.Execute then
  begin
   ACBrCTe1.Conhecimentos.Clear;
   ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);
   CC:=TstringList.Create;
   //CC.Add('[email protected]'); //especifique um email válido
   //CC.Add('[email protected]'); //especifique um email válido
   try
     mmEmailMsg.Text:=dm.Client_MERCADOFANTASIA.Text+' Nº '+DM12.Client_NotaFiscalNUMERO.Text;
     
   ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(Trim(edtSmtpHost.Text)
                                             , Trim(edtSmtpPort.Text)
                                             , Trim(edtSmtpUser.Text)
                                             , Trim(edtSmtpPass.Text)
                                             , Trim(edtSmtpUser.Text)
                                             , Para
                                             , edtEmailAssunto.Text
                                             , mmEmailMsg.Lines
                                             , cbEmailSSL.Checked
                                             , True //Enviar PDF junto
                                             , nil //Lista com emails que serão enviado cópias - TStrings
                                             , nil // Lista de anexos - TStrings
                                             , False ); //Pede confirmação de leitura do email
   CC.Free;
   MessagemH(3,'Enviado com Sucesso !!!');
   except
     MessagemH(2,'Erro ao enviar !!!');
   end;
  end;

[Italo Giurizzato Junior]

Bom dia Hetoandrade

 

O componente requer que cada endereço de e-mail seja ADD em uma lista logo tem que ser desta forma:

 

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

Mas nada impede de você armazenar ou permitir que o usuário digite da forma que você deseja ou seja:

 

[email protected]; [email protected]

 

Depois você submete essa linha a uma rotina que vai idendificar cada endereço contido nela e ADD a lista separadamente.

 

Lembre-se que existe o endereço principal e o com cópia, se o segundo endereço da linha for o "com cópia", somente ele deve ser ADD a lista, o primeiro deve ser atribuido ao campo "para".

 

Espero ter ajudado.