ChillAxen.com

''' <summary>
''' This will allow you to send email in one simple sub call
''' </summary>
'''<param name="smtp_username">The login for your SMTP server. Ussualy same as your pop3 login</param>
'''<param name="smtp_password">The password for your SMTP server, ussualy same as your pop3 password</param>
'''<param name="smtp_server">The mail server to send to. Ussualy mail.yourdomain.com</param>
'''<param name="smtp_port">The port for your smtp server. More than likely always 25</param>
'''<param name="mail_from">Who to send mail from. For alot of servers (including smarter mail) this must be same as smtp_username</param>
'''<param name="mail_to">Who we are sending the mail to</param>
'''<param name="mail_subject">What your mail subject will be</param>
'''<param name="mail_body">What your mail body will be, HTML enabled</param>
''' <remarks>created by www.CoderGuru.com</remarks>
Public Sub Send_Mail(ByVal smtp_username As String, ByVal smtp_password As String, ByVal smtp_server As String, ByVal smtp_port As String, ByVal mail_from As String, ByVal mail_to As String, ByVal mail_subject As String, ByVal mail_body As String)
 
  'Dont edit anything below here unless you want BCC, simply uncomment my line
  Dim mail As New System.Net.Mail.MailMessage(mail_from, mail_to)
  mail.Subject = mail_subject
  mail.IsBodyHtml = True
  mail.Body = mail_body
  'mail.Bcc.Add("you_get_copy_too@foo.bar") 'Uncomment to add BCC's to this message
 
  Dim smtp As New System.Net.Mail.SmtpClient(smtp_server, smtp_port)
  Dim nc As New System.Net.NetworkCredential(smtp_username, smtp_password)
  smtp.Credentials = nc
  smtp.Send(mail)
 
End Sub

  'Below holds your SMTP login information
  Dim smtp_username As String = "username here"
  Dim smtp_password As String = "password here"
  Dim smtp_server As String = "mail.yourdomain.com"
  Dim smtp_port As Integer = 25'Will more than likely never change
 
  Dim mail_from As String = smtp_username' For me my login is my email so simply reference that string
  Dim mail_to As String = "some_Email@somedomain.com"
  Dim mail_subject As String = "Hello World!"
  Dim mail_body As String = "look mom, my email holds <b>html</b> =0"
 
  Send_Mail(smtp_password, smtp_password, smtp_server, smtp_port, mail_from, mail_to, mail_subject, mail_body)