E-Mail mit optionaler Authentifizierung senden

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

''' <summary>
''' Mit dieser Funktion kann man eine E-Mail mit oder ohne Authentifikation senden
''' </summary>
''' <param name="From">Absender</param>
''' <param name="To">Empfänger</param>
''' <param name="Subject">Titel</param>
''' <param name="Body">Inhalt</param>
''' <param name="Host">Der Host der die Email senden soll</param>
''' <param name="Creds">Optionaler Benutzername und Passwort der für den Host benötigt wird</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