H Philip
Posts: 17
Joined: 2005-01-14
|
A quick example will be much appreciated (-:
|
|
Dmitry Kostochko
Add-in Express team
Posts: 2880
Joined: 2004-04-05
|
Hi Philip,
uses Outlook2000, Dialogs;
procedure TAddInModule.adxOlExplorerCommandbar1Controls0Click(Sender: TObject);
var
IDsp: IDispatch;
MItem: MailItem;
begin
IDsp := OutlookApp.ActiveExplorer.Selection.Item(1);
if Assigned(IDsp) then
try
IDsp.QueryInterface(IID__MailItem, MItem);
if Assigned(MItem) then
ShowMessage(DateTimeToStr(MItem.ReceivedTime));
finally
MItem := nil;
IDsp := nil;
end;
end; |
|