Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Fbaum am 13.01.03 - 06:54:07

Titel: HILFE !! Emailbenachritigung per Lotus Script
Beitrag von: Fbaum am 13.01.03 - 06:54:07

Hallo miteinander,
ich habe einen Button in einer DB die ein Email an die Personen schicken soll, die im SENDTO Feld drin sind. Das funktioniert auch wunderbar. Nur wenn ich in das Feld eine Gruppe eintrage wird kein Email versendet. Die Adressen kommen ganz normal aus dem Adressbuch auf dem Server.
Hier noch das Script:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim feedback As  New NotesDatabase( "", "" )   
   Dim uidoc As NotesUIDocument
   Dim doc  As NotesDocument
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set feedback = New NotesDatabase("SERVER", "DATENBANK.nsf")
   Call uidoc.FieldSetText ("Form_Status","92 Reviewer Notified")
   Dim session As New NotesSession   
   Dim user As String
   Dim Reader As Variant
   user = session.UserName   
   doc.ReviewAdmin=User
   Reader=doc.GetItemValue("SendTo")
   ReviewReaders=Reader
   doc.ReviewReaders=ReviewReaders   
   
   CopyReader=doc.GetItemValue("CopyTo")
   ReviewCopy=CopyReader
   doc.ReviewCopy=ReviewCopy
   
   Call doc.Save(False,True )   
   Call doc.CopyToDatabase( feedback )
   
   Dim db As NotesDatabase
   
   Set db = session.CurrentDatabase
   Dim rtitem As NotesRichTextItem   
   Set rtitem = New NotesRichTextItem( doc,  "Body" )
   Call rtitem.AppendDocLink( feedback , db.Title)
   
   doc.Form = "Memo"
   doc.Subject = "Hier steht die Bezeichnung...."
   
   Call doc.Send( False )
   Call doc.Save(False,True )
   
   Call uidoc.FieldSetText ("Form_Status","92 Reviewers Notified")
      
   Call doc.Save(False,True )   
   Call uidoc.Close
End Sub

Kann mir jemand helfen an was das liegt, daß keine Emails an die Personen der eingetragenen Gruppe geschickt werden?

Danke schon mal für Eure Hilfe.

Gruß
FBaum

Titel: Re:HILFE !! Emailbenachritigung per Lotus Script
Beitrag von: Till_21 am 13.01.03 - 09:14:58

der server kann scheinbar die gruppe nicht aufloesen,
was steht in deiner arbeitsumgebung unter Servers/Domino directory server ?

gruss

Titel: Re:HILFE !! Emailbenachritigung per Lotus Script
Beitrag von: Fbaum am 13.01.03 - 09:17:50

Also da steht eigentlich mein Server drin.

Titel: Re:HILFE !! Emailbenachritigung per Lotus Script
Beitrag von: doliman am 17.01.03 - 22:43:19

Hi,

bei mir Funktioniert folgendes Script an die versteckte $Admin Gruppe in unserem NAB:


Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "DerGruppenname"
doc.Subject = "Hier das Thema"
Call doc.Send( False )