Hallo zusammen,
so, dann werde ich es einmal versuchen.
Zunächst einmal: Agenten in der mail.box oder anderen Posteingangskörbchen sind NICHT möglich, da aus verständlichen Gründen der Router die Kontrolle über diese DBs hat.
Nun zum eigentlichen Problem:
Eine MailInDB kann ja auch über eine Gruppe adressiert werden.
Du mußt also die generierten Adressen in die für die DB zuständige Gruppe eintragen.
Problem dabei ist, daß eine Gruppe ja nicht unendlich viele Einträge aufnehmen kann.
Doch auch das kann man übergehen. Das Script dient dazu, Personen zu Gruppen hinzuzufügen und zwar dergestalt, daß bei erreichen einer Grenze automatisch ein neues gruppendokument angelegt wird. Diese Untergruppen werden wiederum als Gruppe in deine Hauptgruppe eingetragen. Du erhälst dann verschachtelte Gruppen.
Jetzt musst du nur noch dafür sorgen, daß Domino die in den Gruppen enthaltenen Pseudoadressen erkennt und die Mails an die MailInDB routet.
Ist zwar alles nur Theorie, aber von Ansatz sollte das funktionieren.
Kannst mir ja mal etws über euer System erzählen; warum 1Mio Pseudoadressen ??
'============================
' 1999, Ulrich Krause, Schöller Holding
'============================
' This sub adds a user to a group, but does it in a way
' that allows very large groups. Because Notes stores group members in
' text lists, and text lists can have only 15K bytes in them, simple groups
' are limited to around 1000 members. To have more members than that,
' the group must be broken into a number of other groups, which are
' then referenced as members of a master group.
'
' This sub handles all of that complexity. The group name passed in
' is the name of the master group, and this sub will handle the creation
' and populating of the sub-groups as needed. The sub-groups will
' be named by appending numbers to the master group name, and will
' have slightly more than 10K bytes of members in them.
Sub AddUserToGroup( Byval fullname As String, Byval group As String, nab As NotesDatabase )
' Load up our static groups view
Dim groups As NotesView
Set groups = nab.GetView( "Groups" )
Dim groupMainDoc As NotesDocument
Set groupMainDoc = groups.GetDocumentByKey( group )
Dim saveGroupMainDoc As Integer
saveGroupMainDoc = False
If groupMainDoc Is Nothing Then
Set groupMainDoc = New NotesDocument( nab )
groupMainDoc.Form = "Group"
groupMainDoc.ListName = group
groupMainDoc.Members = group & " 1"
groupMainDoc.GroupType = "0"
Call groupMainDoc.ComputeWithForm( False, False )
saveGroupMainDoc = True
End If
Dim groupMainMembers As NotesItem
Set groupMainMembers = groupMainDoc.GetFirstItem( "Members" )
' Find last subgroup entry in the members list
Dim subGroup As String
subGroup = ""
Forall s In groupMainMembers.Values
If Left$( s, Len( group ) ) = group Then
subGroup = s
End If
End Forall
' Open the subgroup, and keep trying until we find one with room
Dim groupNum As Integer
groupNum = 0
' Which subgroup was the last one
If subGroup <> "" Then
groupNum = Val( Right( subGroup, Len( subGroup ) - Len( group ) - 1 ) )
Else
groupNum = 1
subGroup = group & " 1"
End If
Dim groupSubDoc As NotesDocument
Do
Set groupSubDoc = groups.GetDocumentByKey( subGroup )
If groupSubDoc Is Nothing Then
' Create a new subgroup document
Set groupSubDoc = New NotesDocument( nab )
groupSubDoc.Form = "Group"
groupSubDoc.ListName = subGroup
groupSubDoc.GroupType = "0"
Call groupSubDoc.ComputeWithForm( False, False )
' Add it to the main group if needed
If Not groupMainMembers.Contains( subGroup ) Then
Call groupMainMembers.AppendToTextList( subGroup )
saveGroupMainDoc = True
End If
End If
' See if the subgroup still has room, if so, we've found our subgroup
Dim groupSubMembers As NotesItem
Set groupSubMembers = groupSubDoc.GetFirstItem( "Members" )
If groupSubMembers.ValueLength < 10000 Then
Exit Do
End If
' If no room, try the next one
groupNum = groupNum + 1
subGroup = group & " " & groupNum
Loop
' Finally: add the user to the subgroup
Call groupSubMembers.AppendToTextList( fullname )
Call groupSubDoc.Save( False, True )
If saveGroupMainDoc Then
Call groupMainDoc.Save( False, True )
End If
End Sub
Thema: E-Mails an Adressen die nicht im Adressbuch stehen (Gelesen 2767 mal)