Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Set CurrentUser = BOServer.MOContainer("Current User").Open("").DataObject Set objEmail = CreateObject("CDO.Message") objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "exchange.com" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27 objEmail.Configuration.Fields.Update objEmail.From = CurrentUser.MWUser.Email objEmail.To = "" objEmail.AddAttachment "file://D:\Appraisals\"& Loanapp.LoanNumber &".pdf" ' Check For Processor Email Address if not safeeval("LoanApp.Processor.Email") = "" then objEmail.To = LoanApp.Processor.EMail end if 'Set Subject line objEmail.Subject = "Decision status changed to " & FieldValue & " on Loan " & LoanApp.AppNum 'Send Message if objEmail.To <> "" then objEmail.Send end if Set objEmail = nothing Result = False
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.