Dim smtp As SmtpClient
smtp = New SmtpClient("smtp.strato.de")
 
Dim msg As MailMessage
 
msg = New MailMessage("muster@domain.de", "empfänger@domain.de")
msg.Subject = "E-Mail Nachricht"
msg.Body = "Test"
 
msg.Attachments.Add(New Attachment("C:\4mb.zip"))
 
smtp.DeliveryMethod = SmtpDeliveryMethod.Network
smtp.Credentials = New System.Net.NetworkCredential("Benutzername", "Passwort")
smtp.Send(msg)