Fórum [Help]:Outlook.Application - GetActiveOleObject #272217

Pessoal estou com uma duvida um pouco tanto dificil andei verificando vários forum sobre delphi internacional e nacional mais não consegui resolver o meu problema.
É o seguinte existe um codigo para enviar email através do Outlook Application, este mesmo está rolando na net...em alguns forum o problema é que eu gostaria de passar dentro mesmo que não tem opção de copia dos email email enviados ou seja só existe a linha MailItem.Recipients.Add(sFromMail);
então gostaria que aplicação registra-se a copia do email como se no outlook.
Por favor aguardo um post sobre.
Codigo completo
procedure SendMail(sFromMail, sToMail, sSubject, sBody: String;bHTML, bAttachment, bSend: Boolean; sAttachmentFile, sAttachmentName: String) ;
const
olMailItem = 0;
olByValue = 1;
var
OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
try
OutlookApp := GetActiveOleObject(´Outlook.Application´);
except
OutlookApp := CreateOleObject(´Outlook.Application´);
end;

MailItem := OutlookApp.CreateItem(olMailItem);

// MailItem.Recipients.toAddress.Add(sFromMail);
MailItem.Recipients.Add(sFromMail);
// MailItem.Recipients.CCList.Add(sToMail);
MailItem.Subject := sSubject;

if bHTML then
MailItem.HTMLBody := sBody
else
MailItem.Body := sBody ;

if bAttachment then
begin
myAttachments := MailItem.Attachments;
myAttachments.Add(sAttachmentFile, olByValue, 1, sAttachmentName) ;
end ;

if bSend then
MailItem.Send // Je nach dem EMail Senden
else
MailItem.Save ; // Oder als Entwurf speichern

myAttachments := VarNull ;
OutlookApp := VarNull ;
end ;

[]´s