func init // adds using namespace sys.add_use('System.Net.Mail') // initialize instance params = this.props('Constructor').value if(params == 'Constructor') params = '' elseif(params == 'Constructor2') params = '' + d("From") + ', ' + d("Recipients") elseif(params == 'Constructor3') params = '' + d("From") + ', ' + d("Recipients") + ', ' + d("Subject") + ', ' + d("Body") end sys.add_object(this.codename, 'MailMessage', params) // initialize properties this.init_props(blk_init) // makes implementation methods for properties sys._prop_init('AlternateViews', 1, 0, 0) sys._prop_init('Attachments', 1, 0, 0) sys._prop_init('Bcc', 1, 0, 0) sys._prop_init('Body', 0, 1, 2) sys._prop_init('BodyEncoding', 1, 1, 0) sys._prop_init('CC', 1, 0, 0) sys._prop_init('DeliveryNotificationOptions', 1, 1, 0) sys._prop_init('From', 0, 1, 0) sys._prop_init('Headers', 1, 0, 0) sys._prop_init('HeadersEncoding', 1, 1, 0) sys._prop_init('IsBodyHtml', 1, 1, 104) sys._prop_init('Priority', 1, 1, 0) sys._prop_init('ReplyTo', 1, 1, 0) sys._prop_init('ReplyToList', 1, 0, 0) sys._prop_init('Sender', 1, 1, 0) sys._prop_init('Subject', 0, 1, 2) sys._prop_init('SubjectEncoding', 1, 1, 0) sys._prop_init('To', 1, 0, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('MailMessage') // makes implementation of simple methods sys._method_init('Dispose') end func doConstructor() blk.println(this.codename, ' = new MailMessage();') this.init_fields(blk) end func doConstructor2(data) blk.println(this.codename, ' = new MailMessage(', sys.to_type(d("From"), 2), ', ', sys.to_type(d("Recipients"), 2), ');') this.init_fields(blk) end func doConstructor3(data) blk.println(this.codename, ' = new MailMessage(', sys.to_type(d("From"), 2), ', ', sys.to_type(d("Recipients"), 2), ', ', d("Subject"), ', ', d("Body"), ');') this.init_fields(blk) end func doConstructor4(data) blk.println(this.codename, ' = new MailMessage(', d("From"), ', ', d("Recipients"), ');') this.init_fields(blk) end func init_fields(blkout) // initialize properties sys.set_typed_field(2, 'Body', '', '', blkout) sys.set_typed_field(20, 'BodyEncoding', '', '', blkout) if(not isdef('DeliveryNotificationOptions')) v = this.props('DeliveryNotificationOptions').value flags = ((v _and_ 1) ? '|DeliveryNotificationOptions.None' : '') + ((v _and_ 2) ? '|DeliveryNotificationOptions.OnSuccess' : '') + ((v _and_ 4) ? '|DeliveryNotificationOptions.OnFailure' : '') + ((v _and_ 8) ? '|DeliveryNotificationOptions.Delay' : '') + ((v _and_ 16) ? '|DeliveryNotificationOptions.Never' : '') blkout.println(this.codename, '.DeliveryNotificationOptions = (0', flag, ');') end sys.set_typed_field(2, 'From', '', '', blkout) sys.set_typed_field(20, 'HeadersEncoding', '', '', blkout) sys.set_typed_field(104, 'IsBodyHtml', '', '', blkout) sys.set_typed_field(14, 'Priority', '', 'MailPriority', blkout) sys.set_typed_field(20, 'ReplyTo', '', '', blkout) sys.set_typed_field(20, 'Sender', '', '', blkout) sys.set_typed_field(2, 'Subject', '', '', blkout) sys.set_typed_field(20, 'SubjectEncoding', '', '', blkout) end