Hi Raymond,

I have bad news...

::OLEDragDrop

*!*    Format 49161 is DataObject
*!*    Format 49694 is RenPrivateSourceFolder
*!*    Format 49695 is RenPrivateMessages
*!*    Format 49315 is FileGroupDescriptor
*!*    Format 49314 is FileContents
*!*    Format 49166 is Object Descriptor
*!*    Format 1 is
*!*    Format 49171 is Ole Private Data
*!*    Format 16 is
*!*    Format 7 is
*!*    Format 13 is

lihfile=fcreate("e:\oledd2.hex")
thisform.edit2.value=oDataObject.Getdata(1)+chr(13)+chr(13)
thisform.edit2.value=thisform.edit2.value+oDataObject.Getdata(13)+chr(13)+chr(13)
thisform.edit2.value=thisform.edit2.value+oDataObject.Getdata(49166)+chr(13)+chr(13)

=fwrite(lihfile,thisform.edit2.value)

=fclose(lihfile)

VFP has big problem with corectly getting information from LPDATAOBJECT core object. You can get only a few informations as From, Subject, Received and Size without using Outloook.Application (GetData(1 [13])).

MartinJ

>Thank you Martin,
>
>I tried this and this is not what I need.
>I can Drag & drop an Outlook message onto my VFP application and it stores the content of the message in a Memo field.
>
>But what I want is to Drag the message title from Outlook and drop it onto my VFP application at have it create a MSG file like it would do if I dropped it in an Explorer window.
>
>So I am still looking.
>Raymond
>
>>You can use events OLEDragDrop() and OLEDragOver().
>>Are two examples about it in Solution, branch "Programming".
>>"Fun with OLE drag and drop" and "OLE drag and drop data formats".
>>
>>This example shows OLEDrag&Drop for main window
>>
>>MartinJ
>>
>>>When I am in Outlook and I drag & drop a message into Windows Explorer it creates a .MSG file.
>>>
>>>How can I do that in VFP: that is drag & drop the message from Outlook to a textbox in VFP where it would create a .MSG file in the default directory and write in the name of that .MSG file in the textbox?
>>>
>>>Thanks for your help
>>>
>>>Raymond Larche