Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub GButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton3.Click
- Dim HRSUser As String
- HRSUser = TextBox1.Text
- Dim TransacID As String
- TransacID = TextBox3.Text
- Dim HWIDID As String
- HWIDID = TextBox2.Text
- Dim UI As String
- UI = TextBox4.Text
- '======================================================================================================
- Dim high As Boolean
- Dim low As Boolean
- Dim medium As Boolean
- If RadioButton1.Checked = True Then
- low = True
- ElseIf low = False Then
- If RadioButton2.Checked = True Then
- medium = True
- ElseIf medium = False Then
- If RadioButton3.Checked = True Then
- high = True
- ElseIf high = False Then
- End If
- End If
- End If
- '====================================================================================================
- Dim Mail As New MailMessage
- If high = True Then Mail.Subject = "High"
- If medium = True Then Mail.Subject = "Medium"
- If low = True Then Mail.Subject = "Low"
- Mail.To.Add("urnemail@gmail.com")
- Mail.From = New MailAddress("urnemail@gmail.com")
- Mail.Body = ("Username:" & HRSUser) + (" | ") + ("HWID:" & HWIDID) + (" | ") + ("Transaction ID:" & TransacID) + (" | ") + (UI)
- Dim SMTP As New SmtpClient("smtp.gmail.com")
- SMTP.EnableSsl = True
- SMTP.Credentials = New System.Net.NetworkCredential("urnemail@gmail.com", "yourpw")
- SMTP.Port = "587"
- SMTP.Send(Mail)
- MessageBox.Show("Your ticket has been submitted.", "Bug Email", MessageBoxButtons.OK, MessageBoxIcon.None)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement