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 :







