Text erhalten (Email)

[Shane]

Hi,

bei Google habe ich auch kein ordentlichen Code gefunden der mir wirklich helfen konnte.

Also, ich möchte das wenn man in der TextBox einen Text eingibt und auf den Button klickt das ich den Inhalt per Email bekomme.

(ES IST KEIN PW STEALER, AUCH WENN ER SO AUFGEBAUT IST)

[Mardcore]

Alter, ich Suche in Google und finde: Ungefähr 6.730 Ergebnisse (0,43 Sekunden)

[rVs14]

Davor System.Net.Mail importieren

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = " andreas@absender.de"
myCredentials.Password = "Passwort des Absenders"

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("andreas@absender.de")
  Msg.To.Add("entchen@empfänger.de")
  Msg.Subject = "Betreff"
  Msg.Body = "Inhalt"
  mySmtpsvr.Send(Msg)
  MsgBox("E-Mail gesendet.", 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 

Quelle: vb-paradise.de

[Shane]

Für den SMTP-Server ist eine sichere Verbindung erforderlich, oder der Client wurde nicht authentifiziert. Die Serverantwort war: Authentication required

Kommt immer wieder.

[uncopyable]

Setze den Port mal auf 587 und versuch es erneut.

Edit: Falls du web.de benutzt.

[DMW007]

Wenn der Server SSL fordert (hängt vom Anbieter ab) musst du SSL auch aktivieren, in dem du EnableSsl auf true setzt.
Ansonsten poste mal den gesamten Code den du nutzt (User und Passwort natürlich vorher entfernen).

[Shane]

Code

Imports System.Net.Mail
Imports System.Net




Public Class Feedback

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Dein Feedback wurde erfolgreich gesendet!")
Dim text As String
text = RichTextBox1.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("***@web.de", "***")
myClient.Send("***@hotmail.de", "***@web.de", "Verbesserungen", text)

End Sub
End Class

[Bazs]

Ich glaub dein Code den du da hast, ist NUR für Web, du willst bestimmt das für mehrere Anbieter haben oder? also z.B. Hotmail, GMX usw.

Habe ich recht?

[Shane]

Mir ist das egal. Die Hauptsache ist der Inhalt kommt an. Würde aber gerne .web haben

[Bazs]

Also ich meine von den anderen Usern, du kannst es ja über 1 Absender E-Mail laufen lassen die dies dann abschickt und die User dann halt keine E-Mail brauchen, du dann halt deine Absender Mail hast und du dadurch auf deine Empfänger E-Mail die Nachrrichten bekommst, verstehe ich das so richtig?

dann würdest du Web.de benötigen hast du ja auch schon alles dort.