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

[Hacker94]

also ich habe versucht ein mailprogramm zu erstellen in vb.net aber mein code funktioniert nicht. hier mal der 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 ??

[X-Hacker_1337]

ich mach dir ein vorschlag, versuch es mal mit diesem


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