Visual Basic

Shared ClientSocket As System.Net.Sockets.TcpClient
Shared ClientStream As System.Net.Sockets.NetworkStream

ClientStream.Write(TxBuffer, 0, bytesToTx)
ClientStream.Read(RxBuffer, bytesRxed, RxBuffer.Length - bytesRxed)

'For x = 0 To ds.Tables.Count - 1
'    Dim tp As New TabPage("TabPage" & x)
'    TabControl1.TabPages.Add(tp)
'    DataGridView(x) = New DataGridView
'    'Dim tabPagex As System.Windows.Forms.TabPage
'    tp.Controls.Add(DataGridView(x))
'    DataGridView(x).DataSource = ds.Tables(x)
'    DataGridView(x).Dock = DockStyle.Fill
'Next

Dim xlApp, xlBook, xlSheet As Object
        xlApp = CreateObject("Excel.Application")
        xlBook = xlApp.Workbooks.Add
        xlSheet = xlBook.Worksheets()
        xlApp.Visible = True
        xlSheet = xlBook.Sheets("sheet1")
        Dim Cols As Integer
        For Cols = 1 To DataGridView1.Columns.Count
            xlApp.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText
        Next
        Dim i As Integer
        For i = 0 To DataGridView1.RowCount - 1
            Dim j As Integer
            For j = 0 To DataGridView1.ColumnCount - 1
                If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then
                    xlApp.Cells(i = 2, j = 1) = ""
                Else
                    xlApp.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString
                End If
            Next
        Next
        xlApp.Sheets.Add(xlApp.Sheets("sheet1"))
        xlApp.Sheets("sheet2").Select()
        For Cols = 1 To DataGridView2.Columns.Count
            xlApp.Cells(1, Cols) = DataGridView2.Columns(Cols - 1).HeaderText
        Next
        For i = 0 To DataGridView2.RowCount - 1
            Dim j As Integer
            For j = 0 To DataGridView2.ColumnCount - 1
                If Me.DataGridView2(j, i).Value Is System.DBNull.Value Then
                    xlApp.Cells(i = 2, j = 1) = ""
                Else
                    xlApp.Cells(i + 2, j + 1) = DataGridView2(j, i).Value.ToString
                End If
            Next
        Next
        xlApp.Sheets.Add(xlApp.Sheets("sheet2"))
        xlApp.Sheets("sheet3").Select()
        For Cols = 1 To DataGridView3.Columns.Count
            xlApp.Cells(1, Cols) = DataGridView3.Columns(Cols - 1).HeaderText
        Next
        For i = 0 To DataGridView3.RowCount - 1
            Dim j As Integer
            For j = 0 To DataGridView3.ColumnCount - 1
                If Me.DataGridView3(j, i).Value Is System.DBNull.Value Then
                    xlApp.Cells(i = 2, j = 1) = ""
                Else
                    xlApp.Cells(i + 2, j + 1) = DataGridView3(j, i).Value.ToString
                End If
            Next
        Next

<pre>Sub SlaMailOp()
'Haal het ID op van de momenteel geselecteerde mail
Dim olApp As Outlook.Application, olNs As Namespace, Item As Object, eFldr As Object
Dim MailItem As Variant
Dim Onderwerp As String
On Error GoTo ErrorHandler
Set olApp = GetObject(, "Outlook.Application")
tmpOpenTextInvoer = "C:\temp\OpenTextInvoer"
If olApp Is Nothing Then
    Set olApp = CreateObject("Outlook.Application")
End If

' Set the reference to the oulook MAPI namespace
Set olNs = olApp.GetNamespace("MAPI")

Set eFldr = olNs.Application.ActiveExplorer.Selection
'If eFldr.Count > 1 Then
'    MsgBox "Er mag maar 1 e-mail geselecteerd zijn. Probeer het opnieuw", vbCritical
'    Exit Sub
'End If

For Each MailItem In eFldr

'Onderwerp = PasGeldigheidBestandsnaamAan(Left(eFldr.Item(1).Subject, 50))
'eFldr.Item(1).SaveAs "C:\TEMP\OpenTextInvoer\" & Onderwerp & ".msg"
If Dir(tmpOpenTextInvoer, vbDirectory) = "" Then
    MkDir tmpOpenTextInvoer
End If

    Onderwerp = PasGeldigheidBestandsnaamAan(Left(MailItem.Subject, 120)) & "_" & Format(Now, "YYMMDDHHMMSS")
    
    MailItem.SaveAs tmpOpenTextInvoer & "\" & Onderwerp & ".msg"
    
Next
'Onderwerp = Left(eFldr.Item(1).Subject, 50)
'OlId = eFldr.Item(1).EntryID
'Datum_binnenkomst = Format(eFldr.Item(1).ReceivedTime, "DD-MM-YYYY")

Set olApp = Nothing
Set olNs = Nothing

Set eFldr = Nothing

Exit Sub
ErrorHandler:
MsgBox "Er is een fout opgetreden bij het ophalen van de e-mail informatie! Is Outlook wel opgestart?" & vbCr & Err.Description, vbCritical
End Sub

Function PasGeldigheidBestandsnaamAan(Naam As String)


Naam = Replace(Naam, ":", "_")
Naam = Replace(Naam, "\", "_")
Naam = Replace(Naam, "/", "_")
Naam = Replace(Naam, "*", "_")
Naam = Replace(Naam, "?", "_")
Naam = Replace(Naam, "<", "_")
Naam = Replace(Naam, ">", "_")
Naam = Replace(Naam, "|", "_")
Naam = Replace(Naam, """", "_")
Naam = Replace(Naam, " ", "_")
Naam = Replace(Naam, "€", "EUR")
Naam = Replace(Naam, """, "")
Naam = Replace(Naam, "'", "")
Naam = Replace(Naam, "’", "")
Naam = Replace(Naam, "Ë", "E")
Naam = Replace(Naam, "ë", "e")
Naam = Replace(Naam, "Ö", "O")
Naam = Replace(Naam, "ö", "o")
Naam = Replace(Naam, "Ü", "U")
Naam = Replace(Naam, "ü", "u")
Naam = Replace(Naam, "@", "_AT_")
Naam = Replace(Naam, "#", "_")
Naam = Replace(Naam, "___", "_")
Naam = Replace(Naam, "__", "_")

PasGeldigheidBestandsnaamAan = Naam

End Function

Function Ampersand(Naam As String)

Ampersand = Replace(Naam, "&", "&")

End Function