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