Private Sub dgvFiles_DragDrop(sender As Object, e As _
   System.Windows.Forms.DragEventArgs) Handles dgvFiles.DragDrop
 
        If e.Data.GetDataPresent("FileGroupDescriptor") Then
            Dim ol As New Microsoft.Office.Interop.Outlook.Application
            Dim mi As Microsoft.Office.Interop.Outlook.MailItem
            Dim itm As Object
 
            If ol Is Nothing Then
                MessageBox.Show("Kein ol")
                Exit Sub
            Else
                For Each itm In ol.ActiveExplorer.Selection
                    Try
                        mi = itm
                        Dim SimpleFileName As String = mi.Subject & ".msg"
                        Dim SendFrom As String = mi.Sender.Name
                        Dim ReceivedTime As Date = mi.ReceivedTime
                        SimpleFileName = FileNameConvert(SendFrom) & "__" & _
                          FileNameConvert(SimpleFileName)
                        Dim strFile As String = System.IO.Path.Combine( _
                        Environment.GetEnvironmentVariable("temp"), _
                        SimpleFileName)
                        mi.SaveAs(strFile)
                        System.IO.File.SetLastWriteTime(strFile, ReceivedTime)
                    Catch ex As Exception
 
                    End Try
 
                Next
            End If
            Exit Sub
        End If
 
    End Sub

EALA FREYA FRESENA

Beitrag wurde zuletzt am 26.09.18 um 14:03:52 editiert.