SMTP-Protokoll auswerten

  • VB.NET
  • .NET (FX) 4.5–4.8

    SMTP-Protokoll auswerten

    Hallo zusammen,

    ich möchte gerne einen Mailserver programmieren. Hab mich auch schon in das Thema Netzwerkkommunikation, Portüberwachung, eMail senden und empfangen, usw. eingelesen. Habe mir bis dato diesen Code zusammen gestickt.

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Text
    6. Imports Microsoft.VisualBasic
    8. Public Class Form2
    10. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    11. Dim server As TcpListener
    12. server = Nothing
    14. Try
    15. Dim port As Int32 = 25
    16. Dim localAdr As IPAddress = IPAddress.Any
    18. server = New TcpListener(localAdr, port)
    20. server.Start()
    22. Dim bytes(1024) As Byte
    23. Dim data As String = Nothing
    25. While True
    26. ListBox1.Items.Add("Warte auf eine Verbindung....")
    27. Me.Refresh()
    29. Dim client As TcpClient = server.AcceptTcpClient()
    30. ListBox1.Items.Add("Verbindung hergestellt")
    31. Me.Refresh()
    33. data = Nothing
    35. Dim stream As NetworkStream = client.GetStream()
    36. Dim streamR As StreamReader
    37. streamR = New StreamReader(stream)
    39. Dim i As Int32
    41. i = stream.Read(bytes, 0, bytes.Length)
    42. Dim meiner = streamR.ReadLine.ToString
    43. ListBox1.Items.Add(meiner)
    45. While (i <> 0)
    46. data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
    47. ListBox1.Items.Add("Empfangen: " & data)
    48. Me.Refresh()
    50. i = stream.Read(bytes, 0, bytes.Length)
    51. End While
    53. client.Close()
    55. End While
    57. Catch ex As Exception
    58. ListBox1.Items.Add("SocketFehler: " & e.ToString)
    59. Me.Refresh()
    61. Finally
    62. server.Stop()
    63. End Try
    64. End Sub
    65. End Class


    Er funzt eigentlich schon so weit, dass, wenn ich auf den Button klicke, der Server gestartet wird und auf eine Verbindung wartet. Wenn ich eine Mail von meinem Mailprogramm abschicke, wird auch die Verbindung erkannt. Allerdings, dann ist Schluß. Leider werden mir keinerlei Daten angezeigt, die ich dann auswerten und dementsprechend weiter verarbeiten kann und die eingehende eMail in den ensprechenden Ordner zum Senden abspeichern kann.

    Vielleicht ist auch mein Ansatz falsch und in einer falschen Richtung angesetzt. Wie gesagt, ich habe viel in den Foren gelesen und auch gegoogelt. Kann also leicht sein, dass ich den Weg verlassen habe oder ihn auch nicht mehr sehe.

    Vielleicht kann mir einer eine Hilfestellung geben oder mich wieder auf den rechten Weg führen. ;)

    Vielen Dank schon mal für Eure Gedankenanstösse.

    Gruß Zaunkonig