Sehr wichtig! Bitte um Hilfe!

Also ich muss bis morgen Nachmittag eine Email+Button funktion programmieren. Nur habe ich keine Ahnung wie ich das ab besten machen soll.
Es sollte so aussehn : http://img3.imagebanana.com/view/dnvek2q6/sds.jpg

"2" textboxen, + "1" Button wenn ich was in die beiden textboxen reinschreibe, und dann auf den Button klicke soll mir das was in die beiden textboxen reingeschrieben wurde per Mail zugeschickt werden. Email Anbieter wird sein "web.de" .

Danke für schnell Hilfe

LG

kannst du über webmail klasse machen über SMTP

Code:

---

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 = "mailto.btx.dtag.de"
 
    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

---

hoffe ich konnte helfen :)
mfg

"Ihre EMail-Adresse" was soll da rein?
Empfänger EMail-Adresse ist klar meine email?
SmtpMail.SmtpServer = "mailto.btx.dtag.de" und da wie heist das bei web.de?
Danke

"Ihre Email-Adresse"
Das ist nur der replyto-Header. Kannste irgendwas eintragen was als "Absender" angezeigt werden soll.

SmptServer:
www.gidf.de --> web.de smtp server

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)



Dim oMail As New MailMessage()

' SMTP-Server (z.B. T-Online)
SmtpMail.SmtpServer = "smtp.web.de"

With oMail
' Absender
.From = "vcxvcvcdieID@web.de"

' Empfänger
.To = "cxvcxk@web.de"

' Betreff
.Subject = "Test-Nachricht"

' Nachricht
.Body = "Dies ist eine Test-Nachricht"

' Anlagen?
' .Attachments.Add(New MailAttachment("Dateiname"))
End With
End Sub

Der Code ist drinnen nur habe ich noch einen Fehler der angezeit wird und zwar:

Die Anweisung ist in einem Namespace ungültig.

???

LG