Feedback Fenster ohne Google Mail oder so

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von Denny.

    Feedback Fenster ohne Google Mail oder so

    hallo
    wie kann ich programmieren, dass der user mir ein feedback senden kann, ohne dass ich in meinem code einen e-mail account mit passwort angeben muss??
    das ist doch sehr unsicher oder nicht??
    wenn jemand meine exe dekompiliert sieht der doch das gespeichertes passwort...
    danke

    Also ich verwend folgendes Skript. hab ich irgendwo im Internet gefunden. Hab es probiert und funktioniert. Meine Sachen hab ich entfernt.

    VB.NET-Quellcode

    1. Dim Msg As New MailMessage
    2. 'Dim myCredentials As New System.Net.NetworkCredential
    3. 'myCredentials.UserName = " deinname@absender.de"
    4. 'myCredentials.Password = "Passwort des Absenders"
    6. Msg.IsBodyHtml = False
    8. Dim mySmtpsvr As New SmtpClient()
    9. mySmtpsvr.Host = "..."
    10. mySmtpsvr.Port = 25
    12. 'mySmtpsvr.UseDefaultCredentials = False
    13. 'mySmtpsvr.Credentials = myCredentials
    15. Try
    16. Msg.From = New MailAddress(TextBox1.Text())
    17. Msg.To.Add(TextBox2.Text())
    18. Msg.Subject = TextBox3.Text()
    19. Msg.Body = TextBox4.Text()
    20. mySmtpsvr.Send(Msg)
    21. MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
    22. Catch ex As Exception
    23. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
    24. End Try

    Wie willst du denn etwas zu dir "übertragen", wenn du "anonym" bleiben möchtest ? Du könntest z.B. auch auf ein Forum oder ein Gästebuch verlinken, wo user dann ohne Regestrierung / Anmeldung ihr feedback posten dürfen.
    //Kommentar

    Denny schrieb:

    ja is klar aber ich will ja kein passwort angeben
    Wie du siehst ist in dem Code den ich ich gepostet habe, das Passwort mit ' versehen, das wird als Kommentar in VB gewertet. Probier es einfach mal aus.

    Hier nochmal der Code.

    VB.NET-Quellcode

    1. Dim Msg As New MailMessage
    3. Msg.IsBodyHtml = False
    5. Dim mySmtpsvr As New SmtpClient()
    6. mySmtpsvr.Host = "..."
    7. mySmtpsvr.Port = 25
    9. Try
    10. Msg.From = New MailAddress(TextBox1.Text())
    11. Msg.To.Add(TextBox2.Text())
    12. Msg.Subject = TextBox3.Text()
    13. Msg.Body = TextBox4.Text()
    14. mySmtpsvr.Send(Msg)
    15. MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
    16. Catch ex As Exception
    17. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
    18. End Try

    so ich hab jetzt mal das getestet

    Quellcode

    1. Dim Msg As New MailMessage
    3. Msg.IsBodyHtml = False
    5. Dim mySmtpsvr As New SmtpClient()
    6. mySmtpsvr.Host = "smtp.live.com"
    7. mySmtpsvr.Port = 25
    9. Msg.From = New MailAddress("Denny_Weinberg@hotmail.com")
    10. Msg.To.Add("Denny_Weinberg@hotmail.com")
    11. Msg.Subject = "Denny"
    12. Msg.Body = "Weinberg"
    13. mySmtpsvr.Send(Msg)
    14. MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")


    geht aber nicht

    @ Mixpimp: Du kannst aber über SMTP nicht Emails verschicken, wo man kein Passwort bzw. Benutzername angeben muss (ich kenne jedenfalls keinen Emailprovider, der das anbieten würde). Deshalb muss er dann auf PHP zurückgreifen, wo dann aber immer noch die Gefahr liegt, dass er zugespammt wird, aber man kann in seinem Postfach nicht alles ändern bzw löschen.

    Alteran

    Argh ._.
    Sorry ich war mal wieder doof

    Quellcode

    1. smtpServer.Credentials = New Net.NetworkCredential("email@email.com", "passwort")


    hatte das übersehn ;/ sollte in zukunft 2ma drüber kucken xD

    aber naja, ich denke in dem php kann man doch nen spamschutz einbaun , oder nich?

    ok könnt ihr mir vielleicht helfen um eine nachricht zu senden??
    ich habe auf meiner homepage ein kontaktformular erstellt.
    Link

    EDIT:
    ich habs jetzt geschafft!

    Quellcode

    1. WebBrowser1.Document.GetElementById("name").InnerText = T_Name.Text
    2. WebBrowser1.Document.GetElementById("email").InnerText = T_EMail.Text
    3. WebBrowser1.Document.GetElementById("betreff").InnerText = T_Betreff.Text
    4. WebBrowser1.Document.GetElementById("nachricht").InnerText = T_Nachricht.Text
    6. WebBrowser1.Document.Forms(0).InvokeMember("submit")
    7. MessageBox.Show("Vielen Dank!" & vbNewLine & "Das Kontakt-Formular wurde erfolgreich verschickt.", "Vielen Dank!", MessageBoxButtons.OK, MessageBoxIcon.Information)

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

Facebook
Telefonspende