EmailNotify

From scripting
Revision as of 05:28, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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