vhLib.Macro %RegisteredObject %String 1 %String 1 %String list 1 %String list 1 %String list 1 %String 1 %Boolean 1 %String 1 %Boolean 1 %String list 1 %Net.SMTP 1 %Net.MailMessage 1 1 1 %Status 1 Verzender:%String AntwoordenNaar:%String Gebruikersnaam:%String,Wachtwoord:%String BijlageLocaties:%ListOfDataTypes BijlageLocatie:%String Stream:%Stream,Bestandsnaam:%String Ontvanger:%String Ontvanger:%String Ontvanger:%String Onderwerp:%String String:%String String:%String Stream:%Stream 1 %String %Boolean %String %String %ListOfDataTypes %ListOfDataTypes %ListOfDataTypes %String 0) #dim RecipientsInfo As %String = "Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)"_$$$CRLF Set:(..MailMessage.To.Count()>0) RecipientsInfo=RecipientsInfo_" To : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.To,", ")_$$$CRLF Set:(..MailMessage.Cc.Count()>0) RecipientsInfo=RecipientsInfo_" Cc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Cc,", ")_$$$CRLF Set:(..MailMessage.Bcc.Count()>0) RecipientsInfo=RecipientsInfo_" Bcc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Bcc,", ")_$$$CRLF Set RecipientsInfo=RecipientsInfo_"============================================================"_$$$CRLF If ..IsHTML { Set RecipientsInfo=$$$Replace(RecipientsInfo,$$$CRLF,"
") Set RecipientsInfo=RecipientsInfo_"
" } Quit RecipientsInfo ]]>