TECH.Mail.Verzender,TECH.RegisteredObject %Net.SMTP %Net.MailMessage 1 TECH.Mail.impl.MailMessageAanpasser 1 MailMessageAanpasser:TECH.Mail.impl.MailMessageAanpasser="" 1 1 %Status 1 Mail:TECH.Mail.Mail 1 1 %String Gebruikersnaam:%String,Wachtwoord:%String Deze was [ Private ] , nu public gemaakt voor UT :-(((( Mail:TECH.Mail.Mail %Net.MailMessage Mail:TECH.Mail.Mail 1 %Boolean 1 1 Mail:TECH.Mail.Mail 1 %String 0) #dim RecipientsInfo As %String = "Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)"_$$$CRLF Set:(Mail.GeefVerzender()'="") RecipientsInfo=RecipientsInfo_" From: "_Mail.GeefVerzender()_$$$CRLF Set:(Mail.GeefOntvangers().Count()>0) RecipientsInfo=RecipientsInfo_" To : "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),", ")_$$$CRLF Set:(Mail.GeefOntvangersCC().Count()>0) RecipientsInfo=RecipientsInfo_" Cc : "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),", ")_$$$CRLF Set:(Mail.GeefOntvangersBCC().Count()>0) RecipientsInfo=RecipientsInfo_" Bcc : "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),", ")_$$$CRLF Set RecipientsInfo=RecipientsInfo_"============================================================"_$$$CRLF If Mail.GeefIsHTML() { Set RecipientsInfo=$$$Replace(RecipientsInfo,$$$CRLF,"
") Set RecipientsInfo=RecipientsInfo_"
" } Quit RecipientsInfo ]]>