Imports System
Imports System.IO
Imports System.Text
Imports System.Threading
Imports Jscape.Email

Module Module1

    Public Class SmtpExample

        Public WithEvents mySmtp As Smtp = Nothing
        Public message As EmailMessage = Nothing
        Public att As Attachment = Nothing

        Public Sub New(ByVal hostname As String)
            mySmtp = New Smtp(hostname)
            mySmtp.Debug = False

            ' create email message
            message = New EmailMessage
            message.To = "ceo@ourserver.com, cto@ourserver.com"
            message.Cc = "sales@ourserver.com"
            message.From = "hr@ourserver.com"
            message.SetSubject("New employee Jän Freidman", "iso-8859-1")

            message.SetBody("Please welcome our newest employee.")

            att = New Attachment("D:\hr\employees\resumes\freidman.doc")
            message.AddAttachment(att)
            'Connect to smtp server
            mySmtp.Connect()
            'Send email message
            mySmtp.Send(message)
            ' your server may require a slight delay in order to respond
            Thread.Sleep(100)
            ' Disconnect from smtp server
            mySmtp.Disconnect()
        End Sub

        Public Shared Sub Main()

            ' default mail server
            Dim hostname As String = "mail.ourserver.com"

            ' prompt for mail server
            Console.WriteLine("Smtp server: " & hostname)
            If ((hostname = Console.ReadLine()) <> "") Then
                Dim smtpexample As SmtpExample = New SmtpExample(hostname)
            End If
        End Sub


        Public Sub OnConnected(ByVal sender As Object, ByVal e As SmtpConnectedEventArgs) Handles mySmtp.ConnectedEvent
            Console.WriteLine("Connected to {0}", e.Host)
        End Sub
        Public Sub OnDisconnected(ByVal sender As Object, ByVal e As SmtpDisconnectedEventArgs) Handles mySmtp.DisconnectedEvent
            Console.WriteLine("Disconnected.")
        End Sub
        Public Sub OnDataReceived(ByVal sender As Object, ByVal e As SmtpDataReceivedEventArgs) Handles mySmtp.DataReceivedEvent
            Console.WriteLine("Response: " + e.Response)
        End Sub
        Public Sub OnCommandSent(ByVal sender As Object, ByVal e As SmtpCommandSentEventArgs) Handles mySmtp.CommandSentEvent
            Console.WriteLine("Command: " + e.Command)
        End Sub

    End Class

End Module