Difference between revisions of "EmailNotify"

From scripting
Jump to: navigation, search
(Created page with " Sub EmailNotify(FromEmailAddress As String, ToEmailAddress As String, ServerName As String, SubjectStr As String, BodyStr As String) On Error GoTo blast Set objEmai...")
 
(No difference)

Latest revision as of 05:28, 22 April 2017

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