Results 1 to 3 of 3

Thread: verbinding naar outlook of agenda vinden lukt soms niet (onder delphi)

  1. #1

    verbinding naar outlook of agenda vinden lukt soms niet (onder delphi)

    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;

  2. #2
    Member
    Join Date
    Mar 2003
    Location
    Netherlands
    Posts
    638
    Het klinkt misschien gek. Ik heb een soort gelijk probleem ooit gehad met GroupWise communicatie. Wat ik destijds had gedaan is in mijn except blok nog een keer de code vanuit de try blok laten uitvoeren. Toen kreeg hij wel verbinding.

    Dus misschien werkt dit voor jou.

    Code:
    try
      rcp := Ns.CreateRecipient(Werknemer);
      Folder := Ns.GetSharedDefaultFolder(rcp, 9);
    except
      try
        rcp := Ns.CreateRecipient(Werknemer);
        Folder := Ns.GetSharedDefaultFolder(rcp, 9);
      except
        result := false;
        if ShowMes then
          showmessage('Werknemer niet gevonden!');
        exit;
      end;
    end;
    Alex "leXTer" van der Vliet
    Delphi Programmer

    And may the source be with you.

  3. #3
    oftewel als het fout gaat gewoon nog eens proberen?
    hmm en als het dan weer fout gaat dan pas de melding geven?

    ik kan het eens proberen, het lastige is echter dat ik dit niet kan testen omdat
    het niet altijd gebeurd en ik ook niet weet wanneer wel en wanneer niet
    maar het is zeker het proberen waard, dank je

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 2
    Last Post: 26-Nov-02, 15:07

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •