[Vb.net] Daten per E-Mail ?!

[Sveiven]

also, will mir bestimmte Daten (sprich aus der Textbox2) zu kommen lassen per E-Mail. Habe es schon fertig nur kommt immer "Fehler aufgetreten!".
Guck euch doch bitte den Code an (ist bestimmt i-was einfaches ^^).

Danke & mfg Sveiven!

Code:


Imports System.Net.Mail

PublicClass Form1


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Msg AsNew MailMessage
Dim myCredentials AsNew System.Net.NetworkCredential
myCredentials.UserName = "xxx@web.de"

myCredentials.Password = "xxx"

Msg.IsBodyHtml = False

Dim mySmtpsvr AsNew SmtpClient()
mySmtpsvr.Host = "smpt.web.de"

mySmtpsvr.Port = 25
mySmtpsvr.UseDefaultCredentials = False

mySmtpsvr.Credentials = myCredentials
Try

Msg.From = New MailAddress("xxx@web.de")
Msg.To.Add("yyy@web.de")
Msg.Subject = "VB.net"

Msg.Body = TextBox2.Text
mySmtpsvr.Send(Msg)
MsgBox("Email versendet!")
Catch ex As Exception
MsgBox("Fehler aufgetreten!")
EndTry

EndSub
EndClass

[Bl1zz4rD]

Hmm bei mir geht zwar dein Spoiler net aber der Code müsste so aussehen:



Imports System.Net
Imports System.Net.Mail 'das gehört nach ganz oben
Doppelklick auf einem Button


Dim text As String
text = "Nick:" & TextBox2.Text
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New Net.NetworkCredential ("Deine erste E-Mail Addresse die senden soll", "Passwort dazu")
myClient.Send ("Die E-mail die da oben steht", "Deine zweite E-Mail Addresse = Die E-mail wohin es gesendet wird", "Deine Überschrift bei der E-mail", text)

Sag dan bescheid obs geklappt hat.

[Sveiven]

Habe vorhin ein anderen Code genommen - klappt jetzt.

Aber das mit dem "Nick:" Textbox2.Text - Hat mir geholfen :D

[Kaspersky]

nächstes mal das "Try" entfernen und debuggen und sich die fehlermeldung anschauen ;)