Drag and drop forward email attached file

HI Dess,

 

In attached file is simple of drag and drop from email. Yes, I want to drag outlook email of attached file of email drop into gridview or form . But

I didn't get file stream in yellow highlight part. If outlook email of attached of excel file or pdf file , I can get that file stream. I would like to how to solve and do have in telerik like that method? 

 

I can't attached file. So I will show in below my demo coding.

 

   Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        Dim fileNames As String() = Nothing

        Try

            If e.Data.GetDataPresent(DataFormats.FileDrop, False) = True Then
                fileNames = CType(e.Data.GetData(DataFormats.FileDrop), String())

                For Each fileName As String In fileNames
                Next
            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
                Dim theStream As Stream = CType(e.Data.GetData("FileGroupDescriptor"), Stream)
                Dim fileGroupDescriptor As Byte() = New Byte(511) {}
                theStream.Read(fileGroupDescriptor, 0, 512)
                Dim fileName As StringBuilder = New StringBuilder("")
                Dim i As Integer = 76

                While fileGroupDescriptor(i) <> 0
                    fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
                    i += 1
                End While

                theStream.Close()
                Dim path1 As String = Path.GetTempPath()
                Dim theFile As String = path1 & fileName.ToString()
                Dim ms As MemoryStream = CType(e.Data.GetData("FileContents", True), MemoryStream)
                Dim fileBytes As Byte() = New Byte(ms.Length - 1) {}
                ms.Position = 0
                ms.Read(fileBytes, 0, CInt(ms.Length))
                Dim fs As FileStream = New FileStream(theFile, FileMode.Create)
                fs.Write(fileBytes, 0, CInt(fileBytes.Length))
                fs.Close()
                Dim tempFile As FileInfo = New FileInfo(theFile)

                If tempFile.Exists = True Then

                    ' tempFile.Delete()
                Else
                    Trace.WriteLine("File was not created!")
                End If
            End If

        Catch ex As Exception
            Trace.WriteLine("Error in DragDrop function: " & ex.Message)
        End Try
    End Sub