Sveiven
26.06.2009, 20:15
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
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