Benutzer auslesen

Hallo an alle,

ich bin neu hier und habe ein folgendes Problem. Ich möchte im Tobit ein Termin an mehrere Benutzer schicken. Dazu brauche ich aber die vollständige eMail Adresse der Benutzer.
Mein Code sieht so aus:

DVApp:=DavidAPI(CreateOleObject('DVOBJAPILib.DvISEAPI'));
DVAccount := DVApp.Logon(v,v,v,v,v, 'AUTH');
DVArchive := DvAccount.GetSpecialArchive(1);
DVArchives := DVArchive.Archives;
nAnzahl := DVArchives.Count; // 48 Benutzer

For i := 0 To nAnzahl - 1 do
begin
DVItem := DVArchives.Item(i);
// hier wird der Name des Benutzers angezeigt
ShowMessage(String(DVItem.DisplayName));
// hier sein ganzes Pfad
ShowMessage(String(DVItem.FullPath));
end;

Aber wie kriege ich die Mail Adresse ?
DVItem.Email funktioniert nicht
DVItem.MailAddress auch nicht

Bitte um Hilfe
Grüße
Christoph

Kannst Du mal bitte deine Variablen-Zuweisungen posten?
So wie ich es vervollständigt habe fliege ich immer bei den ShowMessage Befehlen mit einer Zugriffverletzung raus.

MS VBA:

Set oUser = oAccount.User 'Returns the User objects (DvApi32.User)
sAdresse = oUser.MailAddress

So finde ich die Adresse.

Gruß,

Ralf

Hallo,

die Variablen habe ich so deklariert:

DVApp : DavidAPI;
DVAccount : Account;

DVArchive: Archive;
DVArchives: Archives;
DVItem: Archive;

Grüße
Christoph

Hallo,

danke aber bei oAccount.User kann ich nur meine Daten auslesen. Ich brauche aber die andere User. Ich möchte denen die Termine in Kalender eintragen.

Grüße
Christoph

ja richtig, war mein Knoten in den Hirnwindungen, sorry

Hallo,

auch wenn die Frage schon etwas älter ist, gibt es vlt. in Zukunft jemanden, der auf genau dieses Problem stößt. Daher poste ich hier eine mögliche Lösung in VB:

...
Dim oAcc As DvApi32.Account


'DVApi initialisieren, "authentifizieren"
oApp = CreateObject("DVOBJAPILib.DvISEAPI")
oAcc = oApp.Logon("", "", "", "", "", "AUTH")


Dim oAddress As DvAPI32.Address


For i As integer = 0 To oAcc.LocalAddressBook.Count - 1
oAddress = oAcc.LocalAddressBook.Item(i)
'MsgBox(Hex(oAddress.UID) & ": " & oAddress.DisplayName)
MsgBox(oAddress.EMail)
Next
...

mfg, Holger

Anmerkung: Dieses Snippet stammt nicht direkt von mir. Vielmehr habe ich diese in einer der alten Tobit-NGs gefunden. Ich denke aber, dass der ursprünglichen Verfassers des Snippets nichts gegen eine Weiterverbreitung haben wird.