Hab's gelöst:
hier der Code und Häckchen dran
Code:
try
OutApp.Connect;
//Get Namespace
oNS := OutApp.GetNamespace('
MAPI');
//Logon to NameSpace
oNS.Logon('','',false,false);
myItems:=OutApp.ActiveExplorer;
fold:=myItems.Selection;
mItem:=fold.Item[1];
except
OutApp.Disconnect;
ShowMessage('Fehler beim Verbinden mit Outlook !');
exit;
end;
Die Variable mItem bildet dann das Objekt der erten selektierten Mail ab !!!
MfG, Helld