> Ligger nogen inde med et godt/suverænt webmail-interface, der baserer sig
på JMails > POP3-funktionaliteter?
Så godt som:
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "BRUGERNAVN", "KODEORD", "MAILSERVER"
Response.Write( "<html>" ) & vbcrlf
Response.Write( "<head>" ) & vbcrlf
Response.Write( "<title>Indbakke</title>" ) & vbcrlf
Response.Write( "<LINK href='styleasp.css' rel='stylesheet'
type='text/css'>" ) & vbcrlf
Response.Write( "</head>" ) & vbcrlf
Response.Write( "<body>" ) & vbcrlf
Response.Write( "<p>Du har " & pop3.count & " nye emails i din
indbakke!</p><br><br>" )
if pop3.count > 0 then
Response.Write "<table>" & vbcrlf
Response.Write "<tr>" & vbcrlf
for j = 1 to pop3.Count
Set msg = pop3.Messages.item(j)
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 & " (" & re.EMail & ")" & separator
else
ReCC = ReTo & re.Name & " (" & re.EMail & ")" & separator
End If
Next
Response.Write "<td valign=top
class=background><p><b><u>Emne</u></b></p></td><td
class=background><p><b><u>" & msg.Subject & "</u></b></p></td></tr><tr>" & _
"<td valign=top><p>Fra</p></td><td><p>" & msg.FromName &
"</p></td></tr><tr>" & _
"<td valign=top><p>Fra</p></td><td><p>" & msg.From &
"</p></td></tr><tr>" & _
"<td valign=top><p>Modtager(e)</p></td><td><p>" & ReTO &
"</p></td></tr><tr>" & _
"<td valign=top><p>Modtager(e), CC</p></td><td><p>" & ReCC
& "</p></td></tr><tr>" & _
"<td valign=top><p>Antal vedhæftninger</p></td><td><p>" &
msg.Attachments.Count & "</p></td></tr><tr>" & _
"<td valign=top><p>Meddelse</p></td><td><pre>" & msg.body &
"</pre></td></tr><tr>" & vbcrlf
next
end if
Response.Write "</tr>" & vbcrlf
Response.write "</table>" & vbcrlf
Response.Write "</body>" & vbcrlf
Response.Write "</html>" & vbcrlf
pop3.Disconnect
%>
Venlig hilsen, Rasmus Nielsen.