Ich habe mir heute diesen Code besorgt, ich musste natürlich noch einiges ändern weil er recht viele Fehler hatte und ich habe Form auch noch abgeändert.
Später hatte ich das ding auch am laufen, doch ich habe das Projekt Falsch gespeichert und jetzt weiss ich nichtmehr was ich verändert hatte.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MailMessage As New MailMessage(TextBox2.Text, TextBox3.Text) ' achtung! die absender-e-mail muss exsistieren!
Dim client As New Net.Mail.SmtpClient
Dim anmeldung As New Net.NetworkCredential
anmeldung.UserName = "Emailadresse@web.de"
anmeldung.Password = "Passwort"
With MailMessage
.Subject = "Formmailer"
.IsBodyHtml = False
.BodyEncoding = System.Text.Encoding.Default
.Body = "Betreff : " + TextBox1.Text
.Priority = MailPriority.Normal
End With
client.Host = "smtp.web.de"
client.Credentials = anmeldung
client.SendAsync(MailMessage)
End Sub
End Class
Er Zeigt mit diesen Fehler an :
Hidden:
Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "SendAsync" diese Anzahl von Argumenten akzeptiert.
Für hilfe bin ich sehr dankbar, da mein Köpfchen schon qualmt
Registrieren
Login
