Moin Leute.
Hab mir ein kleines progrämmchen geschrieben das mir auch emails sendet während es läuft.
Die sub lautet so:
Sub Abschicken()
Dim smtpserver As New SmtpClient
Dim email As New MailMessage
smtpserver.Credentials = New Net.NetworkCredential("MEINE EMAILADRESSE", "MEIN EMAILPASSWORT")
smtpserver.Port = 25
smtpserver.Host = "smtp.web.de"
email = New MailMessage
email.From = New MailAddress("MEINE EMAILADRESSE")
email.To.Add("MEINE EMAILADRESSE")
email.Subject = "Email"
email.Body = erhaltenerText.Text
smtpserver.Send(email)
End Sub
Beim debuggen kommt bei der zeile smtpserver.send(email) ein fehler: Dienst nicht verfügbar. Übertragungskanal wird geschlossen. Die Serverantwort war: Cannot connect to SMTP server 217.72.192.157 (217.72.192.157:25), connect timeout
Habt ihr eine lösung?
 |
