ich hab es so gemacht:
wie kann ich, wenn eine email einen Anhang hat. diesen in einen bestimmten Ordner speichern?
VB.NET-Quellcode
- Imports System
- Imports System.Net
- Imports System.Net.Sockets
- Imports System.Text
- Imports System.io
- Imports System.Threading
- Public Class Form1
- Inherits System.Windows.Forms.Form
- Public stream As NetworkStream
- Public sr As StreamReader
- Private Sub cmdPOPen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPOPen.Click
- Dim server As String = "pop.test.de"
- Dim user As String = "test"
- Dim password As String = "test123"
- Dim client As New TcpClient(server, 110)
- stream = client.GetStream()
- sr = New StreamReader(stream)
- txtResponse.Text += sendCommand("?")
- txtResponse.Text += sendCommand("USER " + user)
- txtResponse.Text += sendCommand("PASS " + password)
- txtResponse.Text += sendCommand("STAT" + vbCrLf)
- txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
- txtResponse.Text += sendCommand("QUIT" + vbCrLf)
- End Sub
- Private Function sendCommand(ByVal send As String) As String
- send += vbCrLf
- Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
- stream.Write(data, 0, data.Length)
- sr = New StreamReader(stream)
- Dim buffer As New StringBuilder
- Do While sr.Peek() > 0
- Thread.Sleep(100)
- buffer.Append(sr.ReadLine + vbCrLf)
- Loop
- Return buffer.ToString
- End Function
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
wie kann ich, wenn eine email einen Anhang hat. diesen in einen bestimmten Ordner speichern?