Prøv med dette. Det kan kontakte en pop3 server og se hvilke mails der ligger der:
<% @LANGUAGE=VBSCRIPT %>
<%
Set pop3 = Server.CreateObject( \"JMail.POP3\" )
pop3.Connect \"username\", \"password\", \"mail.mydomain.com\"
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( \"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
%>
Ny bruger
Nybegynder
Opret
Preview
