feststellen ob neue (ungelesene) Mails in Outlook vorhanden sind

[soulies]

hoi,

ich hatte mal so etwas gehabt.

ging in etwa so:

Delphi-Quellcode:

function GetUnreadMails:Integer ;
var
  NmSpace: NameSpace;
  Folder : MAPIFolder ;
begin
  outlook.Connect; // TOutlookApplication
  NmSpace := Outlook.GetNamespace('MAPI');
  try
    NmSpace.Logon('', '', False, False);
    Folder := NmSpace.GetDefaultFolder(olFolderInbox); // olFolderInbox = PostEingang

    Result := Folder.UnReadItemCount ; // Wieviel sind ungelesen
  finally
    NmSpace.Logoff ;
    outlook.Disconnect;
  end;
end;

vllt. hilfts

cya