hoi hoi,
we maken gebruik van Dlephi 6 en vanuit daar maken we verbinding naar Outlook en maken we appointments aan in verschillende agendas
maar soms gaat het fout, dan kan de agenda van een medewerker niet worden gevonden, maar ik weet niet precies waar dit aan ligt
kan er evengoed naar een agenda gezocht worden als er NIET naar Outlook is ge-connect?
ik heb hieronder de code toegevoegd: eerst connecten naar Outlook en vervolgens een agenda zoeken
alvast bedankt!
p.s. de werknemer string is niet leeg want dit wordt al gecontroleerd in de functie die checkagenda aanroept (als de string leeg is wordt er false teruggegeven en volgt er een exit)
Code:
// verbinding met outlook maken
outlook := Toutlookapplication.Create(Self);
outlook.Connect;
ns := Outlook.GetNamespace('MAPI');
Vernieuw := true;
deze code gebruiken we voor het zoeken naar een agenda
Code:
///////////////////////////////////////////////////////////////////
/// Deze functie kijkt of de agenda van de persoon/auto bestaat ///
///////////////////////////////////////////////////////////////////
// als werknemer een lege string is dan false teruggeven
if werknemer = '' then
begin
result := false;
if ShowMes then
showmessage('Werknemer niet gevonden!');
exit;
end;
// als de agenda niet opgehaald kan worden dan een false teruggeven
try
rcp := Ns.CreateRecipient(Werknemer);
Folder := Ns.GetSharedDefaultFolder(rcp, 9);
except
result := false;
if ShowMes then
showmessage('Werknemer niet gevonden!');
exit;
end;
result := true;
Bookmarks