Morgen liebes Notes Forum User
ich hab da wieder ma ein Prob wo ich nicht so ganz hinter steige.
Ich habe ein Hauptdokument. Wenn ich dann auf die Aktion "Neuer Beitrag" klicke wird wie folgt ein Antwortdokument erstellt und geöffnet.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim database As NotesDatabase
Dim uidocProblem As NotesUIDocument
Dim documentProblem As NotesDocument
Dim documentResponse As NotesDocument
Set uidocProblem = workspace.CurrentDocument
Set documentProblem = uidocProblem.Document
Set database = session.CurrentDatabase
Set documentResponse = New NotesDocument( database )
Call documentResponse.MakeResponse( documentProblem )
documentResponse.Form = "frmBeitrag"
documentResponse.UnlockFlag = "1"
Call workspace.EditDocument( True, documentResponse )
End Sub
Beim speichern des Antwortdokumentes sollen nun unterschiedliche Aktionen durchgeführt werden. Unter anderem soll eine eMail verschickt werden, wenn das Dokument ein neues Dokument ist. Dafür habe ich den entsprechenden Code in die QuerySave Methode des Antowrtdokumentes geschrieben.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim database As NotesDatabase
Dim uncachedProfileDoc As New UncachedProfile( "UncachedProfileDocument" )
Dim parentDocument As NotesDocument
Dim responseDocument As NotesDocument
Dim mail As NotesDocument
Dim subject As NotesItem
Dim sendTo As NotesItem
Dim body As NotesRichTextItem
Dim strSubject As String
Dim strUser As String
Dim strSupportGroup As String
Dim rtfParentHistory As NotesRichTextItem
Set database = session.CurrentDatabase
Set responseDocument = Source.Document
Set parentDocument = database.GetDocumentByUNID( responseDocument.ParentDocumentUNID )
If Source.IsNewDoc = True Then
Call responseDocument.ReplaceItemValue( "UnlockFlag", "1" )
Set mail = New NotesDocument( database )
strSubject = "Neuer Beitrag " & Source.FieldGetText( "Briefdescription" ) & " zu Problem " & parentDocument.GetItemValue( "Subject" )
Set subject = New NotesItem( mail, "Subject", strSubject )
strSupportGroup = parentDocument.GetItemValue( "PickSuppourtgroup" )
strUser = uncachedProfileDoc.GetUserProfileEntry( "SupportgroupSave" )
End If
Call AddHistory( 1, Source.FieldGetText( "Briefdescription" ), responseDocument.User(0), parentDocument )
If responseDocument.CheckboxSolution(0) = True Then
Call parentDocument.ReplaceItemValue( "IsSolved", "1" )
Call parentDocument.Save( True, False )
End If
Call AddHistory( 2, parentDocument.GetItemValue( "Subject" ), responseDocument.User(0), parentDocument )
End Sub
Aber irgendwie geht der liebe Herr Notes nicht in den Abschnitt nach If Source.IsNewDoc Then ... obwohl es ein neues Dokument ist. Ich bin ???
Komischer weise funktionier der Debugger auch nicht, heisst obwohl der an ist geht er nicht in den Quelltext rein.
Danke für Eure wie immer kompetente Hilfe bereits im Vorraus
Mfg
Sebastian