{"id":1117,"date":"2014-03-11T10:25:34","date_gmt":"2014-03-11T09:25:34","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=1117"},"modified":"2014-03-11T10:49:12","modified_gmt":"2014-03-11T09:49:12","slug":"cldap-email-an-lotus-notes-gruppen-per-smtp-schicken","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=1117","title":{"rendered":"C#+LDAP: Email an Lotus Notes Gruppen per SMTP schicken"},"content":{"rendered":"

Problem<\/h1>\n

In einem Unternehmen sollen Lotus Notes Gruppen aufgel\u00f6st werden um den Mitgliedern der LN Gruppe Mails \u00fcber einen normalen SMTP Server zu schicken<\/p>\n

Ansatz<\/h1>\n

Lotus Notes besitzt i.d.R. einen LDAP Server, der die Notes Gruppen aufschl\u00fcsselt. Auf LDAP kann \u00fcber C# zugegriffen werden.<\/p>\n

L\u00f6sung<\/h1>\n
\r\npublic ArrayList resolvingNotesGroups(String mailGroup)\r\n{\r\n ArrayList alMailAddys = new ArrayList();\r\n\r\n DirectoryEntry DirEntry = new DirectoryEntry();\r\n {\r\n  DirEntry.Path = "LDAP:\/\/notesldap.it.company.com";\r\n  DirEntry.AuthenticationType = AuthenticationTypes.ServerBind;\r\n }\r\n   \r\n DirectorySearcher search = new DirectorySearcher(DirEntry);\r\n DirectoryEntry de = new DirectoryEntry();\r\n\r\n Dictionary<String, String> dict = new Dictionary<string, string>();\r\n\r\n \/\/ Tweak this to refine your search\r\n search.Filter = "(cn=" + mailGroup + ")";\/\/ BBME_AC_Rubi\r\n \/\/ I limit my results while I tweak          \r\n search.SearchScope = SearchScope.Subtree;          \r\n\r\n try\r\n {\r\n  SearchResultCollection src = search.FindAll();\r\n        \r\n  if (src.Count != 0)\r\n  {\r\n   foreach (SearchResult result in search.FindAll())\r\n   {\r\n    \/\/ Display each of the values for the property \r\n    \/\/ identified by the property name.\r\n    foreach (object property in result.Properties["member"])\r\n    {\r\n     \/\/ CN Name ermitteln\r\n     dict.Add(property.ToString(), "");\r\n    }\r\n   }\r\n    \r\n  }\r\n  else\r\n  {\r\n   throw new Exception("GroupResolving - No Entry found for: " + search.Filter);\r\n  }\r\n\r\n  int indexStart;\r\n  int indexEnd;\r\n\r\n\r\n  foreach (KeyValuePair<string, string> entry in dict)\r\n  {\r\n   search.Dispose();\r\n   search = new DirectorySearcher(DirEntry);\r\n\r\n   indexStart = entry.Key.IndexOf("=");\r\n   indexEnd = entry.Key.IndexOf(",");\r\n\r\n   \/\/ Entry key only CN \r\n   search.Filter = "(cn=" + entry.Key.Substring(indexStart + 1, indexEnd - indexStart - 1) + ")";\r\n   search.SearchScope = SearchScope.Subtree;\r\n\r\n   foreach (SearchResult result in search.FindAll())\r\n   {\r\n    if (result != null)\r\n    {\r\n\r\n     de = result.GetDirectoryEntry();\r\n     alMailAddys.Add(de.Properties["mail"].Value.ToString());\r\n    }\r\n    else\r\n    {\r\n     throw new Exception("Peolple Resolving - No Entry found for: " + search.Filter);\r\n    }\r\n   }\r\n  }\r\n\r\n }\r\n catch (Exception ex)\r\n {\r\n  throw new Exception("Following error occured: " + ex.Message.ToString());\r\n }\r\n finally\r\n {\r\n  search.Dispose();\r\n  DirEntry.Close();\r\n }\r\n\r\n return alMailAddys;\r\n}}<\/pre>\n