Imports System.Net.Mail
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "@web.de" ' sender email
myCredentials.Password = "password" ' sender pw
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de" 'smtp
mySmtpsvr.Port = 25 ' port
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress("allin1report@web.de") ' from
Msg.To.Add("@hotmail.de") ' to
Msg.Subject = TextBox2.Text ' subject
Msg.Body = RichTextBox1.Text & vbNewLine & vbNewLine & vbNewLine & _
"Name: " & TextBox1.Text & _
vbNewLine & _
"Email: " & TextBox3.Text
mySmtpsvr.Send(Msg)
MsgBox("E-Mail sended.", MsgBoxStyle******rmation, Title:="Information")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If