Fehler in email versenden

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Acr0most.

    Fehler in email versenden

    Ich habe ein Fehler ich habe ein Programm entwickelt wo man sich regestrieren soll und dan von einer email adresse die auf meinem Server ist soll an die Email des Benutzers eine Automatische Email übergehen aber da kommt der Fehler.

    Eine nicht behandelte Ausnahme des Typs "System.Exception" ist in MySqlLib3 aufgetreten.

    Zusätzliche Informationen: Der Remoteserver hat einen Fehler zurückgegeben: (500) Interner Serverfehler.

    und in dem Code ist das Blau Hinterlegt

    VB.NET-Quellcode

    1. Dim emailvor As MySqlLib.ResultCollection = db.Query("SELECT * FROM `ils_benutzer` WHERE `email`='" & SHA512StringHash("jdh823=/§" & TextBox1.Text) & "'")


    könnte mir jemand dabei Helfen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Norman18vk“ ()

    Poste bitte etwas mehr Code, nicht nur die Zeile in der der Fehler auftritt.
    [Und benenne den Thread in etwas Aussagekräftigeres um.]

    LG Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.IO
    3. Imports System.Net.Mail
    4. Imports System.Text
    6. Public Class Registrieren
    8. Private db As New MySqlLib("http://die adresse wo die config liegt ", True)
    10. Public Function SHA512StringHash(ByVal strString As String) As String
    11. Dim SHA512 As New SHA512CryptoServiceProvider
    12. Dim Data As Byte()
    13. Dim Result As Byte()
    14. Dim Res As String = ""
    15. Dim Tmp As String = ""
    17. Data = Encoding.ASCII.GetBytes(strString)
    18. Result = SHA512.ComputeHash(Data)
    19. For i As Integer = 0 To Result.Length - 1
    20. Tmp = Hex(Result(i))
    21. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    22. Res += Tmp
    23. Next
    24. Return Res
    25. End Function
    27. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    28. Me.Close()
    29. Randomize()
    30. Dim rnd As New Random
    31. Dim letters As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    32. Dim result As String = String.Empty
    34. For i As Integer = 1 To 20 Step 1
    35. result &= letters.Chars(rnd.Next(0, letters.Length))
    36. Next
    38. If TextBox1.Text = TextBox2.Text Then
    39. If TextBox3.Text = TextBox4.Text Then
    40. If TextBox5.Text <> "" Then
    41. If TextBox6.Text <> "" Then
    42. End If
    44. Dim emailvor As MySqlLib.ResultCollection = db.Query("SELECT * FROM `ils_benutzer` WHERE `email`='" & SHA512StringHash("jdh823=/§" & TextBox1.Text) & "'")
    46. If emailvor.Row.Count = 0 Then
    47. db.Query("INSERT INTO `ils_benutzer` (`email`, `passwort`, `salt`, `sicherheitsfrage`, `sifra_antwort`) VALUES ('" & SHA512StringHash("jdh823=/§" & TextBox1.Text) & "','" & SHA512StringHash(result & TextBox3.Text & "hds3/hf§md32") & "','" & result & "','" & TextBox5.Text & "','" & SHA512StringHash(TextBox6.Text & "=&§hk73kn;Mhdk") & "')")
    49. Dim Msg As New MailMessage
    50. Dim myCredentials As New System.Net.NetworkCredential
    51. myCredentials.UserName = "automailer@h2715989.stratoserver.net"
    52. myCredentials.Password = "*********"
    53. Msg.IsBodyHtml = True
    54. Dim mySmtpsvr As New SmtpClient()
    55. mySmtpsvr.Host = "h2715989.stratoserver.net"
    56. mySmtpsvr.Port = 587
    57. mySmtpsvr.UseDefaultCredentials = False
    58. mySmtpsvr.Credentials = myCredentials
    59. Try
    60. Msg.From = New MailAddress("automailer@h2715989.stratoserver.net")
    61. Msg.To.Add(TextBox1.Text)
    62. Msg.Subject = "Ihre Zugangsdaten für die Funkspiel-ILS"
    63. Msg.Body = "<p>Hallo!</p><p>Vielen Dank f&uuml;r Ihre Registrierung in der Funkspiel-ILS. Bitte verwenden Sie f&uuml;r den Login nachfolgende Zugangsdaten.</p><p>E-Mail-Adresse: wie im Kopf der E-Mail</p><p>Passwort: " & TextBox3.Text & " </p><p><br /><br />---<br />Bitte antworten Sie nicht direkt auf diese E-Mail, da diese automatisch versandt wird und das Postfach nicht abgerufen wird."
    64. mySmtpsvr.Send(Msg)
    65. Catch ex As Exception
    66. MsgBox("(" & Err.Number & ") " & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
    67. End Try
    69. MessageBox.Show("Ihr Konto wurde mit folgender E-Mail-Adresse erstellt: " & TextBox1.Text & vbNewLine & vbNewLine & "Wir haben Ihre Zugangsdaten auch an die eingegebene E-Mail-Adresse gesendet" & vbNewLine & "Um ein Funkspiel betreten zu können, muss Ihr Account mit einem Funkspiel verknüpft werden. Teilen Sie hierfür dem jeweiligen Funkspiel-Leiter (oder einem von diesem ernannten Supporter) Ihre E-Mail-Adresse mit.", "Benutzeraccount erfolgreich erstellt", MessageBoxButtons.OK, MessageBoxIcon.None)
    70. Else
    71. MessageBox.Show("Die gewählte E-Mail-Adresse ist bereits in der Datenbank vorhanden!", "Integrierte Leitstelle für Funkspiele", MessageBoxButtons.OK, MessageBoxIcon.Information)
    72. End If
    73. Else
    74. MessageBox.Show("Bitte wähle eine gültige Sicherheitsfrage aus.", "Fehler bei der Sicherheitsfrage", MessageBoxButtons.OK, MessageBoxIcon.Information)
    75. End If
    76. Else
    77. MessageBox.Show("Bitte stell sicher, dass das Passwort 2x identisch eingegeben wurde.", "Fehler bei der Passworteingabe", MessageBoxButtons.OK, MessageBoxIcon.Information)
    78. End If
    79. Else
    80. MessageBox.Show("Bitte stell sicher, dass die E-Mail-Adresse 2x identisch eingegeben wurde.", "Fehler bei der E-Mail-Adresse", MessageBoxButtons.OK, MessageBoxIcon.Information)
    81. End If
    83. End Sub
    85. Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    86. Try
    87. If ComboBox1.Text = "Eigene Frage eingeben" Then
    88. TextBox5.Visible = True
    89. TextBox5.Text = ""
    90. Else
    91. TextBox5.Visible = False
    92. TextBox5.Text = ComboBox1.Text
    93. End If
    94. Catch ex As Exception
    95. MessageBox.Show("Es ist folgender Fehler aufgetreten:" & vbNewLine & "(" & ex.HResult & ") " & ex.Message, "Funkspiel-ILS :: Sicherheitsabrage-Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    96. End Try
    98. End Sub
    100. Private Sub Registrieren_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    102. End Sub
    103. End Class

    lasst dir das generierte SELECT-Statement ausgeben und schicke es so gegen den SQL-Server.
    Bekommst du da was zurück?
    Oder gibt dein SQL-Server schon einen Fehler zurück?

    Passt deine Config?

    LG Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

    Vielleicht liegt es an Strato und deren Einstellungen selbst?
    siehe Link
    Überprüfe das mal bitte.
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

    Nur fürs Verständnis:

    Wie kann ein geblockter E-Mail Versand zu einem Fehler in einem SQL-Command führen ? 8o

    LG Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

Facebook
Telefonspende