Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Lotus Notes LDAP abfrage

Mitglied: skid

skid (Level 1) - Jetzt verbinden

07.04.2008, aktualisiert 08.04.2008, 12062 Aufrufe, 2 Kommentare

Hi,

Wer kann mir sagen wie ich mit VB-Skript das LDAP von Lotus Notes abfragen kann ?
Bräuchte ein Beispiel in dem ich z.B. den Usernamen eingebe und dann als Ergebnis die Emailadresse zurück bekomme.

LDAP Abfragen im AD bekomme ich soweit hin - nur mit Notes komme ich nicht so klar.
Vielleicht kann mir jemand helfen ?!

Gruss
SKID
Mitglied: RDiller
08.04.2008 um 16:19 Uhr
Hi Skid,

ich habe folgenden Code für Dich. Er ist zwar in/für VBA, aber ich denke du solltest damit klarkommen.


sqls = "SELECT NotesAddr.Nname, NotesAddr.Vname, NotesAddr.Shortname, NotesAddr.eMail, NotesAddr.Gruppe, NotesAddr.Tel " _
& "FROM NotesAddr;"
Set rstemp = CurrentDb.OpenRecordset(sqls)
adressbuch = "names.nsf"
'Das Adressbuch PEOPLE auslesen
ansicht = "People"
Server = "<Dein Servername>" 'z.B.: mail01/xxxx/xxxx
i = 0
Set objNotes = GetObject("", "Notes.NotesSession")
If objNotes Is Nothing Then
Set objNotes = CreateObject("Notes.NotesSession")
End If
Set LNdb = objNotes.GetDatabase(Server, adressbuch)
Set LNview = LNdb.GetView(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GetFirstDocument
ReDim lnarray(100, 50)
On Error Resume Next
Do While Not LNdoc Is Nothing
Set item = LNdoc.GetFirstItem("lastname")
Set item1 = LNdoc.GetFirstItem("firstname")
Set item2 = LNdoc.GetFirstItem("shortname")
Set item3 = LNdoc.GetFirstItem("InternetAddress")
Set item4 = LNdoc.GetFirstItem("OfficePhoneNumber")
array1 = item.Values
array2 = item1.Values
array3 = item2.Values
array4 = item3.Values
array5 = item4.Values
rstemp.AddNew
rstemp.Fields(0) = array1(0)
rstemp.Fields(1) = array2(0)
If UBound(array3) > 0 Then
rstemp.Fields(2) = array3(1)
Else
rstemp.Fields(2) = array3(0)
End If
rstemp.Fields(5) = array5(0)
rstemp.Fields(3) = array4(0)
rstemp.Update
Set LNdoc = LNview.GetNextDocument(LNdoc)
Loop
'Verteilergruppen ermitteln
ansicht = "Groups"
Set LNdb = Nothing
Set LNview = Nothing
Set LNdoc = Nothing
i = 0
Set LNdb = objNotes.GetDatabase(Server, adressbuch)
Set LNview = LNdb.GetView(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GetFirstDocument
ReDim lnarray(100, 50)
On Error Resume Next
Do While Not LNdoc Is Nothing
Set item = LNdoc.GetFirstItem("Listname")
array1 = item.Values
rstemp.AddNew
rstemp.Fields(0) = array1(0)
rstemp.Fields(2) = array1(0)
rstemp.Fields(3) = array1(0)
rstemp.Fields(4) = True
rstemp.Update
Set LNdoc = LNview.GetNextDocument(LNdoc)
Loop
On Error GoTo 0
rstemp.Close
Set rstemp = Nothing
Set LNdoc = Nothing
Set LNview = Nothing
Set LNdb = Nothing
Set objNotes = Nothing



Gruß

Ralf
Bitte warten ..
Mitglied: skid
08.04.2008 um 16:34 Uhr
Hi,

danke für den Code.
Damit komme ich jetzt schon mal etwas weiter.

Gruss
SKID
Bitte warten ..
Ähnliche Inhalte
E-Mail
Lotus Notes 8.3.5 Deinstallation
Frage von Hendrik2586E-Mail5 Kommentare

Guten Tag @ all! :) Und zwar habe ich folgendes Anliegen. ich versuche gerade auf einem HP Prodesk ein ...

Voice over IP
LDAP-Server hilfe
Frage von SteffenEK72Voice over IP

Hallo zusammen, ich habe auf dem Synology Nas einen LDAP-Server laufen, möchte gerne das bei uns im Netzwerk ein ...

Off Topic
Trinotar - LDAP Import
Frage von Xaero1982Off Topic3 Kommentare

Moin Zusammen, heute mal eine etwas sehr softwarebezogene Frage für Leute die Kanzleien betreuen. Wenn jemand Trinotar von Wolters ...

Outlook & Mail
Lotus Notes Adressbuch Synchronisation
Frage von Jannis92Outlook & Mail4 Kommentare

Moin Leute, kennt jemand eine gute und aktuelle Anleitung, wie man die Synchronisation für das globale Adressbuch von Lotus ...

Neue Wissensbeiträge
Windows Server
Anzahl von Gruppenrichtlinien
Erfahrungsbericht von Bullii vor 4 StundenWindows Server

Hallo, mich interessiert brennend, wieviele Gruppenrichtlinienobjekte, ihr so bei euch habt? Ich versuchte eigentlich immer die Gruppenrichtlinienobjekte soweit wie ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 8 StundeniOS

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 20 StundeniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 2 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
gelöst Frage von gabeBUExchange Server17 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Server
Server in zwei verschiedene Netzwerke einbinden
gelöst Frage von BennyFServer13 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
Frage von frosch2Windows Netzwerk11 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

Netzwerkmanagement
Ticketsystem für eine Kommune gesucht
gelöst Frage von akovisNetzwerkmanagement11 Kommentare

Ich suche aktuell ein Ticketsystem für eine Kleinstadt von 13000 Einwaohnern. Das System soll alle Anfragen aus verschiedenen Kanälen ...