Hi ich würde gerne etwas ein Programm schreiben mit dem ich E-mails empfangen kann.
Ich möchte also einen Pop3 server abfragen.
Mein Problem ist ich weis überhaupt nicht wie sowas geht ich hab die sufu benutzt und gegooglet aber nichts gefunden. was mir hilft nun bin ich hier.

mfg trumpetboy

Probiere mal das hier, habs gerade gefunden und demnach noch nicht getestet:

dotnet-snippets.de/dns/email-ueber-pop3-abfrufen-SID765.aspx

Viele Grüße

KillerVirus

und gegooglet aber nichts gefunden. was mir hilft

*Keine Beleidigungen bitte!*

Google Suche: "vb.net pop3"
Erster Treffer: "POP3 Mailkonten mit VB .NET abfragen"
URL: devtrain.de/artikel_839.aspx

Have Fun.

So produktive Beiträge helfen hier keinem weiter.

aber echt

Zum Thema email abrufen:
Im Prinzip musst du mit dem POP3 Server eine Verbindung aufbauen und ihm ein paar Befehle senden.
Hier müsste sich was bezüglich der Befehle finden lassen: Link

Hi ich hab hier jetzt n code der ist recht gut ich bekomme nur 2 Fehlermeldungen.
ich weis nicht was mit Dim SBuilder As New Text.StringBuilder das mit dem Text.Stringbuilder macht mir Probleme könnt ihr mir da helfen ??


Code


Public Class Client

Private Client As New Net.Sockets.TcpClient
Private POP3Stream As Net.Sockets.NetworkStream
Private Connected As Boolean = False

'''<summary>
'''Verbindungssatus abfragen.
'''</summary>
Public ReadOnly Property ConnectionEstablished() As Boolean

Get
Return Connected
End Get

End Property

'''<summary>
'''Nachrichten Klasse
'''</summary>
Public Class MessageList

Public ID As Int64
Public Size As Int64

End Class

'''<summary>
'''Verfügbarer POP3 Befehlssatz.
'''</summary>
Private Class Commands

Public Const Delete As String = "DELE "
Public Const GetMessage As String = "RETR "
Public Const List As String = "LIST"
Public Const Password As String = "PASS "
Public Const Quit As String = "QUIT"
Public Const ServerConfirm As String = "+OK"
Public Const ServerNoMoreData As String = "."
Public Const User As String = "USER "

End Class

'''<summary>
'''Stellt die Verbindung zum POP3-Server her.
'''</summary>
'''<param name="Server">Servername (subdomain.domain.tld)</param>
'''<param name="User">Benutzername</param>
'''<param name="Password">Passwort</param>
Public Sub Connect(ByVal Server As String, ByVal User As String, ByVal Password As String)

If Connected = True Then Me.Disconnect()
Try
Me.Client.Connect(Server, 110)
Me.POP3Stream = Me.Client.GetStream
Me.CheckResponse(Me.GetResponse)
Me.Send(Commands.User + User)
Me.CheckResponse(Me.GetResponse)
Me.Send(Commands.Password + Password)
Me.CheckResponse(Me.GetResponse)
Me.Connected = True
Catch ex As Exception
Me.Disconnect()
Throw New ApplicationException(ex.Message, ex)
End Try

End Sub

'''<summary>
'''Trennt die Verbindung zum POP3-Server her.
'''</summary>
Public Sub Disconnect()

If Connected = True Then
Me.Send(Commands.Quit)
Me.CheckResponse(Me.GetResponse())
Me.Connected = False
Me.Client.Close()
End If

End Sub

'''<summary>
'''Sendet POP3 Befehl zum Server.
'''</summary>
'''<param name="Command">POP3 Befehl</param>
Private Sub Send(ByVal Command As String)

Dim data As [Byte]() = Text.Encoding.ASCII.GetBytes(Command & vbCrLf)
Me.POP3Stream.Write(data, 0, data.Length)

End Sub

'''<summary>
'''Empfängt Antwort auf Send-Befehl vom Server.
'''</summary>
Private Function GetResponse() As String

Dim SR As New IO.StreamReader(Me.POP3Stream)
Dim SBuilder As New Text.StringBuilder
Do While SR.Peek > -1
SBuilder.Append(SR.ReadLine + vbCr)
Loop
Return SBuilder.ToString

End Function

'''<summary>
'''Prüft ob die erhalten Antwort von GetResponse gültig ist.
'''</summary>
'''<param name="Response">Antort von GetResponse</param>
Private Sub CheckResponse(ByVal Response As String)

If Not String.Compare(Response.Substring(0, 3), Commands.ServerConfirm, False, Globalization.CultureInfo.CurrentCulture) = 0 Then
Me.Client.Close()
Me.Connected = False
Throw New ApplicationException("Response " + Response + " not expected.")
End If

End Sub

'''<summary>
'''Gibt eine List(of POP3Message) der verfügbaren Nachrichten zurück.
'''</summary>
Public Function GetMessageList() As List(Of MessageList)

If Me.Connected = False Then
Throw New InvalidOperationException("Not connected!")
End If
Dim Pop3l As New List(Of MessageList)
Me.Send(Commands.List)
Dim Response() As String = Me.GetResponse.Split(vbCrLf)
CheckResponse(Response(0))

For i As Integer = 1 To Response.Length - 3
Dim POP3m As New MessageList
POP3m.ID = i
POP3m.Size = Convert.ToInt64(Response(i).Split(" ")(1))
Pop3l.Add(POP3m)
Next

Return Pop3l

End Function

'''<summary>
'''Nachricht mit angebener Nummer vom Server lesen
'''</summary>
'''<param name="MessageID">MessageID</param>
Public Function GetMessage(ByVal MessageID As Integer) As String

If Me.Connected = False Then
Throw New InvalidOperationException("Not connected!")
End If
Me.Send(Commands.GetMessage & MessageID)
Me.CheckResponse(Me.GetResponse)
Dim Response As String = Me.GetResponse
Return Response

End Function

End Class

hallo trompetboy

die stringbuilder-klasse macht nichts anderes, als

setz deinen code doch bitte in die entsprechenden tags

gruss

mikeb69

Mein Problem ist



und


er hat bei mir mit dem text Probleme und ich weis nicht wie ich das beheben kann

hallo rumpetboy,

mit tags meine ich, setzt am anfang und am ende deines codes die tags damit es nach code aussieht.
macht das ganze übersichtlicher.

im letzten post hast du es ja.

nun zum code
setzt mal

und

dann sollte die fehlermeldung weg sein.

gruss

mikeb69

NE jetzt hab ich leider 3 Fehler ich weis auch wenn ich das eine Dimulierte mit dem hier ersetze tritt ein anderer Fehler auf das er Command nicht kennt.



Code