Bullterrier
20.04.2009, 10:15
Hallo Programmierprofis
habe folgendes problem,habe mir ein Emailprogramm nach gecodet aber es sendet leider nicht .
Habs mit verschiedenen Emailaccounts probiert. Wenn ich über freenet.de probiere kommt folgende Fehlermeldung : SmtpException wurde nicht behandelt und bei gmx.net kommt die gleiche und darunter steht noch Postfach nicht verfügbar. Die Serverantwort war: 5.7.0 Need to authenticate via SMTP-AUTH-Login {mp058}
hier ist der sourcecode
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Sub cmdSenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSenden.Click
Dim Email As String
Dim Betreff As String
Dim Empfänger As String
ProgressBar1.Value = 10
Email = Me.RichTextBox1.Text
Betreff = TextBox2.Text
Empfänger = TextBox1.Text
Dim myclient As New Net.Mail.SmtpClient("smtp.gmx.net")
ProgressBar1.Value = 30
myclient.Credentials = New NetworkCredential("meine Emailadresse", "PW")
ProgressBar1.Value = 45
myclient.Send("meine Emailadresse", Empfänger, Betreff, Email)
ProgressBar1.Value = 100
MsgBox("Die Email wurde erfolgreich versendet")
Hoffe ihr könnt mir weiter helfen
MFG
habe folgendes problem,habe mir ein Emailprogramm nach gecodet aber es sendet leider nicht .
Habs mit verschiedenen Emailaccounts probiert. Wenn ich über freenet.de probiere kommt folgende Fehlermeldung : SmtpException wurde nicht behandelt und bei gmx.net kommt die gleiche und darunter steht noch Postfach nicht verfügbar. Die Serverantwort war: 5.7.0 Need to authenticate via SMTP-AUTH-Login {mp058}
hier ist der sourcecode
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Sub cmdSenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSenden.Click
Dim Email As String
Dim Betreff As String
Dim Empfänger As String
ProgressBar1.Value = 10
Email = Me.RichTextBox1.Text
Betreff = TextBox2.Text
Empfänger = TextBox1.Text
Dim myclient As New Net.Mail.SmtpClient("smtp.gmx.net")
ProgressBar1.Value = 30
myclient.Credentials = New NetworkCredential("meine Emailadresse", "PW")
ProgressBar1.Value = 45
myclient.Send("meine Emailadresse", Empfänger, Betreff, Email)
ProgressBar1.Value = 100
MsgBox("Die Email wurde erfolgreich versendet")
Hoffe ihr könnt mir weiter helfen
MFG