Hallo zusammen,

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

zusammenfalten · markieren

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

Keiner eine Idee ?

Hallo zusammen,

<der name ihrer digitalen id kann im zugrunde liegenden sicherheitssystem nicht gefunden werden>

nun hab ich auch das Problem. Bis vor ein paar Minuten wollte Outlook immer die Bestätigung für den Zugriff. Da wollte ich eh fragen wie man das umgeht.
Nun hat mich outlook gezwungen mein Profil neu zu setzen und jetzt kommt diese neue Fehlermeldung.

Kennt das jemand?

Grüße
Andi

das ganze tritt bei Message1.move(RestFolder); auf
d.h. ich darf die Mail nicht verschieben.

die Mail ist verschlüsselt