In TFileContentsStreamClipboardFormat.GetData if (FGD.GetData(DataObject)) then seems to fail here. FGD seems to have a valid format or multiple in my case.
I compiled ComboTargetDemo with Delphi 2007 and tested it on Windows 7 with Outlook 2013 / Windows 10 and Outlook 2017.
I found a solution for this problem. Dragging attachments from Outlook with filename are working when using TVirtualFileStreamDataFormat shown in VirtualFileStream Demo.
In TFileContentsStreamClipboardFormat.GetData
if (FGD.GetData(DataObject)) then
seems to fail here. FGD seems to have a valid format or multiple in my case.I compiled ComboTargetDemo with Delphi 2007 and tested it on Windows 7 with Outlook 2013 / Windows 10 and Outlook 2017.