Advertisement
Guest User

Untitled

a guest
Oct 1st, 2017
400
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.85 KB | None | 0 0
  1. Private Sub GButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton3.Click
  2. Dim HRSUser As String
  3. HRSUser = TextBox1.Text
  4. Dim TransacID As String
  5. TransacID = TextBox3.Text
  6. Dim HWIDID As String
  7. HWIDID = TextBox2.Text
  8. Dim UI As String
  9. UI = TextBox4.Text
  10. '======================================================================================================
  11.  
  12. Dim high As Boolean
  13. Dim low As Boolean
  14. Dim medium As Boolean
  15. If RadioButton1.Checked = True Then
  16. low = True
  17. ElseIf low = False Then
  18. If RadioButton2.Checked = True Then
  19. medium = True
  20. ElseIf medium = False Then
  21. If RadioButton3.Checked = True Then
  22. high = True
  23. ElseIf high = False Then
  24. End If
  25. End If
  26. End If
  27. '====================================================================================================
  28.  
  29. Dim Mail As New MailMessage
  30. If high = True Then Mail.Subject = "High"
  31. If medium = True Then Mail.Subject = "Medium"
  32. If low = True Then Mail.Subject = "Low"
  33. Mail.To.Add("urnemail@gmail.com")
  34. Mail.From = New MailAddress("urnemail@gmail.com")
  35. Mail.Body = ("Username:" & HRSUser) + (" | ") + ("HWID:" & HWIDID) + (" | ") + ("Transaction ID:" & TransacID) + (" | ") + (UI)
  36.  
  37. Dim SMTP As New SmtpClient("smtp.gmail.com")
  38. SMTP.EnableSsl = True
  39. SMTP.Credentials = New System.Net.NetworkCredential("urnemail@gmail.com", "yourpw")
  40. SMTP.Port = "587"
  41. SMTP.Send(Mail)
  42. MessageBox.Show("Your ticket has been submitted.", "Bug Email", MessageBoxButtons.OK, MessageBoxIcon.None)
  43. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement