[VB.NET] Email wird nicht versandt

[Iaa_1]

Dim email As New MailMessage
With email
.From = "irgendeinAbsender@*.tld"
.To = "MeineEmail@*.tld"
.Subject = "Feedback"
.BodyFormat = MailFormat.Text
.Body = TextBox1.Text
.Priority = MailPriority.High
End With

Wieso erhalte ich keine Email?
Müsste doch an sich stimmen.