"Infobrief-Zusammenfassung senden" - als LS ?

[Bruce Willis]

Hallo,

als eine der "Einfachen Aktionen" bei einem einfachen Agenten kann man "Infobrief-Zusammenfassung senden" auswählen, die dann per Email
eine Zusammenfassung mit Links zu den individuellen Dokumenten sendet.

Die Zusammenfassung sieht wie eine Tabelle aus und enthält Elemente der entsprechenden Ansicht wie beispielsweise eine einzeilige Beschreibung der Spalten "Datum", "Autor" und "Titel".

FRAGE:

Gibt's eine LotusScript Funktion o.ä., um solche Zusammenfassung zu erstellen und zu versenden?

Gruß
Leo

[koehlerbv]

In LotusScript ist das erheblich granularer aufgeteilt (methods, properties) und bietet somit viel mehr Möglichkeiten.

Bernhard

[Bruce Willis]

In LotusScript ist das erheblich granularer aufgeteilt (methods, properties) und bietet somit viel mehr Möglichkeiten.

D.h. man muss in LotusScript das selber basteln, was man in einem einfachen Agenten als fertige Lösung mit einem Klick auswählen kann.

Schade.

Danke für die schnelle Antwort, Bernhard.

Gruß
Leo

[koehlerbv]

Wieso "schade"? Die Einschränkungen des "Agents für Arme / Eilige" beschreibst Du ja im ersten Ansatz oben schon selber.

Bernhard

[Bruce Willis]

Wieso "schade"?

wie gesagt:

man muss in LotusScript das selber basteln, was man in einem einfachen Agenten als fertige Lösung mit einem Klick auswählen kann.

[Bruce Willis]

Hi,

anbei meine Ergebnisse...

Kann man die Infomail schöner formatieren?
Chr(9)) reicht nicht aus, da die Länge von Inhalten der Spalten sehr unterschiedlich sein kann...

Gruß
Leo

Sub Initialize()
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim message As NotesDocument
   Dim rtitem As variant
      
   Set db = session.currentdatabase
   Set view = db.GetView("LeoAnsicht")
   Set doc = view.GetFirstDocument
   Set message = New NotesDocument(db)
   Set rtitem = New NotesRichTextItem( Message, "Body" )
   
   Message.Form = "Memo"
   Message.Principal = "Bruce Willis/World"   
   Message.SendTo = "Leo/World"
   Message.Subject = "Hello World"   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 2)
      
   While Not doc Is Nothing   
      Call rtitem.AppendDocLink( doc, "" )
      Call rtitem.AppendText( " " + Left(doc.From(0),10) + Chr(9))
      Call rtitem.AppendText( Left(doc.SendTo(0),10) + Chr(9))
      Call rtitem.AppendText( Left(doc.Subject(0),20) + Chr(9))
      Call rtitem.AppendText(doc.DeliveredDate(0))
      Call rtitem.AddNewLine( 1)
      
      Set doc = view.GetNextDocument(doc)
   Wend
   
   Call rtitem.AppendText( "Best regards" )
   Call rtitem.AddNewLine( 1)
   Call Message.Send( False )
   
End Sub

[koehlerbv]

Klar, man kann die Ruler entsprechend setzen (NotesRichTextParagrahStyle class und "Kinder" davon).
Und dort wirst Du noch einiges mehr finden, was die simple Aktion Dir nicht bietet.

Bernhard

[Bruce Willis]

Danke, Bernhard.
Ich habe den Code entsprechend erweitert, aber die 3. und 4. Spalten der Infomail kommen trotzdem durcheinander.
Weißt Du, was man noch ändern muss?

Gruß
Leo

Sub Initialize()
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim message As NotesDocument
   Dim rtitem As Variant
   Dim pMailAddress As String
      
   Set db = session.currentdatabase
   Set view = db.GetView("LeoAnsicht")
   Set doc = view.GetFirstDocument
   Set message = New NotesDocument(db)
   Set rtitem = New NotesRichTextItem( Message, "Body" )
   
   Dim richStyle As NotesRichTextStyle         ' Leo Style
   Set richStyle = session.CreateRichTextStyle   ' Leo Style
   richstyle.NotesFont = 4                  ' Leo Style - "vorgabe feste breite"
   
   Dim rtpStyle As NotesRichTextParagraphStyle            ' Leo Align Left
   Set rtpStyle = session.CreateRichTextParagraphStyle      ' Leo Align Left
   rtpStyle.Alignment = ALIGN_LEFT                     ' Leo Align Left
   Dim pos As Long                     ' Leo Ruler
   pos = RULER_ONE_CENTIMETER * 7         ' Leo Ruler
   'Call rtpStyle.SetTab(pos, TAB_DECIMAL)   ' Leo Ruler
   Call rtpStyle.SetTab(pos, TAB_LEFT)      ' Leo Ruler
      
   Message.Form = "Memo"
   Message.Principal = pMailAddress   
   Message.Principal = "Bruce Willis/World"
   Message.SendTo = "Leo/World"
   Message.Subject = "Hello World"   
   Call rtitem.AppendStyle(richStyle)   ' Leo Style
   Call rtitem.AppendParagraphStyle(rtpStyle)   ' Leo Align Left
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 2)
      
   While Not doc Is Nothing   
      ' in Common Names konvertieren
      Dim nam As NotesName
      Set nam = session.Createname(doc.From(0))
      Dim nam1 As NotesName
      Set nam1 = session.Createname(doc.SendTo(0))
      
      Call rtitem.AppendDocLink( doc, "" )
      Call rtitem.AppendText( " " + Left( nam.common ,15))
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( Left( nam1.common ,15) )
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( Left(doc.Subject(0),30))
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( doc.DeliveredDate(0))
      Call rtitem.AddNewLine( 1)
      
      Set doc = view.GetNextDocument(doc)
   Wend
   
   Call rtitem.AppendText( "Best regards" )
   Call rtitem.AddNewLine( 1)
   Call Message.Send( False )
   
End Sub

[koehlerbv]

Wie wäre es mit dem Setzen eines zweiten und dritten Tabs?

Bernhard

[Bruce Willis]

Wie wäre es ...?

Bestimmt cool!
Aber wie?

So geht es anscheinend nicht:

   Dim rtpStyle As NotesRichTextParagraphStyle            ' Leo Align Left
   Set rtpStyle = session.CreateRichTextParagraphStyle      ' Leo Align Left
   'rtpStyle.Alignment = ALIGN_LEFT                     ' Leo Align Left
   Dim pos As Long
   Dim interval As Long
   pos = RULER_ONE_CENTIMETER
   interval = RULER_ONE_CENTIMETER * 5
   Call rtpStyle.SetTabs(6, pos, interval, TAB_LEFT)

   Message.Form = "Memo"
   Message.Principal = "Bruce Willis/World"
   Message.SendTo = "Leo/World"
   Message.Subject = "Hello World"   
   Call rtitem.AppendStyle(richStyle)   ' Leo Style
   Call rtitem.AppendParagraphStyle(rtpStyle)   ' Leo Align Left
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 2)
      
   While Not doc Is Nothing   
      ' in Common Names konvertieren
      Dim nam As NotesName
      Set nam = session.Createname(doc.From(0))
      Dim nam1 As NotesName
      Set nam1 = session.Createname(doc.SendTo(0))
      
      Call rtitem.AppendDocLink( doc, "" )
      Call rtitem.AppendText( " " + Left( nam.common ,13))
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( " " + Left( nam1.common ,18) )
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( Left(doc.Subject(0),22))
      Call rtitem.AddTab(1)
      Call rtitem.AppendText( doc.DeliveredDate(0))
      Call rtitem.AddNewLine( 1)

[koehlerbv]

Ach Leo ... Wie setzt Du Tabs händisch? Findest Du das in der DesignerHelp nicht wieder?

Bernhard

[Bruce Willis]

Ach Leo ...

Ach Bernhard... Sag schon, was und wo in meinem Code falsch ist oder fehlt...

Wie setzt Du Tabs händisch?

eh... verstehe die Frage nicht...

Findest Du das in der DesignerHelp nicht wieder?

Nein.
Ich habe dort mehrere englische Definitionen sowie Beispiele gefunden aber keine einzige Beschreibung bzw. Erklärung.

[Kadlec]

Evt. meint er mit händisch.....
Wenn Du nach einem Text einen Tab über die Tastatur setzt ist zwar der Abstand immer der gleiche
da Du ja aber längeren und kürzeren Text hast kommt es dann zum Versatz.
Du müsstest also die Stelle an der der nächste Text kommt fest vorgeben.

Tab1 = 0
Tab2 = 10
Tab3 = 20

etc.
Wäre jetzt so meine Überlegung.
Boris

P.S Hast Du mal mit TAB_DECIMAL probiert?

[Bruce Willis]

Hallo Boris,

Evt. meint er mit händisch.....

Danke für Deinen Tipp!

Hast Du mal mit TAB_DECIMAL probiert?

Nein, obwohl ich mit diesem LS Sch ohne einer vernünftigen Anleitung schon etwa eine Stunde experimentiert hatte...

Ich probiere es auch mal.

Gruß
Leo

[koehlerbv]

Händisch gibst Du einen Tab nach dem anderen ein - erzähl, was Du willst, aber drei Stück gleichzeitig schaffst auch Du nicht, Leo. Gleiches gilt für das Setzen der Properties der Tabs in der NotesRichTextParagraphStyle class ...

Bernhard

[Bruce Willis]

erzähl, was Du willst, aber drei Stück gleichzeitig schaffst auch Du nicht, Leo.

Bernhard, ich möchte überhaupt nichts erzählen sondern eher dich bewegen, etwas zu erzählen.

Und zwar, wie Du diese drei Spalten zuordnen würdest:

   ...
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "Hi there")
   ...

Wenn Du das weißt und 5 Min Zeit hast.

Leo

[koehlerbv]

Nimms mir nicht übel, Leo, aber ich habe das nun schon mehr als einmal geschrieben. Okay, ein drittes Mal:
- Alle Tabs definieren
- Text schreiben (nach Lust und Laune dann mit Tab-Sprüngen).

Bernhard

[Bruce Willis]

ich habe das nun schon mehr als einmal geschrieben. Okay, ein drittes Mal:
- Alle Tabs definieren
- Text schreiben

Schade, dass wir aneinander vorbei reden bzw. Du meine Bitte nicht verstehen willst.
In Hilfe zum Designer 8.5.1 ist nirgendwo beschrieben, wie man mehrere Tabs definieren kann.

[koehlerbv]

Oh Mann, Leo, von "LS Sch" schreiben und dann sowas ...

Setze jeden Tab, den Du haben willst:
Call notesRichTextParagraphStyle.SetTab (3 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (5,5 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (7,85 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (11 * RULER_ONE_CENTIMETER, TAB_LEFT)

Bernhard

[Bruce Willis]

Oh Mann, Leo, von "LS Sch" schreiben und dann sowas ...

Oh Mann, Bernhard, Du ließt also doch aufmerksam alles was ich schreibe...

Setze jeden Tab, den Du haben willst:
Call notesRichTextParagraphStyle.SetTab (3 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (5,5 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (7,85 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (11 * RULER_ONE_CENTIMETER, TAB_LEFT)

Vielen Dank!  
Ich werde es morgen probieren.

Gruß
Leo