Text erhalten (Email)

[Shane]

Richtig, die User müssen einfach nur in der Richtextbox den text eingeben und auf Absenden drücken.

[Bazs]

Ich habe jetzt mal für dich die Variante von rVs17 umgestellt, hier erkläre ich es dir was du machen musst:

Als erstes schreibst du am Anfang "Import System.net.Mail hin.

Nun hast du ja deine Richtextbox und deine Buttons, in den Button fügst du folgendes ein:

        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "ABSENDER"
        myCredentials.Password = "PASSWORT"

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de" 'bei web.de
        mySmtpsvr.Port = 25

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("ABSENDER")
            Msg.To.Add("EMPFÄNGER")
            Msg.Subject = "Feedback"
            Msg.Body = RichTextBox1.Text
            mySmtpsvr.Send(Msg)
            MsgBox("Deine E-Mail wurde erfolgreich zugesendet, Danke für dein Feedback.", MsgBoxStyle.Information, Title:="Information")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
        End Try

Und nun sollte es gehen.

Fals nicht, melde dich per PN