como va?
necesito hacer un script que lea el ultimo mail que ingreso en una casilla, no se por que no funciona. alguien puede ayudarme?
desde ya muchas gracias.
Este es mi codigo:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim oMailer, oMsg, oAttach
Dim I
%>
<html>
<head>
</head>
<body>
<%
'On Error Resume Next
' Create POP3 object
Set oMailer = Server.CreateObject("Persits.MailSender")
' Set server name, user account login and password
oMailer.ServerName = "pop3.fibertel.com.ar"
oMailer.UserName = "correogestion"
oMailer.Password = "xxxxxx"
' Try to connect to mail server
oMailer.Connect
' Mailbox is not empty?
If oMailer.MessageCount > 0 Then
' Completely download the message
Set oMsg = oMailer.RetrieveSingleMessage(oMailer.MessageCount )
If Not oMailer.IsError Then
' Display headers. We use Server.HTMLEncode to wrap special chars
' (such as <>&)
Response.Write "From: " & Server.HTMLEncode(oMsg.FromAddr) & "<br>"
Response.Write "To: " & Server.HTMLEncode(oMsg.ToAddr) & "<br>"
Response.Write "Subject: " & Server.HTMLEncode(oMsg.Subject) & "<br>"
Response.Write "Date: " & Server.HTMLEncode(oMsg.Date) & "<br>"
Response.Write "<br>"
' Display the message body
If oMsg.BodyFormat = 1 Then
' Display HTML-formatted message directly
Response.Write oMsg.BodyText
Else
' For non-HTML messages, we need to prepare the message
' for viewing in the browser
Response.Write "<pre>"
Response.Write Server.HTMLEncode(oMsg.BodyText)
Response.Write "</pre>"
End If
' Any attachments to the message?
If oMsg.Attachments.Count > 0 Then
Response.Write "<p>Attachments:<br>"
' Display attachments filenames and sizes
For I = 1 To oMsg.Attachments.Count
Set oAttach = oMsg.Attachments(I)
Response.Write Server.HTMLEncode(oAttach.Filename) & " [" & oAttach.Size & " bytes]"
Response.Write "<br>"
Next
Response.Write "</p>"
End If
Else
DisplayError oMailer
End If
Else
Response.Write "<font color=red>Mailbox is empty</font>"
End If
' The message is retrieved (or error occurred), so we
' may disconnect now
oMailer.Disconnect
%>
</body>
</html>