Button 1 /Der Sender button)
Code:
Dim register As New MailMessage register.From = New MailAddress("Your E-Mail") register.To.Add(TextBox1.Text) register.Subject = "Dein Schlussel" register.Body = "Vielen Dank für ihre Regestrierung" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "E-Mail: " & vbNewLine & TextBox1.Text & vbNewLine & vbNewLine & vbNewLine & "Danke für ihre Regestrierung!" & vbNewLine & "------------------------------------" & vbNewLine & vbNewLine & "Schlussel: " & TextBox3.Text Dim abschicken As New SmtpClient("smtp.web.de") abschicken.Port = 587 abschicken.EnableSsl = True abschicken.Credentials = New Net.NetworkCredential("Your E-Mail", "Your Passwort") abschicken.Send(register) Button1.Enabled = False
Code:
If TextBox2.Text = TextBox3.Text Then End If
Benötigte Tools
--------------------
3 TextBoxen
2 Labels
2 Buttons
---------------------
Bitte schaut euch noch das Video an bevor ihr es selber versucht : LINK:
Wenn ihr wollt Könnt ihr euch den Code in eine txt Downloaden, Ich habe noch ein Bild rein gepackt: LINK :