Hallo VB-Paradiser,
mein Probelm steht eigentlich schon im TItel! Nun ja, der Quellcode ist folgender
Als fehler kommt, mailbox unavailable. Wo liegt das Problem?!?
mein Probelm steht eigentlich schon im TItel! Nun ja, der Quellcode ist folgender
Visual Basic-Quellcode
- Public Class TrainingsplanAnfrage
- Public Sub senden()
- Dim geschlecht As String
- If RadioButton1.Checked = True Then
- geschlecht = "Maennlich"
- If RadioButton2.Checked = True Then
- geschlecht = "Weiblich"
- End If
- End If
- Dim emailmessage As MailMessage = New MailMessage
- emailmessage.From = New MailAddress("trainingsplaene@web.de")
- emailmessage.To.Add("trainingsplaene@web.de")
- emailmessage.Subject = "Trainingsplan"
- emailmessage.Body = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & TextBox7.Text & TextBox8.Text & TextBox9.Text & TextBox10.Text & geschlecht
- emailmessage.Priority = MailPriority.Normal
- Dim smtp As New SmtpClient("smtp.web.de")
- Dim infoslogin As New System.Net.NetworkCredential("trainingsplaene", "Hier würde mein passwort stehen")
- smtp.Credentials = infoslogin
- Try
- smtp.Send(emailmessage)
- MessageBox.Show("Nachricht wurde erfolgreich verschickt!")
- Catch ex As Exception
- MessageBox.Show("E-Mail konnte nicht gesendet werden!" & ex.Message)
- End Try
- End Sub
Als fehler kommt, mailbox unavailable. Wo liegt das Problem?!?