Outlook -> Gesendet Ordner durchsuchen OHNE Digitale ID

[HolgerCW]

Hallo zusammen,

so prüfe ich ob eine E-Mail versendet wurde:

Delphi-Quellcode:

 //Abfrage des "Gesendet Ordners"
 NS := TOA.GetNamespace('MAPI');
 NS.Logon('', '', False, False);

 //Gesendete Elemente
 Folder := NS.GetDefaultFolder(olFolderSentMail);
 if assigned(Folder) then
 begin

  //Nur den heutigen Tage anbieten
  oItems := Folder.Items;
  Filter := '[SentOn] > '''+ DateToStr(floor(now-1)) + '''';
  oItems := oItems.Restrict(Filter);

  if oItems.Count > 0 then
  begin

   for I := 1 to oItems.Count do
   begin

    if oItems.Item(i).QueryInterface( _MailItem, MI ) = s_OK then
    begin

     If pos(Identifikation, MI.Categories) <> 0 then Gesendet := TRUE;

    end;

   end;

  end;

 end;

Nur leider kommt manchmal folgende Fehlermeldung bei dem ein oder anderen User:

"Der Name Ihrer digitalen ID kann im zugrunde liegenden Sicherheitssystem nicht gefunden werden."

Kann ich diese Fehlermeldung überspringen, wenn sie kommt oder kann ich gesendete E-Mails mit digitaler ID überspringen indem ich vorher Abfrage ob es eine E-Mail mit digitaler ID ist.

Gruss

Holger