advanced code snippet search

Posted By

fuzzylogic on 07/23/09


Tagged

email send


Versions (?)

Who likes this?

2 people have marked this snippet as a favorite

smfinlay
haoji


Send HTML Email

 / Published in: VB.NET
 

Quick function to send out decent-looking (but simple) html emails.

Expand | Embed | Plain Text 
  1. Function SendEmail(ByVal ToAddress As String, ByVal FromAddress As String, ByVal MessageSubject As String, ByVal MessageBody As String)
  2.  
  3.         Dim MessageHead As String = "<html><head>"
  4.         MessageHead = MessageHead & "<style>"
  5.         MessageHead = MessageHead & "body {background-color:#F7F7F7; color:#000; font-family:arial,verdana,sans-serif; font-size:12px;}"
  6.         MessageHead = MessageHead & "</style></head><body>"
  7.  
  8.         Dim MessageFoot As String = "</body></html>"
  9.  
  10.         MessageBody = MessageHead & MessageBody & MessageFoot
  11.  
  12.         Dim ReturnMessage As String = ""
  13.         Dim mm As New MailMessage(FromAddress, ToAddress)
  14.         Dim smtp As New SmtpClient
  15.  
  16.         mm.Subject = MessageSubject
  17.         mm.Body = MessageBody
  18.         mm.IsBodyHtml = True
  19.  
  20.         Try
  21.             smtp.Host = "0.0.0.0"  'ADD HOST IP
  22.             smtp.Send(mm)
  23.  
  24.             ReturnMessage = "Email has been dispatched"
  25.  
  26.         Catch ex As Exception
  27.             ReturnMessage = "We're sorry, there has been an error: " & ex.Message
  28.         End Try
  29.  
  30.         SendEmail = ReturnMessage
  31.  
  32.     End Function

Report this snippet  

You need to login to post a comment.