DevTrain Startseite Advanced Developers Conference vom 14.-15. Februar 2011  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Shinja Strasser Artikel Drucken
        
Exchange - User Daten auslesen

Über CDO eine Mail zu verschicken ist den meisten Entwicklern vertraut, aber wo bekomme ich die eMail- Adressen her ?
Mit CDO und dem Namespace LDAP, den man für den Zugriff auf den Exchange-Server benötigt, kann man eine kleine Web-Access Application mit der man eMails verschicken kann bauen. Ausserdem kann man, insofern der Exchange-Server gepflegt wird, Kontaktinformation innerhalb eines Unternehmens anzeigen.

Hier zeige ich ein kleines Beispiel um diese Informationen im Browser anzuzeigen.

<%@ Language=VBScript %>
<html>
 <head>
  <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
 </head>
<body>
<%
Dim oContainer
Dim ExServ
Dim oCont
Dim uUser

 ExServ = "NameOfExchange"
 o =  "ppedv"
 ou = "DomainController"
    
  strUser = "UserName"
  On Error Resume Next
  Set oCont = GetObject("LDAP://" & ExServ & "/o=" & o & "/ou=" & ou & "/cn=Recipients/cn=" & strUser)
   Response.Write strUser & "<br>"  
   Response.Write "<b>1.FirstName:</b> " & oCont.FirstName & "<br>"
   Response.Write "<b>2.LastName:</b> " & oCont.LastName & "<br>"
   Response.Write "<b>3.EMail:</b> " & oCont.Mail & "<br>"
   Response.Write "<b>4.Department:</b> " & oCont.Department & "<br>"
   Response.Write "<b>5.Telephone Number:</b> " & oCont.TelephoneNumber & "<br>"
   Response.Write "<b>6.Postal Address:</b> " & oCont.PostalAddress & "<br>"
   Response.Write "<b>7.See Also:</b> " & oCont.SeeAlso & "<br>"
   Response.Write "<b>8.BusinessCategory:</b> " & oCont.BusinessCategory & "<br>"
   Response.Write "<b>9.Description:</b> " & oCont.Description & "<br>"
   Response.Write "<b>10.Title:</b> " & oCont.Title & "<br>"
   Response.Write "<b>11.Manager:</b> " & oCont.Manager & "<br>"
   Response.Write "<b>12.TelephoneHome:</b> " & oCont.TelephoneHome & "<br>"
   Response.Write "<b>13.TelephoneMobile:</b> " & oCont.TelephoneMobile & "<br>"
   Response.Write "<b>14.OfficeLocations:</b> " & oCont.OfficeLocations & "<br>"
   Response.Write "<b>15.PostalCodes:</b> " & oCont.PostalCodes & "<br>"
   Response.Write "<b>16.EMailAddress:</b> " & oCont.EMailAddress & "<br>"
%>
</body>
</html>


Um z.B von allen NT-Benutzer die Informationen zu erhalten, mit der Einschränkung >Account = strUser<
kann man dies mit einer For Each Schleife machen:

Set oContainer = GetObject("WinNT://" & ExServ)
 For Each oChild In oContainer
  If InStr(1,oChild.Class,"User")Then
   strUser = 'oChild.Name

 

  '******** Hier der oben stehende Code *******

  End If
 Next

 

 

 


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente
    Keine Links vorhanden

  Erfasst am: 02.03.2001
  Gültig bis: 01.04.2001
4 Ratings
Bewertung: 25,0%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG