Hola a todos,
Tengo una pequeña aplicación en la cual debo enviar un correo a varios usuarios con un serividor exchange, pero este solo me envia el correo a dos de los usuarios... que debo hacer para que les llegue a todos. El codigo que tengo es el siguiente:
Desde ya gracias
Código Delphi
[-]procedure TFrmFinalizacionMontaje.BBEnviarClick(Sender: TObject);
begin
if NMSMTP1.Connected then
begin
NMSMTP1.SubType := mtPlain;
NMSMTP1.EncodeType := uuMime;
NMSMTP1.PostMessage.FromAddress := 'montajes@midominio.local';
NMSMTP1.PostMessage.FromName := 'Aréa de Montajes';
NMSMTP1.PostMessage.ToAddress.Text := 'calidad2@midominio.local';
NMSMTP1.PostMessage.ToCarbonCopy.Text := 'calidad4@midominio.com;calidad@midominio.local;calidad3@midominio.local';
NMSMTP1.PostMessage.Body.Text := 'Revizar Formato Montajes en proceso, registro N: ' + DBENoFormato.Text + ' con molde N: ' + DBEMolde.Text;
NMSMTP1.PostMessage.Subject := 'Prueba Formato Montajes en Proceso';
NMSMTP1.PostMessage.Date := '';
NMSMTP1.SendMail;
end
else
Label22.Caption:='Usted necesita conectarse antes de enviar el mensaje';
end;