/ Forums / Advansys Formativ / Creating Solutions with Formativ / Different code behavior on different platform (

  • Creator
  • #3936

      I’m building an applet to retrieve an info from an addressbook ! On win2k platf. my code works great but on win9x platf. no way to obtain info required ! Any idea ?

      here ‘s the code:

      Sub Main(Client, GWEvent)

      Dim usr
      Dim Wiz01
      Dim Wiz02
      Dim Instructions1
      Dim Instructions2
      Dim Instructions3
      Dim AddressBooks
      Dim AddressBook
      Dim objAddressBookEntries
      Dim objAddressBookEntry
      Dim objAddressBooks
      Dim objAddressBook

      usr = GroupWise.EnvUserID()
      GroupWise.EnableCommand(638) ‘RuleCreate()
      GroupWise.EnableCommand(639) ‘RuleDelete()
      GroupWise.EnableCommand(62) ‘RuleListDlg()

      Set AddressBooks = GroupWise.AddressBooks
      for Each AddressBook in AddressBooks
      If AddressBook.name = “Rubrica di indirizzi Novell GroupWise” or AddressBook.name = “Novell GroupWise Address Book” then
      Set AddressBook = AddressBooks.Item(“Novell GroupWise Address Book”)
      If IsEmpty(AddressBook) then
      MsgBox(“Non trovo: Novell GroupWise Address Book !”)
      Set AddressBook = AddressBooks.Item(“Rubrica di indirizzi Novell GroupWise”)
      If IsEmpty(AddressBook) then
      MsgBox(“Non trovo: Rubrica di indirizzi Novell GroupWise !”)
      Set AddressBooks = nothing
      Exit Sub
      End If
      End If
      End If

      ‘MsgBox(“Using : “&AddressBook.Name)
      ‘MsgBox(“User : “&usr)

      for each objAddressBookEntry in AddressBook
      if (objAddressBookEntry.Title <> “*”) and (objAddressBookEntry.UserID = usr) then
      FW_TO = objAddressBookEntry.Title
      MsgBox(“Info retrieved ! “&FW_TO)
      end if

      If FW_TO = “” Then
      MsgBox(“Info unavailable !”)
      Exit Sub
      End If

      (*) on win2k I retrieve exactly info stored in TITLE field but on win9x the field FW_TO is empty !!! Maybe I’m wrong ?

    • Author
    • #6655
      Support 1a

        Thank you for your question below. The applet code is not implemented differently on different operating systems. However, I cannot say how the GroupWise client operates under different versions of Windows.

        If we assume the GroupWise client works the same way under Windows 9x and 2K, something else must be different. To assist further, could you please advise:

        1) Are you accessing the same GroupWise account on both Windows 2000 and 9x?

        2) Do you have the same version of the GroupWise client installed on both machines? What version is it? (Version, Date and Language)

        3) When you say Windows 9x, do you mean 95 or 98?

        4) Do you know if you are actually obtaining the appropriate address book entry on 9x? Perhaps you could simplify that part of your code which locates the user to be something like:

        for each objAddressBookEntry in AddressBook
           if objAddressBookEntry.UserID = usr then
              MsgBox objAddressBookEntry.Title
           end if

        As your code stands at the moment, you can’t actually tell if you are first obtaining an address book entry.

        Advansys Support

      Viewing 1 replies (of 1 total)
      • You must be logged in to reply to this topic.