Navigation

	Home Page
	Index
	All Pages

Contributor Links

	Create a new Page
	Administration
	File Management
	Login/Logout
	Your Profile

Other Wiki Sections

Software

Imports System.Net
Imports System.Net.Mail

Public Enum MailFormat
    Html
    PlainText
End Enum
Public Class MailServer

    Private _hostName As String
    Private _useDefaultCredentials As Boolean
    Private _senderEmail As String
    Private _password As String
    Private _method As SmtpDeliveryMethod

    Public Sub New(ByVal senderEmail As String)

        _hostName = "127.0.0.1"
        _senderEmail = senderEmail
        _useDefaultCredentials = True
        _method = SmtpDeliveryMethod.PickupDirectoryFromIis

    End Sub

    Public Sub New(ByVal senderEmail As String, ByVal hostName As String)

        _hostName = hostName
        _senderEmail = senderEmail
        _useDefaultCredentials = True
        _method = SmtpDeliveryMethod.Network

    End Sub

    Public Sub New(ByVal senderEmail As String, ByVal hostName As String, ByVal password As String)

        _hostName = hostName
        _senderEmail = senderEmail
        _password = password
        _useDefaultCredentials = False
        _method = SmtpDeliveryMethod.Network

    End Sub

    Public Sub SendEmail(ByVal recipient As String, ByVal subject As String, ByVal body As _
    String, ByVal format As MailFormat)

        Dim portNumber As Integer = 25
        Dim smtpClient As SmtpClient = New SmtpClient(_hostName, portNumber)
        smtpClient.UseDefaultCredentials = _useDefaultCredentials
        smtpClient.DeliveryMethod = _method

        If Not _useDefaultCredentials Then
            smtpClient.Credentials = New System.Net.NetworkCredential(_senderEmail, _password)
        End If

        Dim msg As MailMessage = New MailMessage(_senderEmail, recipient, subject, body)
        msg.IsBodyHtml = (format = MailFormat.Html)
        smtpClient.Send(msg)

    End Sub

End Class

TODO