Sendemail in PasswordRecovery

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