Domino 9 und frühere Versionen > ND8: Entwicklung

Wiedervorlage per Agent

<< < (3/3)

manboo8000:
ich merke (leider), dass ich ohne ein Grundlagenseminar nicht wirklich weiter komme.

Mein Code sieht jetzt so aus, funktioniert aber nicht (Fehler in Zeile 15, Objektvariable nicht gesetzt).

Sub Initialize
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim newsletter As NotesNewsLetter
   Dim doc As NotesDocument
   Dim vWiedervorlage As NotesDateTime
   Dim search As String
   Dim empfaenger As String
   
   On Error GoTo ErrorHandler   
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set vWiedervorlage = New NotesDateTime(doc.Wiedervorlage(0))
   
   search = ((Form = "Fortbildung") & (month(vWiedervorlage)=month(today)) & (year(vWiedervorlage)=year(today))) ' Name der Form hier setzen!
   Set dc = db.Search(search, vWiedervorlage, 0)
   
   If (dc.Count > 0) Then
      Set newsletter = New NotesNewsLetter(dc)
      Set doc = newsletter.FormatMsgWithDoclinks(db)
      Call doc.Replaceitemvalue("Form", "Memo")
      Call doc.Replaceitemvalue("From", session.Username ) ' test only
      Call doc.Replaceitemvalue("SendTo", session.Username ) ' test only
      Call doc.Replaceitemvalue("Subject", "Wiedervorlage Fortbildung(en)")
      Call doc.Send(False)
   End If
   
ErrorHandler:
   
   MsgBox "Wiedervorlage --> Fehler in Zeile: " & Erl & "  (Error" & Str(Err) & ": " & Error$ & ")"
   Exit Sub
   
Ende:   
End Sub

rambrand:
Hallo,


--- Code: ---Set vWiedervorlage = New NotesDateTime(doc.Wiedervorlage(0))
--- Ende Code ---

Wo genau nochmal weißt Du Doc ein Dokument zu? Ist der Code wirklich vollständig?
Die Zeilen passen irgendwie nicht zu der Zeilenangabe in der Fehlermeldung.

Bye,
Markus

Andrew Harder:
Kommentiere mal die folgende Zeile aus, oder lösche sie;

--- Code: ---Set vWiedervorlage = New NotesDateTime(doc.Wiedervorlage(0))
--- Ende Code ---

Ausserdem nicht

--- Code: --- search = ((Form = "Fortbildung") & (month(vWiedervorlage)=month(today)) & (year(vWiedervorlage)=year(today))) ' Name der Form hier setzen!
--- Ende Code ---
sondern

--- Code: --- search = {Form = "Fortbildung" & @month(vWiedervorlage)=@month(@today) & @year(vWiedervorlage)=@year(@today)} ' Name der Form hier setzen!
--- Ende Code ---

Das sollte Dich schon mal einen Schritt weiter bringen.

Navigation

[0] Themen-Index

[*] Vorherige Sete