Ich wills dir nich zu einfach machen ein bisschen musst du auch nachdenken also hier:
Code:
' Wichtig! GLEICH zu BEGINN einfügen,
' also noch VOR Public Class ...
Imports System.Web.Mail
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim oMail As New MailMessage()
' SMTP-Server (z.B. T-Online)
SmtpMail.SmtpServer = "SMTP SERVER"
With oMail
' Absender
.From = "Ihre EMail-Adresse"
' Empfänger
.To = "Empfänger EMail-Adresse"
' Betreff
.Subject = "Test-Nachricht"
' Nachricht
.Body = "Dies ist eine Test-Nachricht"
' Anlagen?
' .Attachments.Add(New MailAttachment("Dateiname"))
End With
Try
SmtpMail.Send(oMail)
MsgBox("Nachricht wurde versandt.")
Catch oEx As Exception
MsgBox("Fehler: " & oEx.Message.ToString)
End Try
End Sub
End Class
Quelle: Google einfach mal richtig -.-