Hola,
Mejor no hubieras editado el mensaje, porque menuda la has liado...
Respecto de lo que te ocupa, he probado con algo así y parece funcionar bien:
Código Delphi
[-]
uses
IdEMailAddress, IdSMTP, idMessage;
procedure TForm1.Button1Click(Sender: TObject);
var
servidorSmtp: TIdSMTP;
mensajeCorreo: TIdMessage;
nuevoOculto: TIdEMailAddressItem;
begin
servidorSmtp := TIdSMTP.Create(Self);
mensajeCorreo := TIdMessage.Create(Self);
with mensajeCorreo do
begin
Subject := 'Asunto del correo';
Body.Text := 'Cuerpo del correo';
From.Address := 'remitente@correo.es';
Recipients.EMailAddresses := 'destinatario@correo.es';
end;
nuevoOculto := mensajeCorreo.BccList.Add;
nuevoOculto.Address := 'oculto1@correo.es';
nuevoOculto := mensajeCorreo.BccList.Add;
nuevoOculto.Address := 'oculto2@correo.es';
try
servidorSmtp.Host := 'smtp.servidor.es';
servidorSmtp.Connect;
try
servidorSmtp.Send(mensajeCorreo);
ShowMessage('¡Correo enviado!');
except
on E: Exception do ShowMessage('Falló el envío: ' + E.Message);
end;
finally
servidorSmtp.Disconnect;
servidorSmtp.Free;
mensajeCorreo.Free;
end;
end;