Try
message.From = New MailAddress(From.Text)
message.To.Add(Victim.Text)
message.Body = Maintext.Text
message.Subject = Subject.Text
message.Priority = MailPriority.Normal
'Smtp Client Settings'
smtp.EnableSsl = True
smtp.Port = "587" 'gmail/hotmail port'
smtp.Host = "Smtp.live.com" 'Smtp.live.com = Hotmail, Smtp.gmail.com = Gmail'
smtp.Credentials = New Net.NetworkCredential(From.Text, Password.Text)
smtp.Send(message)
If spam.Checked = False Then MsgBox("This Email was successfully sent!", vbInformation + vbOKOnly, "Sent")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
das ist mein code für hotmail zum versenden von emails
5 textboxes: Sender(from)/Empfänger(victim)/Text(maintext)/Betreff(subject)/Dein Passwort 1(password) button: Senden