Ü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 |
