E-Mails abrufen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

    E-Mails abrufen

    Huhu ihr :)

    ich würde gerne per Klick auf einen Button E-Mails eines bestimmten Kontos abrufen lassen.
    Mein Code:

    VB.NET-Quellcode

    1. Imports System.Text.Encoding
    2. Public Class Client
    4. Private Client As New Net.Sockets.TcpClient
    5. Private POP3Stream As Net.Sockets.NetworkStream
    6. Private Connected As Boolean = False
    8. '''<summary>
    9. '''Verbindungssatus abfragen.
    10. '''</summary>
    11. Public ReadOnly Property ConnectionEstablished() As Boolean
    13. Get
    14. Return Connected
    15. End Get
    17. End Property
    19. '''<summary>
    20. '''Nachrichten Klasse
    21. '''</summary>
    22. Public Class MessageList
    24. Public ID As Int64
    25. Public Size As Int64
    27. End Class
    29. '''<summary>
    30. '''Verfügbarer POP3 Befehlssatz.
    31. '''</summary>
    32. Private Class Commands
    34. Public Const Delete As String = "DELE "
    35. Public Const GetMessage As String = "RETR "
    36. Public Const List As String = "LIST"
    37. Public Const Password As String = "PASS "
    38. Public Const Quit As String = "QUIT"
    39. Public Const ServerConfirm As String = "+OK"
    40. Public Const ServerNoMoreData As String = "."
    41. Public Const User As String = "USER "
    43. End Class
    45. '''<summary>
    46. '''Stellt die Verbindung zum POP3-Server her.
    47. '''</summary>
    48. '''<param name="Server">Servername (subdomain.domain.tld)</param>
    49. '''<param name="User">Benutzername</param>
    50. '''<param name="Password">Passwort</param>
    51. Public Sub Connect(ByVal Server As String, ByVal User As String, ByVal Password As String)
    53. If Connected = True Then Me.Disconnect()
    54. Try
    55. Me.Client.Connect(Server, 110)
    56. Me.POP3Stream = Me.Client.GetStream
    57. Me.CheckResponse(Me.GetResponse)
    58. Me.Send(Commands.User + User)
    59. Me.CheckResponse(Me.GetResponse)
    60. Me.Send(Commands.Password + Password)
    61. Me.CheckResponse(Me.GetResponse)
    62. Me.Connected = True
    63. Catch ex As Exception
    64. Me.Disconnect()
    65. Throw New ApplicationException(ex.Message, ex)
    66. End Try
    68. End Sub
    70. '''<summary>
    71. '''Trennt die Verbindung zum POP3-Server her.
    72. '''</summary>
    73. Public Sub Disconnect()
    75. If Connected = True Then
    76. Me.Send(Commands.Quit)
    77. Me.CheckResponse(Me.GetResponse())
    78. Me.Connected = False
    79. Me.Client.Close()
    80. End If
    82. End Sub
    84. '''<summary>
    85. '''Sendet POP3 Befehl zum Server.
    86. '''</summary>
    87. '''<param name="Command">POP3 Befehl</param>
    88. Private Sub Send(ByVal Command As String)
    89. Dim data As [Byte]() = ASCII.GetBytes(Command & vbCrLf)
    90. Me.POP3Stream.Write(data, 0, data.Length)
    92. End Sub
    94. '''<summary>
    95. '''Empfängt Antwort auf Send-Befehl vom Server.
    96. '''</summary>
    97. Private Function GetResponse() As String
    99. Dim SR As New IO.StreamReader(Me.POP3Stream)
    100. Dim SBuilder As New System.Text.StringBuilder
    101. Do While SR.Peek > -1
    102. SBuilder.Append(SR.ReadLine + vbCr)
    103. Loop
    104. Return SBuilder.ToString
    106. End Function
    108. '''<summary>
    109. '''Prüft ob die erhalten Antwort von GetResponse gültig ist.
    110. '''</summary>
    111. '''<param name="Response">Antort von GetResponse</param>
    112. Private Sub CheckResponse(ByVal Response As String)
    114. If Not String.Compare(Response.Substring(0, 3), Commands.ServerConfirm, False, Globalization.CultureInfo.CurrentCulture) = 0 Then
    115. Me.Client.Close()
    116. Me.Connected = False
    117. Throw New ApplicationException("Response " + Response + " not expected.")
    118. End If
    120. End Sub
    122. '''<summary>
    123. '''Gibt eine List(of POP3Message) der verfügbaren Nachrichten zurück.
    124. '''</summary>
    125. Public Function GetMessageList() As List(Of MessageList)
    127. If Me.Connected = False Then
    128. Throw New InvalidOperationException("Not connected!")
    129. End If
    130. Dim Pop3l As New List(Of MessageList)
    131. Me.Send(Commands.List)
    132. Dim Response() As String = Me.GetResponse.Split(vbCrLf)
    133. CheckResponse(Response(0))
    135. For i As Integer = 1 To Response.Length - 3
    136. Dim POP3m As New MessageList
    137. POP3m.ID = i
    138. POP3m.Size = Convert.ToInt64(Response(i).Split(" ")(1))
    139. Pop3l.Add(POP3m)
    140. Next
    142. Return Pop3l
    144. End Function
    146. '''<summary>
    147. '''Nachricht mit angebener Nummer vom Server lesen
    148. '''</summary>
    149. '''<param name="MessageID">MessageID</param>
    150. Public Function GetMessage(ByVal MessageID As Integer) As String
    152. If Me.Connected = False Then
    153. Throw New InvalidOperationException("Not connected!")
    154. End If
    155. Me.Send(Commands.GetMessage & MessageID)
    156. Me.CheckResponse(Me.GetResponse)
    157. Dim Response As String = Me.GetResponse
    158. Return Response
    160. End Function
    162. End Class


    Aber bei dem Convert (Zeile 138) bekomme ich folgende Meldung:

    Fehler bei der Überladungsauflösung, da keine zugreifbare "Convert" diese Anzahl von Argumenten akzeptiert.

    Wie kann ich das beheben, bzw. kennt jemand eine bessere Lösung ?
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Hat hier wirklich niemand eine Idee ?
    Ich möchte ja nicht drängeln aber ich benötige das dringend :(
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Ich habe mal einfach so getestet:


    Quellcode

    1. Dim a As Integer
    3. Dim Response() As String = {"123 456 789", "234 765 987"}
    5. For i = 0 To 1
    6. a = Convert.ToInt64(Response(i).Split(" ")(0))
    7. Debug.Print(a)
    8. Next i



    Das ging problemlos. Vielleicht solltest du mal probieren die Function in mehrere
    Zeilen zu trennen.

    Die OpenPop3.dll ist wirklich super :)

    Aber wie kann ich nun beim Abrufen prüfen, ob die mails bereits gelesen wurden ?
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Das musst du selbst bewerkstelligen. Du musst dir ein System überlegen, z.B. das Datum, Betreff und Absender mit den bereits vorhandenen Mails vergleichen. Nur wenn keine Übereinstimmung ist wird die E-Mail als "Neu" angezeigt. Ansonsten musst sie ja nicht nochmal hinzufügen.

    Ich habe es allerdings einfacherer gelöst, indem ich nach dem Abholen die E-Mail im Konto lösche, somit sind automatisch alle Mails die sich im Konto befinden neue Mails.

Facebook
Telefonspende