Mit Visualbasic.net emails senden: Der Code geht garnicht...

also ich habe versucht ein mailprogramm zu erstellen in vb.net aber mein code funktioniert nicht. hier mal der code:

Code:

---

''' <param name="From">Absender</param>
''' <param name="To">Empfänger</param>
''' <param name="Subject">Titel</param>
''' <param name="Body">Inhalt</param>
''' <param name="Host">http://www.web.de/</param>

Public Sub SendMail(ByVal From As String, ByVal [To]() As String, ByVal Subject As String, ByVal Body As String, ByVal Host As String, Optional ByVal Creds As NetworkCredential = Nothing)
    Try
        Dim MyMail As New Mail.MailMessage()

        MyMail.From = New Mail.MailAddress(From)

        For i As Integer = 0 To [To].Length - 1
            MyMail.To.Add([To](i))
        Next

        MyMail.Subject = Subject
        MyMail.Body = Body

        Dim NewSMTP As New Mail.SmtpClient(Host)

        If Creds IsNot Nothing Then
            NewSMTP.Credentials = Creds
        End If

        NewSMTP.Send(MyMail)
    Catch ex As Exception
    End Try
End Sub

---

was könnte da den falsch sein an den code den ich geschrieben habe ??

ich mach dir ein vorschlag, versuch es mal mit diesem

Code:

---

Imports System.Web.Mail
...
Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  ' Neues MailMessage-Objekt
  Dim oMail As New MailMessage()
 
  ' SMTP-Server
  SmtpMail.SmtpServer = "Ihr_Mailserver"
 
  With oMail
    ' Absender
    .From = "Ihre_Mailadresse"
 
    ' Empfänger
    .To = "Empfänger_Mailadresse"
 
    ' Betreff
    .Subject = "Test-Nachricht"
 
    ' Nachricht
    .Body = "Dies ist eine Test-Nachricht"
 
    ' Anlagen hinzufügen
    .Attachments.Add(New MailAttachment("pfad_und_dateiname"))
 
    ' Erweiterte Mail-Einstellungen
    With .Fields
      ' SMTP-AUTH aktivieren
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
 
      ' Benutzername und Kennwort festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "username")
      .Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password")
 
      ' ggf. noch Server-Port festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
    End With
  End With
 
  Try
    ' Nachricht senden
    SmtpMail.Send(oMail)
    MsgBox("Nachricht wurde versandt.")
 
  Catch oEx As Exception
    MsgBox("Fehler: " & oEx.Message.ToString)
 
  End Try
End Sub

---

musst ja natürlich anpassen, ist ja klar ;)

lg