Hacker94
28.09.2008, 19:34
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 ??
''' <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 ??