Feedback

VB - E-Mail mit optionaler Authentifizierung senden

Veröffentlicht von am 26.11.2006
(2 Bewertungen)
Mit dieser Funktion kann man eine E-Mail mit oder ohne Authentifikation senden.
''' <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
Abgelegt unter Authentifizierung, Email.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!