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.
GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

VB.NET Aufbau

Sie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.

''' <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!