>lcTempPath = justpath(sys(16)) >SET CLASSLIB TO (lcTempPath + [wwIPStuff]) ADDITIVE >SET PROCEDURE TO (lcTempPath + [wwUTILS]) ADDITIVE > >TRY > *--- Send Email Notification > oSMTP = CREATEOBJECT("wwIPStuff") > oSMTP.cMailServer = "smtp.domain.net" > oSMTP.cUserName = "test_user" > oSMTP.cPassword = "password" > > WITH oSMTP > .cSenderName = "USER" > .cSenderEmail = "user@domain.org" > .cRecipient = settings.emaillist > .cSubject = [Test Email] > .cMessage = [This is just a test message.] > ENDWITH > > IF ! oSMTP.SendMail() > WAIT WINDOW [Mail not sent: ] + oSMTP.cErrorMsg NOWAIT > ELSE > WAIT WINDOW NOWAIT "Sending email notification." > ENDIF > > * Disconnect From STMP Server > oSMTP = .NULL. >CATCH > WAIT WINDOW NOWAIT "Email message could not be sent." >ENDTRY >>