-----
Dieser Tipp stammt von kevin89
-----
Hallo,
ich habe mal wieder ein neues Tutorial: Mail versenden in VB 2008. Es gibt viele Fragen dazu, ich habe hier einen Source, der wirklich funktioniert:
Dieser Tipp stammt von kevin89
-----
Hallo,
ich habe mal wieder ein neues Tutorial: Mail versenden in VB 2008. Es gibt viele Fragen dazu, ich habe hier einen Source, der wirklich funktioniert:
VB.NET-Quellcode
- ' FOLGENDES IST ZU BEACHTEN:
- ' -> JE NACH ANBIETER KANN DER PORT VARIIEREN, WENN ES MIT 25 NICHT KLAPPT, EINFACH MAL SUCHEN ODER FRAGEN
- ' -> BEI MANCHEN ANBIETERN MUSS MAN DAS EXTERNE SENDEN ÜBER SMTP ERST IN DEN EINSTELLUNGEN AKTIVIEREN
- ' -> MANCHE ANBIETER SPERREN DIE METHODE ZUM SENDEN VON MAILS SOWIESO
- ' -> ANHÄNGE KÖNNEN MIT "ATTATCHMENTS" MITGESENDET WERDEN.
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = "absender@domain.de" ' <--- deine email-adresse
- myCredentials.Password = "Passwort"' <--- dein passwort zum mailaccount
- Msg.IsBodyHtml = False
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.Host = "subdomain.domain.tld"
- mySmtpsvr.Port = 25 ' <--- port evt, je nach mailanbieter anpassen
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- Try
- Msg.From = New MailAddress("absender@domain.de") ' <--- deine email-adresse
- Msg.To.Add("reciepent@domain.de") ' <--- empfänger-adresse
- Msg.Subject = "Betreff" ' <--- betreff
- Msg.Body = "Nachricht" ' <--- Eigentliche Nachricht
- mySmtpsvr.Send(Msg)
- MsgBox("E-Mail erfolgreich gesendet", MsgBoxStyle.Information, Title:="Information")
- Catch ex As Exception
- MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
- End Try