Probleme mit Notes NewsLetter

[RalfW]

Hallo Leute,

ich habe folgendes Problem mit der newsletter Methode
FormatDocument.

Was will ich tun: per agent in Notes 5.08
Aus DB1 in DB2 gehen, dort eine Dok.-Coll erstellen und dann die Dok. per newsletter formatdocument-methode "binden" und dann per send an die Mailbox senden.

In einer "Wurschtel-Umgebung" funktioniert alles wunderbar. Versuche ich das ganze aber "life" auf die DB2 (eine DB in Produktivbetrieb) dann macht der Agent ansich zwar alles richtig, aber bei formatdocument bleibt dann das Body-Item leer.

Woran kann das nur liegen.
Es liegt jedenfalls nicht an:
dass ich keine Vorgabeansicht habe
dass die Maskenoption "kopieren/weiterleiten.... deaktivieren" gesetzt wäre
dass ich nur Autor auf der DB2 bin

Also, was kann es nur sein

Vielen
Dank und Grüße
Ralfw

[Rob Green]

gemäß Help ist Dein Code sehr ähnlich oder?

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Dim j As Integer
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "botany", 3 )
Set newsletter = New NotesNewsletter( collection )
' for every document in the newsletter's collection
For j = 1 To collection.Count
  ' create a rendering of the original document
  Set doc = newsletter.FormatDocument( db, j )
  ' copy subject of original document into new document
  doc.Subject = collection.GetNthDocument(j).Subject(0)
  ' send the new document
  Call doc.Send( False, "Susanna Tallan" )
Next

[RalfW]

Ja, so ähnlich wie aus der Hilfe sieht das schon aus, außer dass es natürlich in einem anderen Kontext steht und dass ich jetzt erst mal die Schleife rausgelassen habe. Da es ja mit einem "Wurtschtel-DB-System" klappt, muss sich das Problem wohl irgendwo in dieser Produktiv-DB befinden.

Also, hier mein Versuch:
Sub start
   'XXXX
   'Noch Error + Log
   'XXXX
   
   Dim session As  NotesSession   
   Dim DBProfilDoc As NotesDocument   
   Dim server As String
   Dim db As NotesDataBase
   Dim doc As NotesDocument ' neues Doc in V-DB
   Dim DBParamFile As String
   Dim LetzteABNr As String
   
    'DIM Z50
   Dim db1As NotesDataBase
   Dim view1 As NotesView   
   Dim doc1 As NotesDocument
   Dim doc2  As NotesDocument 'Newsletter
   Dim col As NotesDocumentCollection
   'Dim j, coladddoc As Integer
   Dim newsletter As NotesNewsLetter

   Set session = New NotesSession      
   Set db = session.CurrentDatabase      
   Set DBProfilDoc = db.GetProfileDocument("DBP")
   
   If Not DBProfilDoc Is Nothing Then 'XXX Error
      Server = DBProfilDoc.DBZ50_Server(0)
      LetzteABNr = DBProfilDoc.AebrNr(0)
   End If   
   
   Set db1= New NotesDatabase("" , "")
   Call db1.Open( server, DBParamFile )            ' DB Z50
   If Not db1.IsOpen Then 'Error
      Print  "Kacke"
      Exit Sub
   End If
   
   Set view1 = db1.getview("Änderungsbriefe")
   Set doc1 = view1.GetDocumentByKey(LetzteABNr)    
'das, wenn ein neues Dok. hinzugekommen ist
   Set doc1 = view1.GetNExtDocument(doc1)
   Set col = view1.GetAllDocumentsByKey(LetzteABNr)
   
   Set newsletter = New NotesNewsletter( col )
   Set doc2 = newsletter.FormatDocument(db,1)
   'doc2.form = "memo"   
   Call doc2.Send( False, "Ralf Wingert")
   
End Sub

[Rob Green]

hm..Du liest die letzte Abrechnungsnummer aus und setzt dann einmal ein Doc per GetKey und nochmals eines per GetNextdocument.

Da aber die Abrechnungsnummer wohl immer nur einmal vorhanen ist, ergibt getnext mE "nothing" => doc1 = leer

dazu die Help:
Beispiel
Given a document, finds the document immediately following it in a collection.
Defined in
NotesDocumentCollection
Syntax
Set notesDocument = notesDocumentCollection.GetNextDocument( notesDocument )
Parameter
notesDocument
Any document in the collection. If you specify Nothing, this method will generate an error.
Return value
notesDocument
The document following the notesDocument parameter in the collection. If there is no next document, returns Nothing.

Und dieser Code funktioniert in der Testumgebung? *kratz*

[RalfW]

Also, das mit dem doc1 zweimal ist schon iO. Ich gehe ja mit dem ersten ..bykey in eine ansicht, nicht in eine coll. er hat also dann das letzte bekannte doc. gefunden und soll mit getnext gucken, ob in der ansicht noch ein weiteres (oder noch mehr) neue doc. sind. Nur wenn ein neues da ist geht alles andere weiter, daher diese zeile. Die hatte ich blos vergessen rauszuschmeißen, wei zB die Schlleife etc., um mich ganz auf das newsletterproblem konzentrieren zu können.
Und der newsletter braucht ja die Col. und auch die hab ich, nur um irgendwas zu haben, erstmal mit einem doc aus der letzetn Abnr gemacht (nicht x neue aus der schleife).
Die col wird auch im debugger angezeigt. genauso wie das doc2, aber dann kriegt er es nich ins bodyfeld vom objekt newsletter. Liegt es vielleicht daran, dass ich das dok aus der db1 von einem anderen Server hole ? das habe ich noch nicht gecheckt. kann aber ja eigentlich nicht sein, weil das Objekt ja nun schlicht und einfach da ist.
Also weiterhin *schmoll
Schon mal vielen Dank für deine Mühen
Gruß
Ralf

[tabama]

Hallo,
auch wenn die Frage schon älter ist.

Habe seit längeren so eine Funktion im Einsatz. Hat auch immer funktioniert. Nun wurde unser Server von 4.x auf 6.x upgedatet. Plötzlich habe ich das gleiche Problem.

@RalfW: Haben Sie Ihr Problem lösen können??