Dim SMTP As New SmtpClient ("smtp.live.com")
SMTP.Port = 25
Dim SMTP As New SmtpClient ("smtp.uk.aol.com")
SMTP.Port = 587
Dim SMTP As New SmtpClient ("plus.smtp.mail.yahoo.com")
SMTP.Port = 465
