O.K. - hier der gesamte Code, er wird in einer Aktion aufgerufen.
'Serienbrief: Optionen und Vorlage
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim session As New NotesSession
Dim coll As NotesDocumentCollection
Dim TemplateDb As NotesDatabase
Dim TemplateDoc As NotesDocument
Dim SerialDoc As NotesDocument
Dim SerialUIDoc As NotesUIDocument
Dim MailingDb As NotesDatabase
Const PICK_VIEW = "LookupTemplatesSerial"
Const PICK_TITLE = "Dokumentvorlagen"
Const PICK_PROMPT = "Wählen Sie eine Dokumentvorlage für diese Seriensendung aus..."
Const DLG_OPT_NAME = "dlgMailingOptions"
Const DLG_OPT_TITLE = "Mailing: Optionen"
Set db = session.CurrentDatabase
Set TemplateDb = session.GetDatabase( db.Server, "b_templates.nsf", False)
' ### Serienbrief: Optionen ###
Dim DlgDoc As NotesDocument
Set DlgDoc = db.CreateDocument
If ws.Dialogbox(DLG_OPT_NAME, True, True, False, False, False, False, DLG_OPT_TITLE, DlgDoc, True, False) Then
Print "Option: Adressauswahl " & DlgDoc.SerialBase(0)
Print "Option: In Adresse protokollieren: " & DlgDoc.SerialLogging(0)
' hier müssen dann FLAGS gesetzt werden....
Else
Exit Sub
End If
DlgDoc.Remove( True )
' ### Serienbrief: Vorlage ###
Set coll = ws.PickListCollection( PICKLIST_CUSTOM, False, db.Server, TemplateDb.FilePath, PICK_VIEW, PICK_TITLE, PICK_PROMPT)
If coll.Count = 1 Then
Set TemplateDoc = coll.GetFirstDocument
Set SerialDoc = New NotesDocument( db )
Call TemplateDoc.CopyAllItems( SerialDoc , True )
SerialDoc.form = "SerialMemo"
Call SerialDoc.Save( True, True )
Set SerialUIDoc = ws.EditDocument(True, SerialDoc, False)
End If
Andy
