Dejar e-mail elementos enviados

[Mauro Daniel]

Hola a todos...
Siguiendo lo que encontre en el foro cree un evento que me permita enviar e-mails desde mi sistema. El siguiente es un fragmento del mismo:
procedure EnviarMensaje(sUsuario, sClave, sHost, sAdjunto, sAsunto, sOrigen, sDestino, sMensaje: String);
var
SMTP: TIdSMTP;
Mensaje: TIdMessage;
Adjunto: TIdAttachment;
begin
// Creamos el componente de conexión con el servidor
SMTP := TIdSMTP.Create( nil );
SMTP.Host := sHost;
SMTP.Port := 25;
SMTP.AuthenticationType := atNone;
// Creamos el contenido del mensaje
Mensaje := TIdMessage.Create(nil);
Mensaje.Clear;
Mensaje.From.Name := sOrigen;
Mensaje.From.Address := sOrigen;
Mensaje.Subject := sAsunto;
Mensaje.Body.Text := sMensaje;
Mensaje.SaveToFile
Mensaje.Recipients.EMailAddresses := sDestino;
Mensaje.MessageParts.
.
.
.
Mi duda es la siguiente: ¿Como puedo hacer para que los e-mail enviados me queden en mi correo dentro de la bandeja de elementos enviados?

Desde ya muchas gracias.
Saludos a todos