delphi MS Office outlook Fehler

Question

Ich versuche, eine E-Mail über meine in BDS 2006 entwickelte Anwendung über MS Office Outlook zu senden. Es funktioniert ganz gut mit meinem Outlook läuft, aber es schlägt fehl in der try blockieren, wenn Outlook geschlossen ist.

Es wird ein Fehler angezeigt EOlesystem error : Operation unavailable und geht nicht an Except Block

mein Code

 procedure TMyform.BTN_mailClick(Sender: TObject);
 const
    olMailItem =0;
 var
    Outlook: OleVariant;
    vMailItem: variant;
 begin
  try
   Outlook := GetActiveOleObject('Outlook.Application');
  except
   Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add(mailaddress);
  vMailItem.Subject := 'mymail';
  vMailItem.Body := 'Dear '
  vMailItem.Attachments.Add(path);
  vMailItem.Send;
  VarClear(Outlook);
 end;

Wie kann ich dieses Problem lösen?

Danke