drag-drop from outlook problem

[Thomas]

Hi all,
I've got a half-functioning drag-drop from outlook app running.
I can get the name of the message from the FileGroupDescri ptor part, but
whenever I try to get the FileContents part, I allways get Nothing back.
I've posted my code below - I hope someone here has a solution to this.

Cheers
Thomas

Private Sub Label1_DragDrop (ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles Label1.DragDrop

Dim header As IO.MemoryStream

Dim data As IO.MemoryStream

Dim fs As IO.FileStream

Dim filePath As String = ""

Dim fileName As String = ""

' check the formats supported

Dim s() As String

Dim sFormat As String

s = e.Data.GetForma ts

For Each sFormat In s

Me.ListBox1.Ite ms.Add("Support ed format: " & sFormat)

Next

' get the file group descriptor, for the file name

header = CType(e.Data.Ge tData("FileGrou pDescriptor", False),
IO.MemoryStream )

header.Position = 76

Do While True

Dim l As Integer = header.ReadByte ()

If (l = 0) Then Exit Do

fileName &= Convert.ToChar( l).ToString()

Loop

If fileName.Length = 0 Then Return

Me.ListBox1.Ite ms.Add("Object dropped: " & fileName)

' get the actual dropped object

data = CType(e.Data.Ge tData("FileCont ents", False), IO.MemoryStream )

If Not data Is Nothing Then

Try

' get the data as a byte array

Dim b(data.Length) As Byte

data.Position = 0

data.Read(b, 0, data.Length)

' save the byte array to file

filePath = "D:\" + fileName

fs = New IO.FileStream(f ilePath, IO.FileMode.Cre ate)

fs.Write(b, 0, data.Length)

Catch ex As Exception

Me.ListBox1.Ite ms.Add("Excepti on: " & ex.Message)

Finally

fs.Close()

End Try

Else

Me.ListBox1.Ite ms.Add("No data recieved")

End If

End Sub

[John Chen]

Thomas,

You can use DataObject.GetD ataPresent to test if FileContents is in the
DataObject.

HTH,

John Chen

[Thomas]

Hi John,
the GetDataPresent returns true for the FileContents, but I can't get it
with the GetData, for some odd reason.
Any ideas?

Cheers,
Thomas
"John Chen" <jo******@micro soft.com> wrote in message
news:3#******** *****@cpmsftngx a06.phx.gbl...

Thomas,

You can use DataObject.GetD ataPresent to test if FileContents is in the
DataObject.

HTH,

John Chen

[John Chen]

How do you set the object into the DataObject?
Is your set object routine in the same project of the get object?
Is there any exceptions you see when you get the object?

John