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?? :?: