drag and drop from Outlook 2k to vb.net form

[MikeSCOTT05]

Hi There,

I was wondering if anyone knows how to handle drag/drop of an Outlook item to a vb.net form? What I want to do is save the dropped Outlook item as a .msg file. Please see code below:

note that objMemoryStream = e.Data.GetData("FileContents")
returns nothing - I had expected to read file data from this.

Any help much appreciated

Thanks

Mike


Private Sub frmMain_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim aFiles() As String
Dim intCount As Integer
Dim strFile As String
Dim objMemoryStream As MemoryStream
Dim aFileGroupArray(512) As Byte
Dim objFileStream As FileStream
Dim strFileName As String

If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
'handle files fropped from explorer
aFiles = e.Data.GetData(DataFormats.FileDrop)
For intCount = 0 To aFiles.Length - 1
strFile = aFiles(intCount).ToString
AddFile(strFile)
SavePending(strFile)
Next

ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) Then
'handle items from Outlook
objMemoryStream = e.Data.GetData("FileGroupDescriptor", True)
objMemoryStream.Read(aFileGroupArray, 0, 512)
Dim fileName As StringBuilder = New StringBuilder(256)

'following code extracts file name of message
For intCount = 76 To 512
fileName.Append(Convert.ToChar(aFileGroupArray(intCount)))
Next

objMemoryStream.Close()
strFileName = Path.GetTempPath & fileName.ToString

'following line of code returns nothing
'so can't read file contents into memory stream
objMemoryStream = e.Data.GetData("FileContents")

Dim aFileBytes(objMemoryStream.Length) As Byte

objMemoryStream.Position = 0
objMemoryStream.Read(aFileBytes, 0, (objMemoryStream.Length))

'create .msg file
objFileStream = New FileStream(strFileName, FileMode.Create)
objFileStream.Write(aFileBytes, 0, (aFileBytes.Length))
End If
End Sub