EmailNotify

Sub EmailNotify(FromEmailAddress As String, ToEmailAddress As String, ServerName As String, SubjectStr As String, BodyStr As String)
    On Error GoTo blast
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = FromEmailAddress
    objEmail.To = ToEmailAddress
    objEmail.Subject = SubjectStr
    objEmail.Textbody = BodyStr
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            ServerName
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send
    Exit Sub
blast:
     
End Sub