Index: TECH/Mail/MailVerstuurder.cls.xml
===================================================================
diff -u -r491 -r514
--- TECH/Mail/MailVerstuurder.cls.xml (.../MailVerstuurder.cls.xml) (revision 491)
+++ TECH/Mail/MailVerstuurder.cls.xml (.../MailVerstuurder.cls.xml) (revision 514)
@@ -6,7 +6,7 @@
1
-Mail:TECH.Mail.Mail
+Mail:TECH.Mail.impl.MailPRA
Index: TECH/Mail/Mail.cls.xml
===================================================================
diff -u -r491 -r514
--- TECH/Mail/Mail.cls.xml (.../Mail.cls.xml) (revision 491)
+++ TECH/Mail/Mail.cls.xml (.../Mail.cls.xml) (revision 514)
@@ -3,81 +3,134 @@
%RegisteredObject
-
-%String
-1
-
+
+1
+IsHTML:%Boolean
+
-
-%String
-list
-1
-
+
+1
+Verzender:%String
+
-
-%String
-1
-
+
+1
+AntwoordenNaar:%String
+
-
-%String
-1
-
+
+1
+Gebruikersnaam:%String,Wachtwoord:%String
+
-
-%Status
-
+
+1
+Omleiden:%Boolean
-
-Afzender:%String
-
+
+1
-
-%String
-
+
+1
+BijlageLocaties:%ListOfDataTypes
-
-Bestemmeling:%String
-
+
+1
+BijlageLocatie:%String
-
-TECH.Iterator
-
+
+1
+Stream:%Stream,Bestandsnaam:%String
+
+1
+Ontvanger:%String
+
+
+
+1
+Ontvanger:%String
+
+
+
+1
+Ontvanger:%String
+
+
+
+1
+
+
+1
Onderwerp:%String
-
-
+
+1
+String:%String
+
+
+
+1
+String:%String
+
+
+
+1
+Stream:%Stream
+
+
+
+1
+
+
+
+1
+%Boolean
+
+
+
+1
+
+
+
+1
+
+
+
+1
%String
-
-
-Inhoud:%String
-
+
+1
+%String
-
+
+1
+%ListOfDataTypes
+
+
+
+1
+%ListOfDataTypes
+
+
+
+1
+%ListOfDataTypes
+
+
+
+1
%String
-
Index: TECH/Mail/MailAPI.cls.xml
===================================================================
diff -u
--- TECH/Mail/MailAPI.cls.xml (revision 0)
+++ TECH/Mail/MailAPI.cls.xml (revision 514)
@@ -0,0 +1,13 @@
+
+
+
+1
+
+
+1
+TECH.Mail.Mail
+
+
+
+
+
Index: TECH/Mail/impl/MailPRA.cls.xml
===================================================================
diff -u
--- TECH/Mail/impl/MailPRA.cls.xml (revision 0)
+++ TECH/Mail/impl/MailPRA.cls.xml (revision 514)
@@ -0,0 +1,85 @@
+
+
+
+%RegisteredObject
+
+
+%String
+1
+
+
+
+%String
+list
+1
+
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%Status
+
+
+
+
+Afzender:%String
+
+
+
+
+%String
+
+
+
+
+Bestemmeling:%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+Onderwerp:%String
+
+
+
+
+%String
+
+
+
+
+Inhoud:%String
+
+
+
+
+%String
+
+
+
+
+
+
Index: TECH/Mail/impl/MailAPI.cls.xml
===================================================================
diff -u
--- TECH/Mail/impl/MailAPI.cls.xml (revision 0)
+++ TECH/Mail/impl/MailAPI.cls.xml (revision 514)
@@ -0,0 +1,14 @@
+
+
+
+TECH.Mail.MailAPI,%RegisteredObject
+
+
+TECH.Mail.Mail
+
+
+
+
+
+
FishEye: Tag 514 refers to a dead (removed) revision in file `TECH/Mail.cls.xml'.
FishEye: No comparison available. Pass `N' to diff?
Index: TECH/Context.cls.xml
===================================================================
diff -u
--- TECH/Context.cls.xml (revision 0)
+++ TECH/Context.cls.xml (revision 514)
@@ -0,0 +1,133 @@
+
+
+
+
+1
+%RegisteredObject
+
+
+TECH.Context
+1
+
+
+
+TECH.Stack
+array
+1
+
+
+
+%RegisteredObject
+array
+1
+
+
+
+%String
+MailAPI
+
+
+
+1
+TECH.Context
+
+
+
+
+1
+1
+%Status
+
+
+
+
+DOM.VKP.OrderAPI
+
+
+
+
+Naam:%String
+
+
+
+
+
+
+
+
+
+
+
+
+APINaam:%String
+1
+
+
+
+
+APINaam:%String
+1
+
+
+
+
+APINaam:%String,APIKlasseNaam:%String
+1
+
+
+
+
+APINaam:%String
+1
+
+
+
+
+
+
Index: TECH/Mail/SmtpMailVerstuurder.cls.xml
===================================================================
diff -u -r491 -r514
--- TECH/Mail/SmtpMailVerstuurder.cls.xml (.../SmtpMailVerstuurder.cls.xml) (revision 491)
+++ TECH/Mail/SmtpMailVerstuurder.cls.xml (.../SmtpMailVerstuurder.cls.xml) (revision 514)
@@ -4,7 +4,7 @@
TECH.Mail.MailVerstuurder
-Mail:TECH.Mail.Mail
+Mail:TECH.Mail.impl.MailPRA
+
+
+vhLib.Macro
+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.SMTP
+1
+
+
+
+%Net.MailMessage
+1
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+IsHTML:%Boolean
+
+
+
+
+Verzender:%String
+
+
+
+
+AntwoordenNaar:%String
+
+
+
+
+Gebruikersnaam:%String,Wachtwoord:%String
+
+
+
+
+Omleiden:%Boolean
+
+
+
+
+
+
+
+
+BijlageLocaties:%ListOfDataTypes
+
+
+
+
+BijlageLocatie:%String
+
+
+
+
+Stream:%Stream,Bestandsnaam:%String
+
+
+
+
+Ontvanger:%String
+
+
+
+
+Ontvanger:%String
+
+
+
+
+Ontvanger:%String
+
+
+
+
+
+
+
+
+Onderwerp:%String
+
+
+
+
+String:%String
+
+
+
+
+String:%String
+","
", , ,1)) ; ..VervangBRMetSlash(String))
+ }
+ Else {
+ do ..MailMessage.TextData.WriteLine(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
+]]>
+
+
+
+
+