leer los correos de la bandeja de entrada del outlook

11/08/2004 - 00:40 por moller | Informe spam
señore del foro planteo la siguiente incognita que he
averiguado pero no he tenido los resultados esperados,
alguen sabe como puedo leer los mensaje del outlook de
una pagina aspx y luego guardarlo en una base de dato sql
o importar los mensaje de la badeja de entrada para
guardarlo en una base de dato ojala me pudieran resolver
esta incognita toda la ayuda es bien recibida desde ya
gracias
saluda etentamente Moller
nota:ojala un ejemplo o algun link donde me pueda
orientar
 

Leer las respuestas

#1 Franco Figún
11/08/2004 - 00:53 | Informe spam
<%@page%>
<HTML><HEAD><title>chequear Pop3 E-mail</title></HEAD>
<body bgcolor=white>
<%
if isPostback then
readMail(host.text,user.text,pass.text)
else
%>
<form id=calc method=post runat="server">
<P>
Host <asp:TextBox id=host runat="server"></asp:TextBox>
<P>
User <asp:TextBox id=user runat="server"></asp:TextBox>
<P>
Pass <asp:TextBox TextMode=Password id=pass runat="server"></asp:TextBox>
<P>
<asp:Button id=Button1 runat="server" Text="Login"></asp:Button>
</FORM>
<%
end if
%>
</body></HTML>
<script language="vb" runat="server">
Dim tcpC as New system.net.sockets.TcpClient()
' send command strings and return the response
Function SendCommand(byRef netstream as
System.Net.Sockets.NetworkStream,byVal sToSend as String)
Dim bData() as Byte = Encoding.ASCII.GetBytes(sToSend.ToCharArray)
netstream.Write(bData,0,bData.Length())
Return GetResponse(netstream)
End Function
' check if there is a response to get and return it
Function GetResponse(byRef netstream as System.Net.Sockets.NetworkStream)

Dim bytes(tcpC.ReceiveBufferSize) As Byte
Dim ret as integer = netStream.Read(bytes, 0, bytes.length)

' Returns the data received
Dim returndata As String = Encoding.ASCII.GetString(bytes)
return returndata
End Function

Function ReadMail(host as string, user as string, pass as string)
' initialise objects
Dim netstream as System.Net.Sockets.NetworkStream

Dim thisResponse as string

' open connection to server
try
tcpC.Connect(host,110)
catch ex as exception
response.write("Error connecting to host: " & ex.message & " - Please
check your details and try again")
response.end
end try

' get response
netstream = tcpC.GetStream()
thisResponse=GetResponse(netstream)

' enter user name
thisResponse=SendCommand(netstream,"user " & user & vbCrLF)

' enter password
thisResponse=SendCommand(netstream,"pass " & pass & vbCrLf)

' check if logged in ok
if not left(thisResponse,4)="-ERR" then
response.write("<font face=courier>Logged in OK <BR>")
else
response.write("Error logging in, check your user details and try
again<BR>")
response.write("<P>" & thisresponse)
response.end
end if

thisResponse=SendCommand(netstream,"stat" & vbCrLf)

dim tmpArray() as string
tmpArray = split(thisResponse," ")

dim thisMess as integer
dim numMess as string = tmpArray(1)

response.write("<p><hr>")

thisResponse = ""

if cint(numMess) > 0 then
response.write("Messages: " & numMess & "<br>")
for thisMess = 1 to cint(numMess)


thisResponse += replace(SendCommand(netstream,"top " & thisMess & " 10" &
vbCrLf),vbcrlf,"<br>")

next
else
response.write("Messages: None" & "<br>")
end if

thisResponse += replace(SendCommand(netstream,"stat" &
vbCrLf),vbcrlf,"<br>")

tmpArray = split(thisResponse,"+OK")

response.write(thisresponse)

Dim msg as integer
for msg = 1 to tmpArray.length-1

response.write("<h3>#" & msg & "</h1>" & tmpArray(msg) & "<p>")

next

thisResponse=SendCommand(netstream,"QUIT" & vbCrLF)
tcpC.close
End Function
</script>
<comment>
http://authors.aspalliance.com/chri...sp?article“
</comment>

FF
www.francofigun.com.ar
Yahoo MSN:
ICQ: 314408886
"moller" wrote in message
news:3d4c01c47f2b$077c1470$
señore del foro planteo la siguiente incognita que he
averiguado pero no he tenido los resultados esperados,
alguen sabe como puedo leer los mensaje del outlook de
una pagina aspx y luego guardarlo en una base de dato sql
o importar los mensaje de la badeja de entrada para
guardarlo en una base de dato ojala me pudieran resolver
esta incognita toda la ayuda es bien recibida desde ya
gracias
saluda etentamente Moller
nota:ojala un ejemplo o algun link donde me pueda
orientar

Preguntas similares