TECH.RegisteredObject,TECH.Mail.Mail %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.MailMessage 1 1 1 %Status 1 IsHTML:%Boolean Verzender:%String AntwoordenNaar:%String Omleiden:%Boolean BijlageLocaties:%ListOfDataTypes BijlageLocatie:%String Stream:%Stream,Bestandsnaam:%String Ontvanger:%String Ontvanger:%String Ontvanger:%String Onderwerp:%String %String Tekst:%String Tekst:%String Tekst:%String Blijkbaar negeren sommige mail clients (met name Lotus Notes) XHTML break tags niet... Tekst:%String 1 %String ", "
", , , /*case insensitive=*/ 1 ) } Quit Tekst ]]> Stream:%Stream %Stream %Net.MailMessage %Boolean 1 1 %String %String %ListOfDataTypes %ListOfDataTypes %ListOfDataTypes %String 0) #dim RecipientsInfo As %String = "Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)"_$$$CRLF Set:(..MailMessage.From'="") RecipientsInfo=RecipientsInfo_" From: "_..MailMessage.From_$$$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 ]]>