Drag&Drop einer Email von Outlook ins Prog

[mscharf]

Ups, ich habe nicht gescheit gesucht.

Das Thema gab es hier schon einmal.
Titel: Aktuell markierte Mail in Outlook bestimmen

Das ist die Lösung des Problems:

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;