Addin ist fertig
/****************************************************************************
PROGRAM: nadminplus
AUTHOR: Ulrich "eknori" Krause, 12/2007
FILE: nadminplus.c
PURPOSE: Lotus Domino Server add-in task to extend Adminp
SYNTAX: (at the Lotus Domino Server console) > load nadminplus
DESCRIPTION:
This is a Lotus Domino Server add-in task.
That works with Adminp
- to delete persons from an existing group
- ... more to come
via a custom admin process.
****************************************************************************/
#include "stdafx.h"
/* Lotus C API for Domino
and Notes include files */
#include <global.h>
#include <addin.h>
#include <nsfdb.h>
#include <nsfnote.h>
#include <osmisc.h>
#include <osmem.h>
#include <ods.h>
#include <ostime.h>
#include <mq.h>
#include <adminp.h>
#include <nif.h>
#include <miscerr.h>
#define OUR_PROCESS "AdminPlus"
#define STRING_LENGTH 256
/* Function prototypes */
STATUS LNPUBLIC ProcessRequests
(AdminpAddInMessage* msg);
STATUS LNPUBLIC AddInMain (HMODULE hModule, int argc, char *argv[])
{ ...
Jetzt noch schnell die nötige Klasse zum Erstellen des AdminP(lus) Requests bauen ...
Geschafft ... fertig
Dim noteid As Variant
Dim members(1) As String
members(0) = "Hein Bloed/Maus/de"
Dim AdminPP As New NotesAdministrationProcessPlus ("Maus/WDR/DE")
noteid = AdminPP.RemoveGroupMembers ("TEST", members)
Msgbox noteid
erstellt den Request in der admin4.nsf. Sobald der AdminP Process einen neuen Request findet, den er selber nicht abarbeiten kann ( weil er die Funktion nicht kennt ) übergibt er den Request an das adminplus addin, welches dann die Arbeit macht ...