Hi,
Set mailTo = New NotesName (doc.OrigAuthor(0))
Set mailCopyTo = New NotesName (doc.Manager (0))
subj = "DUDA Request Completed for: " + doc.EmployeeNumber (0)
L1 = “The following DUDA Request has been approved and closed.” + Chr (10) + Chr (10) + Chr (10)
L2 = “NOTE: THIS NOTICE REFLECTS IT SECURITY’S COMPLETION.” + Chr (10) + Chr (10)
L3 = “PLEASE CONTACT HELP DESK FOR FURTHER ASSISTANCE” + Chr (10) + Chr (10)
L4 = “A REMEDY TICKET WILL BE GENERATED AND WHEN CLOSED” + Chr (10) + Chr (10)
L5 = “YOU WILL BE NOTIFIED VIA AN AUTOMATED EMAIL.” + Chr (10)
msg = L1+L2+L3 + L4 + L5
coms = “”
Call SendMail (mailTo, mailCopyTo, subj, msg, coms)