Используем Outlookapplicatons и MailItem из Servers
| Код | var mapi:NameSpace; mail:mailitem; F:Mapifolder; fol:OleVariant; begin Form1.OutlookApplication1.Connect; Fol:=Form1.OutlookApplication1.ActiveExplorer.CurrentFolder.Items.Item(1) as MailItem;//первый элемент в текущей папке showmessage(Fol.Body); //или например смотри папку входящие mapi:=OutlookApplication1.GetNamespace('MAPI'); F:=mapi.GetDefaultFolder(olFolderInbox); //входящие end;
|
Названия папок ищи в Helpe по Outlook, там где то есть контакты |