Function SendMail(ByVal FromName As String, ByVal FromAddress As String, ByVal ToAddress As String, ByVal Subject As String, ByVal Body As String)
Dim message As New MailMessage
With message
.From = New MailAddress(FromAddress, FromName)
.To.Add(New MailAddress(ToAddress))
.Subject = Subject
.Body = Body
End With
Dim client As New SmtpClient("exchange-server-name", "port number")
client.Credentials = New Net.NetworkCredential("login", "password")
client.EnableSsl = True
message.Dispose()
Return True
End Function