Autor Thema: newsletter Funktion klappt nicht  (Gelesen 6860 mal)

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
newsletter Funktion klappt nicht
« am: 15.03.04 - 11:42:56 »
Hallo,

ich versuche die Newsletter Funktion anzuwenden. Habe mal das Beispiel aus der Hilfe genommen:

Sub Initialize
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim dc As NotesDocumentCollection
     Dim news As NotesNewsletter
     Dim doc As NotesDocument
     Set db = session.CurrentDatabase
     Call db.UpdateFTIndex(True)
     Set dc = db.FTSearch("test", 2)
     Set news = New NotesNewsletter(dc)
     news.SubjectItemName = "Subject"
     news.DoSubject = True
     Set doc = news.FormatMsgWithDoclinks(db)
     Call doc.Send(True, "Marketing")
End Sub

Ichhabe eine Mail mit dem Body "text" Also müsste er mind. 1 Dokument finden.
Nach Ausführen kommt die Meldung, "Spezielles Datenbankobjekt nicht gefunden. Verweis auf meine Maildb"
Was mach ich falsch?
« Letzte Änderung: 15.03.04 - 11:54:14 von Selin »
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #1 am: 15.03.04 - 12:42:27 »
Laß mal den Debugger mitlaufen und schau, wo genau die Meldung auftritt.

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #2 am: 15.03.04 - 13:39:59 »
ab hier:

Set doc = news.FormatMsgWithDoclinks(db)
Call doc.Send(True, "Marketing")
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #3 am: 15.03.04 - 14:12:28 »
Hi,

vermutlich liegts daran, daß Du für das doc keine Form bestimmst, im doc.Send aber angibst, daß die Form im Doc gespeichert werden soll.

Mach mal noch nen doc.Form = "Memo" vor das Send.

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #4 am: 15.03.04 - 15:40:44 »
hmm, wnen ich das so mache kommt die Meldung "Object variable not set"

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim news As NotesNewsletter
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Call db.UpdateFTIndex(True)
   Set dc = db.FTSearch("test", 1)
   Set news = New NotesNewsletter(dc)
   news.SubjectItemName = "Subject"
   news.DoSubject = True
   doc.Form = "Memo"
   Set doc = news.FormatMsgWithDoclinks(db)
   Call doc.Send(True, "name")
End Sub
« Letzte Änderung: 23.10.09 - 10:27:18 von Selin »
Windows XP
Notes 6.5

klaussal

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #5 am: 15.03.04 - 15:48:51 »
aus der designer-hilfe:

Sub Initialize
  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
  Dim originalDoc As NotesDocument    
  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedFTSearch( "botany", 0 )
  Set newsletter = New NotesNewsletter( collection )
  newsletter.DoScore = True
  newsletter.DoSubject = True
  newsletter.SubjectItemName = "Topic"
  Set doc = newsletter.FormatMsgWithDoclinks( db )
  doc.Subject = "New botany documents from this week"
  doc.Form = "Memo"
  Call doc.Send( False, "Susanna Tallan" )
  ' mark all documents in newsletter's collection as
  ' processed, so that they aren't included in the
  ' newsletter next time
  For j = 1 To collection.Count
    Set originalDoc = collection.GetNthDocument( j )
    Call session.UpdateProcessedDoc( originalDoc )
  Next
End Sub

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #6 am: 15.03.04 - 15:59:35 »
auch hier bekomm ich die Meldung "Spezielles Datenbankobjekt nicht gefunden. Verweis auf meine Maildb"
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #7 am: 15.03.04 - 16:04:29 »
hmm, wnen ich das so mache kommt die Meldung "Object variable not set"

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim news As NotesNewsletter
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Call db.UpdateFTIndex(True)
   Set dc = db.FTSearch("test", 1)
   Set news = New NotesNewsletter(dc)
   news.SubjectItemName = "Subject"
   news.DoSubject = True
   doc.Form = "Memo"
   Set doc = news.FormatMsgWithDoclinks(db)
   Call doc.Send(True, "Alev Oezer/FRA/DIEHL-AVIONIK")
End Sub

Also das doc.Form = "Memo" muß hinter das Set doc=...
Du hast ja sonst noch gar kein doc, wie soll da Form gesetzt werden.

Ist denn in der DocCollection überhaupt was drin oder ist die evtl. leer ?

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #8 am: 15.03.04 - 16:10:28 »
wenn ich es danach setze kommt die Meldung, die ich am Anfang hatte
in der NotesDocCollection wird ein Dokument gefunden
Windows XP
Notes 6.5

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re:newsletter Funktion klappt nicht
« Antwort #9 am: 15.03.04 - 16:17:53 »
Gibt es in Deiner Datenbank eine Vorgabeansicht ? MailSend macht doch immer Ärger, wenn keine Vorgabeansicht definiert wurde ...

Bernhard

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #10 am: 15.03.04 - 16:28:33 »
nee, habe keine Vorgabeansicht oder Vorgabemaske
Windows XP
Notes 6.5

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re:newsletter Funktion klappt nicht
« Antwort #11 am: 15.03.04 - 16:42:55 »
Na, dann werden wir damit den Fehler ja schon gefunden haben. Ohne Vorgabeansicht kein Send.

Bernhard

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #12 am: 16.03.04 - 08:52:29 »
und wie Du Recht hast  :D

Genau det wars.
Oh cool. *freu

Dankeschön
Windows XP
Notes 6.5

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #13 am: 16.03.04 - 09:01:06 »
kann ich das ganze in einer Dialogbox auch aufrufen?
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #14 am: 16.03.04 - 09:54:50 »
Du könntest auf jeden Fall über eine Dialogbox eine Auswahl treffen und somit eine DocCollection erzeugen.

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #15 am: 16.03.04 - 09:56:08 »
ich weiß nicht, wie ich es einbauen soll.
Ich habe versucht es in meinen Newsletter Script einzufügen aber es hat nicht funktioniert. An welcher Stelle muss ich das einfügen, und wie muss es aussehen?

Bitte um Hilfe
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #16 am: 16.03.04 - 10:07:04 »
Sorry, ich war im falschen Film. Dialogbox wäre verkehrt, mit ner PickListCollection könntest Du aber eine DocCollection erzeugen.

Was hast Du denn überhaupt vor ?

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #17 am: 16.03.04 - 10:13:57 »
es geht darum bestimmte Leute zu informieren, wenn eine Mail in eine geimeinsam benutzten Mailbox reinkommt.
Allerdings soll die Benachrichtigung nicht per Mail erfolgen sondern über ein Popup, Dialogbox o.ä.
wo bestimmte Dinge drin stehen, wie Subject Absender o.ä.
Windows XP
Notes 6.5

Driri

  • Gast
Re:newsletter Funktion klappt nicht
« Antwort #18 am: 16.03.04 - 10:18:46 »
Ahso, dann hatte ich das eh mißverstanden. Ich dachte, Du wolltest Dokumente über ein Dialogfenster zur Auswahl haben, um so eine DocCollection zu erstellen.

Aber wie willst Du denn die Dialogbox denn beim gewünschten Adressaten aufpoppen lassen ?

Offline Selin

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 532
  • Geschlecht: Weiblich
Re:newsletter Funktion klappt nicht
« Antwort #19 am: 16.03.04 - 10:43:46 »
ich wollte in die Standartschablone die Maske erstennen, die in der Dialogbox auftauchen soll und es bei allen aktualisieren
Windows XP
Notes 6.5

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz