Das hier ist mein Code!
Habe diesen aus dem Tutorial von dieser Seite! Autor( Marcus Gräfe)
was habe ich falsch gemacht? Bitte um Hilfe!
Habe diesen aus dem Tutorial von dieser Seite! Autor( Marcus Gräfe)
was habe ich falsch gemacht? Bitte um Hilfe!
VB.NET-Quellcode
- Public Class Form1
- Dim Msg As New Net.Mail.MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- '
- myCredentials.UserName = "& TextBox2 &" ' <--- deine email-adresse
- myCredentials.Password = "& TextBox3 &" ' <--- dein passwort zum mailaccount
- Msg.IsBodyHtml = False
- Dim mySmtpsvr As New Net.Mail.SmtpClient()
- mySmtpsvr.Host = "subdomain.domain.tld"
- mySmtpsvr.Port = 25
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- Try
- Msg.From = New Net.Mail.MailAddress("& TextBox2.Text &")
- Msg.To.Add("TextBox4") '
- Msg.Subject = "& TextBox5 &"
- Msg.Body = "& TextBox1 &"
- mySmtpsvr.Send(Msg)
- MsgBox("E-Mail erfolgreich gesendet", MsgBoxStyle.Information, Title:="Information")
- Catch ex As Exception
- MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
- End Try
- End Sub
- Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
- End Sub
- End Class
Polling is trolling!
Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..
Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..