Pop3

Du skal bruge et komponent der kan hente/sende email - f.eks. Jmail... hvis din udbyder har Jmail installeret kan du bruge dette script.

<% @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 & "&nbsp;(" & re.EMail & ")" & separator
  else
    ReCC = ReTo & re.Name & "&nbsp;(" & 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

%>

Ares