<html>
<head>
<title>w3 JMail POP3 Demo Script</title>
<head>
<body bgcolor=\"white\">
<blockquote>
<h2>w3 JMail POP3 Demo Script</h2>
<%
Set pop3 = Server.CreateObject(\"JMail.POP3\")
pop3.Connect \"username/mailserver\", \"password\", \"mailserver\"
Response.Write( \"You have \" & pop3.count & \" emails in your mailbox!<br><br>\" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
\' Note the first element of this array is 1,
\' since the POP3 server starts counting at 1
ReTo = \"\"
ReCC = \"\"
Set Recipients = msg.Recipients
separator = \", \"
\' We now need to get all the recipients,
\' both normal and Carbon Copy (CC) recipients
\' and store them in a variabel
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
\' This function iterates through the Attachments object,
\' and saves the attachment to the server\'s disk.
\' It also returns a nicely formatted string with a
\' link to the attachment.
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(\"\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\log\\\"&at.Name&\"\")
getAttachments = getAttachments & \"<a href=\"\"/log/\" &_
at.Name &\"\"\">\" & at.Name & \"(\" & at.Size & \" bytes)\" &_
\"</a>\" & separator
next
End Function
Response.Write \"<table>\" + vbCrLf
Response.Write \"<tr><td>Subject</td><td>\"&msg.Subject&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td>From</td><td>\"&msg.FromName&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td>Recipients To</td><td>\"&ReTO&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td>Recipients CC</td><td>\"&ReCC&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td>Attachments</td><td>\"&getAttachments&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td>Body</td><td><pre>\"&msg.Body&\"</pre></td></tr>\" + vbCrLf
Response.Write \"</table>\" + vbCrLf
end if
pop3.Disconnect
Set pop3 = nothing
%>
</blockquote>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
