Hallo,
Ik zou graag zelf iets willen schrijven waarmee ik de inhoud van mijn mailbox (exchange of pop3, beide als keuze) mee kan ophalen. Er is alleen verbazend weinig over te vinden op het internet, ik blijf maar geredirect worden naar vage components waar je voor moet betalen etc.
Ik zou verwachten dat het in asp.net zelf wel ondersteund word, maar ben bijna de hoop kwijt, daarom vraag ik het hier.
( eigenlijk moet het uiteindelijk in mijn microsoft access applicatie komen, maar omdat in access het al helemaal niet mogelijk is, probeer ik het via asp.net )
alvast bedankt,
Angelo
(edit/ps.)
dit heb ik zelf gevonden alleen krijg ik niet aan de praat en snap er ook niks van (hij verstuurd commandos over het netwerk en zo krijg je mail??
):
Ik zou graag zelf iets willen schrijven waarmee ik de inhoud van mijn mailbox (exchange of pop3, beide als keuze) mee kan ophalen. Er is alleen verbazend weinig over te vinden op het internet, ik blijf maar geredirect worden naar vage components waar je voor moet betalen etc.
Ik zou verwachten dat het in asp.net zelf wel ondersteund word, maar ben bijna de hoop kwijt, daarom vraag ik het hier.
( eigenlijk moet het uiteindelijk in mijn microsoft access applicatie komen, maar omdat in access het al helemaal niet mogelijk is, probeer ik het via asp.net )
alvast bedankt,
Angelo
(edit/ps.)
dit heb ik zelf gevonden alleen krijg ik niet aan de praat en snap er ook niks van (hij verstuurd commandos over het netwerk en zo krijg je mail??
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| Dim tcpClient As TcpClient = New TcpClient
Dim hostName As String = "exchange"
Dim userName As String = "mijnusername"
Dim userPassword As String = "pass"
Dim messageNumber As String = "1"
Dim returnMessage As String
Dim sTemp As String
Try
tcpClient.Connect(hostName, 110)
Dim networkStream As NetworkStream = tcpClient.GetStream()
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
Dim sendBytes As Byte()
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
sendBytes = Encoding.ASCII.GetBytes("User " + userName + vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
sendBytes = Encoding.ASCII.GetBytes("Pass " + userPassword + vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
sendBytes = Encoding.ASCII.GetBytes("STAT" + vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
sendBytes = Encoding.ASCII.GetBytes("RETR " + messageNumber + vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
Thread.Sleep(500)
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
returnMessage = Encoding.ASCII.GetString(bytes)
EmailContent.Text = returnMessage
sendBytes = Encoding.ASCII.GetBytes("QUIT" + vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
tcpClient.Close()
Catch ex As Exception
EmailContent.Text = "Could not retrieve email or your inbox is empty" & ex.message
End Try |
[ Voor 60% gewijzigd door semicon op 29-12-2007 15:05 ]