Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: gulp am 06.06.03 - 11:02:03

Titel: Anzahl der Mailempfänger
Beitrag von: gulp am 06.06.03 - 11:02:03

Hallo,

ich habe ein Problem. Ich verschicke ein mail mit Mailsend. Die Empfänger kann der Anwender selbst eingeben (d.h. es sind sowohl Personen als auch Gruppen möglich). Nach dem Senden würde ich gerne wissen, wieviele Personen das Mail bekommen haben. Kann man das irgendwie herausfinden?
Ausprogrammieren scheint mir sehr aufwändig, da es ja Gruppen in verschiedenen Adressbüchern gibt, verschachtelte Gruppen, ....

Danke
gulp

Titel: Re:Anzahl der Mailempfänger
Beitrag von: arcon am 06.06.03 - 12:17:17

Habe da mal was gebaut, diese Funktion gibt eine Liste zurück mit den Mitgliedern die in einem Feld eingegeben wurden auch die die in Gruppen enthalten sind. Es werden die Personen die Doppelt enthalten sind gefiltert.

Aufruf erfolgt so:

str_Teilnehmer = Fulltrim(GetMember(source.Document.Teilnehmer))

Titel: Re:Anzahl der Mailempfänger
Beitrag von: gulp am 06.06.03 - 17:49:19

Hallo Arcon,

das hat mir super weitergeholfen. Ich habe es mir einfacher gemacht, da ich ja nur die Anzahl gebraucht habe (doppelte werden bei mir aber doppelt mitgezählt).

Mein Code schaut so aus:

Code

Function GetMember(Gruppe As Variant, view As NotesView) As Integer
   
   GetMember = 0
   
   Dim doc As NotesDocument
   
   ' das eingelesene Array einzeln auf Gruppe oder Keine Gruppe untersuchen    
   If Isarray(Gruppe) Then
      Forall empfaenger In Gruppe      
      ' wenn es eine KEINE Gruppe ist, dann wird das Mitglied an die Liste angehängt
         Set doc = view.GetDocumentByKey(empfaenger,True)
         If  doc Is Nothing Then
            GetMember = GetMember + 1
            
      ' wenn es EINE Gruppe ist, dann wird diese aufgelöst
         Else
            GetMember = GetMember + GetMember(doc.members, view)
         End If
      End Forall
   Else
      Set doc = view.GetDocumentByKey(Gruppe,True)
      GetMember = GetMember + GetMember(doc.members, view)
   End If
End Function

Nochmals herzlichen Dank für die gute Idee
Sabine