Difference between revisions of "EmailNotify"
From scripting
(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