Guten Abend,
Melde mich nach langer zeit mit einem neuen Projekt wieder. Ich bin gerade dabei eine kleine sidebar zu programmieren. Diese soll unter anderem anzeigen wie viele neue E-mails man hat ..... Nach vielem programmieren und suchen hab ich eine Methode gefunden doch bekomme immer einen Fehler : "Serve did not accept user credentials". Laut meiner Meinung muss etwas mit meinem Account Daten falsch sein .... Hier der Code habe extra einen bsp E-Mail Account gemacht .... ihr könnt den Account überprüfen wegen den pop3 Einstellungen ... habe aber schon Pop zugelassen in den web.de Einstellungen aber ja wie ihr wollt.
Wäre glücklich über Hilfe.
Melde mich nach langer zeit mit einem neuen Projekt wieder. Ich bin gerade dabei eine kleine sidebar zu programmieren. Diese soll unter anderem anzeigen wie viele neue E-mails man hat ..... Nach vielem programmieren und suchen hab ich eine Methode gefunden doch bekomme immer einen Fehler : "Serve did not accept user credentials". Laut meiner Meinung muss etwas mit meinem Account Daten falsch sein .... Hier der Code habe extra einen bsp E-Mail Account gemacht .... ihr könnt den Account überprüfen wegen den pop3 Einstellungen ... habe aber schon Pop zugelassen in den web.de Einstellungen aber ja wie ihr wollt.
Wäre glücklich über Hilfe.
Quellcode
- Imports System.IO
- Imports System.Text
- Imports System.Net.Sockets
- Imports OpenPop.Pop3
- Public Class Form1
- Dim Anzahlemail As Integer
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Try
- Dim pop As New Pop3Client
- pop.Connect("pop3.web.de", "995", True)
- pop.Authenticate("vbparadisebsp@web.de", "vbparadise93")
- Catch ex As Exception
- MsgBox(ex.Message)
- 'MsgBox("Sie sind nicht eingeloggt oder etwas mit ihren Anmeldedaten stimmt nicht !!!")
- End Try
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Uhrzeit.Text = TimeOfDay
- Datum.Text = DateString
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Bearbeiten.Show()
- Me.Hide()
- End Sub
- End Class