Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = "management@sixteleven.de"
- myCredentials.Password = "Lukas2000!"
- Msg.IsBodyHtml = False
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.Host = "smtp.sixteleven.de"
- mySmtpsvr.Port = 25
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- Msg.From = New MailAdress("management@sixteleven.de")
- Msg.To.Add("lukas-germerott@t-online.de")
- Msg.Subject = "Mitglied Hinzugefügt"
- Msg.Body = TextBox1.Text
- mySmtpsvr.Send(Msg)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement