Mein derzeitiges Projekt habe ich mit einer kleinen Email-Funktion geschmückt.
Undzwar soll nach Eingabe von
"Absender"
"Empfänger"
"Betreff"
"Text"
eine Email gesendet werden.
Nun habe ich zuerst ein "import", von wo die anderen Befehle dann herkommen:
Code:
Imports System.Net.Mail
dann wird eine Sub erstellt:
Code:
Public Sub sendmail()
Dim emailmessage As MailMessage = New MailMessage
emailmessage.From = New MailAddress(TextBox1.Text)
emailmessage.to.add(Textbox2.Text)
emailMessage.Subject = Textbox3.Text
emailmessage.Body = TextBox4.Text
emailmessage.Priority = MailPriority.Normal
Dim smtp As New SmtpClient("mail.google.com")
Dim basicauthenticationinfo As New System.Net.NetworkCredential("dexter9204@gmail.com", "passwort")
smtp.Credentials = basicauthenticationinfo
Try
smtp.Send(emailmessage)
Catch ex As Exception
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Und diese natürlich beim Klick auf den Button aufgerufen
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sendmail()
End Sub
Bei "System.Net.NetworkCredential("dexter9204@gmail.co m", "passwort")" steht natürlich das richtige Benutzerpasswort.
Das Programm wird auch weiterhin fehlerfrei gestartet, doch nach Eingabe von z.B.
Absender: test@test.com
Empfänger: dexter9204@gmail.com
Betreff: Test
Text: Dies ist eine TestMail
hängt es sich nach "klick" auf meinen Button auf und nach einiger Zeit bekomme ich ne Fehlermeldung, dass die Email nicht gesendet werden konnte.
Hab ich da irgendeinen Fehler drinn?? :?: