DevTrain Forum - Re: Pop3 mit VB.NET Abrufen ?

Forum: VB.NET | Thema: Re: Pop3 mit VB.NET Abrufen ? | Von: Hannes Preishuber ( 27.03.2003 15:40)

		vorab ein Code schnippsel 
ich werds noch dokumentieren in einem Artikel hie rund einem Detail Artikel in der ASP.NET professional

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.io
Imports System.Threading

Public Class Form1
    Inherits System.Windows.Forms.Form
    Public stream As NetworkStream
    Public sr As StreamReader
    Private Sub cmdPOPen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPOPen.Click
         Dim server As String = "servername"
        Dim user As String = "benutername"
        Dim password As String = "passwort"
        Dim message As String
        Dim send As String
        Dim client As New TcpClient(server, 110)
        stream = client.GetStream()
        sr = New StreamReader(stream)
        txtResponse.Text += sendCommand("?")
        txtResponse.Text += sendCommand("USER " + user)
        txtResponse.Text += sendCommand("PASS " + password)
        txtResponse.Text += sendCommand("STAT" + vbCrLf)
        txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
        txtResponse.Text += sendCommand("QUIT" + vbCrLf)
    End Sub
    Private Function sendCommand(ByVal send As String) As String
        send += vbCrLf
        Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
        data = Encoding.ASCII.GetBytes(send.ToCharArray())
        stream.Write(data, 0, data.Length)
        sr = New StreamReader(stream)
        Dim buffer As New StringBuilder
        Do While sr.Peek() > 0
            Thread.Sleep(100)
            buffer.Append(sr.ReadLine + vbCrLf)
        Loop
        Return buffer.ToString
    End Function
End Class

-Hannes

-Hannes
	

Betreff Von Datum

Re: Pop3 mit VB.NET Abrufen ?

Hallo toller code hat bei mir gut funktionier. Ich habe nur noch eine frage. Wenn ich einen Datei anhang habe, wie bekomme ich den gespeichert? Danke schon mal im voraus Stephan

G. Guest 13.05.2003 14:35

Re: Pop3 mit VB.NET Abrufen ?

das ist leider net so einfach 1. ist das atachment codiert 2. gibts verschiedene möglichkeiten Attachments anzuhängen bzw zu codieren das kann zb im Text so aussehen: Content-Type:...

Hannes Preishuber 13.05.2003 15:00

Re: Pop3 mit VB.NET Abrufen ?

Danke für die antwort. Hat jemand eine beispiel für eine Base64 decodierung, in VB.net. Danke im voraus. Stephan

G. Guest 14.05.2003 20:54

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!