Imports System.Web
Imports System.IO
Imports System.Net.Mail

    Dim mail As New MailMessage()
    Dim SmtpServer As New SmtpClient
    SmtpServer.Credentials = New Net.NetworkCredential("email@gmail.com", "password")
    SmtpServer.Port = 587
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.EnableSsl = True
    SmtpServer.EnableSsl = True
    mail.To.Add("recievingemail@hotmail.co.uk")
    mail.From = New MailAddress("email@gmail.com")
    mail.Subject = "Match Reminder"
    mail.Body = "A reminder that you have an upcoming match this week, please check match details."
    SmtpServer.Send(mail)