Tjeck antal mails fra pop3 server

Public Shared Function GetPopMails(ByVal server As String, ByVal username As String, ByVal password As String) As Integer
            Dim cli As TcpClient = New TcpClient(server, 110)
            Dim sw As StreamWriter = New StreamWriter(cli.GetStream)
            Dim sr As StreamReader = New StreamReader(cli.GetStream)
            sw.AutoFlush = True
            sr.ReadLine
            sw.WriteLine("user " + username)
            sr.ReadLine
            sw.WriteLine("pass " + password)
            sr.ReadLine
            sw.WriteLine("list")
            Dim line As String = sr.ReadLine
            Dim ix1 As Integer = line.IndexOf(" ")
            Dim ix2 As Integer = line.IndexOf(" ", ix1 + 1)
            Dim res As Integer = Integer.Parse(line.Substring(ix1 + 1, ix2 - ix1 - 1))
            While Not (sr.ReadLine = ".")
            End While
            sw.WriteLine("quit")
            sr.ReadLine
            sw.Close
            sr.Close
            cli.Close
            Return res
        End Function

Her er lidt nærmere info vedr. POP3 og hvilke kommandoer du kan sende til mailserveren: http://www.good-stuff.co.uk/useful/pop3.php

Læg mærke til, at serveren returnerer +OK eller -ERR beskeder, alt efter om den sidst sendte kommando var i orden eller ej.

tak for det link :D

den siger
'StreamReader' is not defined.
osv til de 3 dimmer.. hvad skal jeg bruge der?

Du skal bruge

Imports System.IO

- for at have adgang til StreamReader.

ohhh ja self :p flot jeg lige overså det..

plejer at kopiere den ind som standard i mine programmer men den glippede sku lige

Og:

Imports System.Net.Sockets

- for TcpClient

Læg mærke til, at STAT kommandoen på POP3 serveren returnerer antal e-mails og inboxens størrelse. Det ville nok være smartest at benytte denne.

Fandt et lidt bedre link: http://networking.ringofsaturn.com/Protocols/pop3.php

helt kanon kan arnev og bernhof ik oprette et svar hver?

.

:)