Outlook-Emails per Drag und Drop auf App ziehen...

[Darkmorph]

Ich benutze nun das IDROPINTERFACE, um ein InterApp-DROP-Event zu erhalten. Daraufhin prüfe ich, per ActiveExplorer.Selection, ob in Outlook Nachrichten selektiert sind und übertrage diese per Ole Automatation. Das funzt auch alles Super, nur wie gehe ich auf Nummer sicher, das der Drop SENDER Outlook ist? Ich bekomme beim Drop-Event, wenn ich Clipboard-Format CF_TEXT einstelle, nur ein Ergebnis wie das folgt:

Zitat:

Von Betreff Erhalten Größe
Campusspeicher Team Campusspeicher - Neuigkeiten Sa 14.06 14 KB
Zattoo Support Deutschland User Support Sa 14.06 11 KB

Ich könnte jetzt einfach auf die Schlagworte "Vov", "Betreff", "Erhalten" und "Größe" prüfen, aber das scheint mir doch zu laienhaft in Bezug auf Mehrsprachigkeit von Outlook, Versionsabhängigkeit usw.

Delphi-Quellcode:

function TForm1.Drop(const dataObj: IDataObject; grfKeyState: Integer;
  pt: TPoint; var dwEffect: Integer): HResult;
var
  aFmtEtc: TFORMATETC;
  aStgMed: TSTGMEDIUM;
  pData: PChar;
begin
  {Make certain the data rendering is available}
  if (dataObj = nil) then
    raise Exception.Create('IDataObject-Pointer is not valid!');
  with aFmtEtc do
  begin
    cfFormat := CF_TEXT;
    ptd := nil;
    dwAspect := DVASPECT_CONTENT;
    lindex := -1;
    tymed := TYMED_HGLOBAL;
  end;
  {Get the data}
  OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
  try
    {Lock the global memory handle to get a pointer to the data}
    pData := GlobalLock(aStgMed.hGlobal);
    { Replace Text }
    Memo1.Text := pData;
  finally
    {Finished with the pointer}
    GlobalUnlock(aStgMed.hGlobal);
    {Free the memory}
    ReleaseStgMedium(aStgMed);
  end;
  Result := S_OK;
end;

Dieser Code empfängt verarbeitet das Dropen, es handelt sich dabei um kopierten COde ausm Netz, wo kann oder muß ich in dem COde ansetzen, um die Source-Applikation sicher zu ermitteln?

Vielen Dank für die bisherige Hilfe und das was da noch kommen mag

Gruß
Benjamin