---

Jeg har udarbejdet noget kode til hentning af informationer fra pop3 mailservere vha. socket.tcp, problemet er bare at det ikke virker helt godt med alle mailservere. Nogen der har nogle gode råd eller forslag til forbedringer? Jeg ønsker kun at hente informationerne om størrelse på meddelelser, hvilket id der er tilknyttet til de enkelte meddelelser og antal meddelelser på webserveren og derfor ønsker jeg ikke at bruge JMail eller nogen af de andre komponenter.

<%
   session("pop3port") = 110
   session("pop3mailserver") = "hermes.web-sale.dk"
   session("pop3username") = "pop3testkonto@cht.dk"
   session("pop3password") = "test"

   firstmessage = 1
   lastmessage = 1

   if request.querystring("start") <> "" then firstmessage = request.querystring("start")
   if request.querystring("end") <> "" then lastmessage = request.querystring("end")

   Set objSocket = Server.CreateObject("Socket.TCP")
   objSocket.Host = session("pop3mailserver") & ":" & session("pop3port")
   objSocket.Open

   objSocket.TimeOut = 5000

   objSocket.SendLine("USER " & session("pop3username"))
   objSocket.SendLine("PASS " & session("pop3password"))
   objSocket.waitfor("OK")
   objSocket.SendLine("STAT")

   if firstmessage <> lastmessage then
      For i = firstmessage to request.querystring("end")
         objSocket.SendLine("LIST " & i)
      Next
   else
      objSocket.SendLine("LIST")
   end if

   if firstmessage <> lastmessage then
      For i = firstmessage to request.querystring("end")
         objSocket.SendLine("UIDL " & i)
      Next
   else
      objSocket.SendLine("UIDL")
   end if

   objSocket.waitfor(Chr(10))
   objSocket.SendLine("QUIT")

   objSocket.WaitForDisconnect

   tmpBuffer = objSocket.Buffer

   objSocket.Close
   Set objSocket = Nothing

   response.write "<pre>" & Server.HTMLEncode(tmpBuffer) & "</pre>"
%>

Mvh. Christoffer Thygesen

{ http://cht.dk/news/ - Din online news reader }