w3 jmail pop3

kunne man være så heldig at få lidt kode at se?

/Søren Søndergård

det her skulle gerne hente meddelelse nr 1 fra test@snabelabe.dk
brugernavn: mail037621
adgangskode: 123456
pop3: pop3.freepaq.dk

der er en mail i indbakken, så den skulle gerne virke. kontoen virker fint, prøve evt. selv i outlook. Det skal måske  lige siges at det er på min egen maskine at jeg tester det, da freepaq ikke har installeret jmail...

<%

Set pop3 = Server.CreateObject( "JMail.POP3" )

pop3.Connect "mail037621", "123456", "pop3.freepaq.dk"

Response.Write( "You have " & pop3.count & " emails in your mailbox!<br><br>" )

if pop3.count > 0 then
Set msg = pop3.Messages.item(1)

ReTo = ""
ReCC = ""

Set Recipients = msg.Recipients
separator = ", "

For i = 0 To Recipients.Count - 1
  If i = Recipients.Count - 1 Then
    separator = ""
  End If

  Set re = Recipients.item(i)
  If re.ReType = 0 Then
    ReTo = ReTo & re.Name & "&nbsp;(" & re.EMail & ")" & separator
  else
    ReCC = ReTo & re.Name & "&nbsp;(" & re.EMail & ")" & separator
  End If
Next

Function getAttachments()
  Set Attachments = msg.Attachments
  separator = ", "

  For i = 0 To Attachments.Count - 1
    If i = Attachments.Count - 1 Then
      separator = ""
    End If

  Set at = Attachments(i)
  at.SaveToFile( "c:\attachments\" & at.Name )
  getAttachments = getAttachments & "<a href=""/attachments/" &_
  at.Name &""">" & at.Name & "(" & at.Size & " bytes)" &_
  "</a>" & separator
  Next
End Function

%>
<html>
<body>
<TABLE>
<tr>
  <td>Subject</td>
  <td><%= msg.Subject %></td>
</tr>
<tr>
  <td>From</td>
  <td><%= msg.FromName %></td>
</tr>
<tr>
  <td>Recipients To</td>
  <td><%= ReTO %></td>
</tr>
<tr>
  <td>Recipients CC</td>
  <td><%= ReCC %></td>
</tr>
<tr>
  <td>Attachments</td>
  <td><%= getAttachments %></td>
</tr>
<tr>
  <td>Body</td>
  <td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%

end if

pop3.Disconnect

%>

ja, det er jo sådan set nok bare at få det her til at virker :
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )

pop3.Connect "mail037621", "123456", "pop3.freepaq.dk"

Response.Write( "You have " & pop3.count & " emails in your mailbox!<br><br>" )

pop3.Disconnect
%>

a