Ich habe mir ein kleines Programm geschrieben mit dem ich Emails verschicken kann.
Hier mal ein Bild: suckmypic.net/v68q8dkv.jpg
Meine Frage ist es, wie muss ich den Code schreiben, damit der Sende Button erst aktiv wird wenn die Textboxen:"Deine Email, Dein Passwort, Betreff, Email des Empfängers und die RichTextbox ausgefüllt sind?
Hier mal mein Code:
Hier mal ein Bild: suckmypic.net/v68q8dkv.jpg
Meine Frage ist es, wie muss ich den Code schreiben, damit der Sende Button erst aktiv wird wenn die Textboxen:"Deine Email, Dein Passwort, Betreff, Email des Empfängers und die RichTextbox ausgefüllt sind?
Hier mal mein Code:
VB.NET-Quellcode
- Imports System.Net.Mail
- Public Class Email
- Private Sub btnLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLöschen.Click EmailText.Text = "" End Sub
- Private Sub Email_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub btnSenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSenden.Click Dim meineMail As New MailMessage Try meineMail.From = New MailAddress(txtDeineMail.Text) meineMail.To.Add(txtEmpfänger.Text) meineMail.Subject = (txtBetreff.Text) meineMail.Body = (EmailText.Text) Dim smtp As New SmtpClient("smtp.web.de") smtp.Port = 587 smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential(txtDeineMail.Text, txtPasswort.Text) smtp.Send(meineMail) Catch ex As Exception MsgBox("Fehler aufgetreten") End Try End Sub
- Private Sub txtPasswort_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPasswort.TextChanged txtPasswort.PasswordChar = "*" End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtPasswort.PasswordChar = "" End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close()
- End Sub
- End Class