var
//Outlook: TOutlookApplication;
NmSpace: NameSpace;
MailFolder: MAPIFolder;
begin
Outlook.Connect;
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon('', '', False, False);
MailFolder := NmSpace.GetDefaultFolder(olMailItem);
for i := 1 to MailFolder.Items.Count do
begin
end;
end;
//i是不是ID号?