TID101038 (gw4dmc10) GroupWise 4.1 Appointment List

From Developer Community

NOVELL TECHNICAL INFORMATION DOCUMENT

TITLE: GroupWise 4.1 Appointment List AUTHOR: RL DOCUMENT ID: TID101038 DOCUMENT REVISION: A DATE: 11/14/96 2:49 PM ALERT STATUS: Yellow INFORMATION TYPE: Issue README FOR: GW4DMC10.EXE NOVELL PRODUCT CLASS:

NetWare API

NOVELL PRODUCT and VERSION:

NetWare SDK 1.0e

CATEGORY:

GroupWare

ABSTRACT:

Getting a list of Appointments from GroupWise datastore.

First you must have the GroupWise 4.1 client loaded. Then run the macro included with this TID to view the list which pops up consecutive message boxs to display each appointment. Information can be extracted from GroupWise without displaying any dialogs.

Included in the detailed descriptions is the macro text. Included as an attachment is a macro that lists the appointments.

DETAILED DESCRIPTION

Problem: How do I get a list of appointments from GroupWise? What tokens can be used to do this?

Answer: The following Macro text will display how many appointment you have in GroupWise from today. This macro uses the Filter commands to get access to the appointment list.

//Beginning of Macro text. Application(A1;"WPOffice";Default!;"US")

hFilter := FilterCreate (FilterType:CALENDAR!) FilterSetItemType (hFilter;Appointment!;1) FilterSetAttribute( hFilter; Accepted!; Dontcare!) FilterSetDateRelative( hFilter; BeginDateTime!; Today!; 0; EndOfYear!; 0) UserName := EnvUserID() hFolderList := FolderListCreate (Contents:ALL!; UserID:UserName) hItemList := ItemListCreate (UserName;hFilter;hFolderList) nCount := ItemListGetCount (hItemList) CountStr := NUMSTR( nCount ) MessageBox(Status; "Message"; CountStr; Style:OK!)

if (nCount <> 0) CALL (ShowDlg@) for (x;0;x MsgID := ItemListGetItem (hItemList;x) if (MsgID <> "") MsgSubject := ItemGetText (MsgID; 9) MsgBegin:= ItemGetDate( MsgID; BeginDateTime!;MAPIDate! ) DialogDisplay("TaskList";1) DlgRes := MacroDialogResult ENDIF ENDFOR FilterDelete (hFilter) ItemListDelete (hItemList) FolderListDelete (hFolderList) DialogDestroy("TaskList") ENDIF QUIT

Label (ShowDlg@) DialogDefine("TaskList";50;50;250;140;1+2+8+16+512;"AppointmentList") DialogAddText("TaskList"; " Date "; 5; 30; 40; 15; Left!; " Appt Date " ) DialogAddEditBox("TaskList"; " ApptDate"; 50; 30; 100; 15; Left!; MsgBegin; 1000 ) DialogAddText("TaskList"; " MsgID "; 5; 50; 40; 15; Left!; " MessageID" ) DialogAddEditBox("TaskList"; " MessageID"; 50; 50; 100; 15; Left!; MsgID; 1000 ) DialogAddText("TaskList"; " Subject "; 5; 75; 40; 15; Left!; " Appt Subject" ) DialogAddEditBox("TaskList";" Appt Subject";50;75;160;15;Center!;MsgSubject; 1000) Return

DISCLAIMER THE ORIGIN OF THIS INFORMATION MAY BE INTERNAL OR EXTERNAL TO NOVELL. NOVELL MAKES EVERY EFFORT WITHIN ITS MEANS TO VERIFY THIS INFORMATION. HOWEVER, THE INFORMATION PROVIDED IN THIS DOCUMENT IS FOR YOUR INFORMATION ONLY. NOVELL MAKES NO EXPLICIT OR IMPLIED CLAIMS TO THE VALIDITY OF THIS INFORMATION.

Self-Extracting File Name: GW4DMC10.EXE

Files Included: Size Date Time

GW4DMC10.TXT (this file) APTLIST.WCM 1628 11-14-96 10:08 AM

Installation Instructions:

GW4DMC10.EXE can be found on: The DeveloperNet Support forum on CompuServe The DeveloperNet Support World Wide Web site (devsup.novell.com) The DeveloperNet Support Bulletin Board

Any trademarks referenced in this document are the property of their respective owners. Consult your product manuals for complete trademark information.

[edit]