Hallo Liebe User.
Ich möchte gerne das bei meiner APP nach einer Userregistrierung der User selbst eine Email bekommt.
Am besten mit seinen Logindaten und einem Timestamp.
Aktuell bekomme ich das nicht ganz so hin hätte da jemand Interesse sich das mal Anzuschauen ? oder ein Codebeispiel ?
wäre euch sehr dankbar
Code :
Ich möchte gerne das bei meiner APP nach einer Userregistrierung der User selbst eine Email bekommt.
Am besten mit seinen Logindaten und einem Timestamp.
Aktuell bekomme ich das nicht ganz so hin hätte da jemand Interesse sich das mal Anzuschauen ? oder ein Codebeispiel ?
wäre euch sehr dankbar
Code :
VB.NET-Quellcode
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- MysqlConn = New MySqlConnection
- MysqlConn.ConnectionString =
- "SERVER=5.230.xx.xx;uid=login;password=pKVSGVxxxxxxxxxxx;DATABASE=Loginsystem;Connection Timeout=30;logging=True;Pooling=False;port=3306;SSL Mode=None;"
- Dim READER As MySqlDataReader
- Try
- MysqlConn.Open()
- Dim Query As String
- Query = "INSERT INTO users (Username, Email, Passwort) VALUES ('" & Userfeld.Text & "','" & emailfeld.Text & "','" & Passfeld.Text & "')"
- COMMAND = New MySqlCommand(Query, MysqlConn)
- READER = COMMAND.ExecuteReader
- Dim count As Integer
- count = 0
- While READER.Read
- count = count + 1
- End While
- If count = 0 Then
- MessageBox.Show("Erfolgreich Registriert")
- ElseIf count < 1 Then
- MessageBox.Show("Username oder das Passwort sind Doppelt Registriert !")
- Else
- MessageBox.Show("Username oder das Passwort ist nicht korrekt !")
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = "xxxxxxxxxxxxxxxx" 'Absender'
- myCredentials.Password = "xxxxxxxx" ' PW Absender'
- Msg.IsBodyHtml = False
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.EnableSsl = False
- mySmtpsvr.Host = "xxxxxxxx" 'SMTP Host'
- mySmtpsvr.Port = 25
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- Try
- Msg.From = New MailAddress("xxxxxxxx")
- Msg.To.Add(" & emailfeld.Text & ")
- Msg.Subject = "Fehlerhafter Login"
- Msg.Body = "Fehlerhafter Loginversuch in dein Konto.</br>
- Bitte Stelle sicher das dein Zugang geschützt ist !"
- mySmtpsvr.Send(Msg)
- Catch ex As Exception
- MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
- End Try
- End If
- MysqlConn.Close()
- Catch ex As MySqlException
- MessageBox.Show(ex.Message)
- Finally
- MysqlConn.Dispose()
- End Try
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sumary93“ ()