{"id":50,"date":"2007-07-16T06:31:00","date_gmt":"2007-07-16T06:31:00","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=50"},"modified":"2008-01-18T16:31:44","modified_gmt":"2008-01-18T16:31:44","slug":"maextension_ldapmailaliases-exportrfc822mailmember-exportdescription","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/maextension_ldapmailaliases-exportrfc822mailmember-exportdescription","title":{"rendered":"MAExtension_LDAPMailAliases.vb: exportRfc822MailMember, exportDescription"},"content":{"rendered":"

This code is somewhat simplified as it is here to demonstrate the populating of the\u00c2\u00a0description field. The rfc822MailMember field is\u00c2\u00a0multivalued so it is not as simple as setting it equal to a string value, but for the sake of the example we’ll assume it is restricted to one value.<\/p>\n

Case<\/font> “exportRfc822MailMember”<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> objWriter <\/font>As<\/font> StreamWriter<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0Dim<\/font>\u00c2\u00a0newValue <\/font>As<\/font> String<\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0Dim<\/font>\u00c2\u00a0comment <\/font>As<\/font> String<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <<Code to determine if a new Value is needed. Sets the comment variable to decribe the change.\u00c2\u00a0>><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If<\/font>\u00c2\u00a0Not newValue is Nothing\u00c2\u00a0Then<\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 csentry(“rfc822MailMember”).Value = newValue<\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter = New<\/font> StreamWriter(LDAPParams(“alias-updated-list”), True<\/font>)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter.Writeline(csentry.DN.ToString & “#” & comment)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter.Close()
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> If<\/font>
\n<\/font>
\nCase<\/font> “exportDescription”<\/font>
\n‘Input: none – forces rule to run each time\u00c2\u00a0<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> objReader <\/font>As<\/font> StreamReader<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> objWriter <\/font>As<\/font> StreamWriterobjReader = <\/font><\/font>New<\/font> StreamReader(LDAPParams(“alias-updated-list”))<\/font>\u00c2\u00a0<\/font><\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> listItem <\/font>As<\/font> <\/font>String<\/font><\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> list <\/font>As<\/font> <\/font>String<\/font> = “”<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While<\/font> objReader.Peek >= 0<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 list<\/font>Item = objReader.ReadLine<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If<\/font> listItem.Split(“#”)(0) = csentry.DN.ToString <\/font>Then<\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>csentry(“description”).Values.Add(“Updated by MIIS on ” & Today() & “, ” & listItem.Split(“#”)(1))<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Else<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 list = list & listItem & vbCrLf<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> <\/font>If<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> <\/font>While<\/font><\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objReader.Close()<\/font> <\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter = <\/font>New<\/font> StreamWriter(LDAPParams(“alias-updated-list”), <\/font>False<\/font>)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter.Write(list)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 objWriter.close()
\n<\/font><\/p>\n","protected":false},"excerpt":{"rendered":"

This code is somewhat simplified as it is here to demonstrate the populating of the\u00c2\u00a0description field. The rfc822MailMember field is\u00c2\u00a0multivalued so it is not as simple as setting it equal to a string value, but for the sake of the example we’ll assume it is restricted to one value. Case “exportRfc822MailMember” \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim objWriter As…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-50","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-O","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/50","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=50"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/50\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=50"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}