Return to Snippet

Revision: 16018
at July 23, 2009 10:38 by fuzzylogic

Initial Code
Function SendEmail(ByVal ToAddress As String, ByVal FromAddress As String, ByVal MessageSubject As String, ByVal MessageBody As String)

        Dim MessageHead As String = "<html><head>"
        MessageHead = MessageHead & "<style>"
        MessageHead = MessageHead & "body {background-color:#F7F7F7; color:#000; font-family:arial,verdana,sans-serif; font-size:12px;}"
        MessageHead = MessageHead & "</style></head><body>"

        Dim MessageFoot As String = "</body></html>"

        MessageBody = MessageHead & MessageBody & MessageFoot

        Dim ReturnMessage As String = ""
        Dim mm As New MailMessage(FromAddress, ToAddress)
        Dim smtp As New SmtpClient

        mm.Subject = MessageSubject
        mm.Body = MessageBody
        mm.IsBodyHtml = True

            smtp.Host = ""  'ADD HOST IP

            ReturnMessage = "Email has been dispatched"

        Catch ex As Exception
            ReturnMessage = "We're sorry, there has been an error: " & ex.Message
        End Try

        SendEmail = ReturnMessage

    End Function

Initial URL

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

Initial Title
Send HTML Email

Initial Tags

Initial Language