Advertisement
Guest User

Untitled

a guest
May 8th, 2016
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         Dim Msg As New MailMessage
  2.         Dim myCredentials As New System.Net.NetworkCredential
  3.         myCredentials.UserName = "management@sixteleven.de"
  4.  
  5.  
  6.         myCredentials.Password = "Lukas2000!"
  7.  
  8.  
  9.  
  10.         Msg.IsBodyHtml = False
  11.  
  12.         Dim mySmtpsvr As New SmtpClient()
  13.         mySmtpsvr.Host = "smtp.sixteleven.de"
  14.  
  15.  
  16.  
  17.         mySmtpsvr.Port = 25
  18.  
  19.  
  20.  
  21.  
  22.         mySmtpsvr.UseDefaultCredentials = False
  23.         mySmtpsvr.Credentials = myCredentials
  24.  
  25.  
  26.         Msg.From = New MailAdress("management@sixteleven.de")
  27.         Msg.To.Add("lukas-germerott@t-online.de")
  28.  
  29.         Msg.Subject = "Mitglied Hinzugefügt"
  30.         Msg.Body = TextBox1.Text
  31.  
  32.         mySmtpsvr.Send(Msg)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement