Autor Thema: Serienbrief INNERHALB Notes ???  (Gelesen 7444 mal)

Offline Doc Torte

  • Aktives Mitglied
  • ***
  • Beiträge: 178
  • Geschlecht: Männlich
  • ...promovierter Bäcker... ;-)
    • ...that's me
Re:Serienbrief INNERHALB Notes ???
« Antwort #20 am: 22.07.03 - 10:27:11 »
es gibt eine ganz annehmbar Lösung für eine Serienbrief-Funktion in Notes, jedenfalls setzt Sie ein Kunde von uns sehr erfolgreich ein. Ist von mir entwickelt und hat bei einem Belastungstest von mir 70000 Briefe am Stück generiert - voll dynamische Dokumente sogar mit "Platzhaltern" für die Wertübernahme aus sogenannten "Kundenstammdatendokumenten" - die generierung der Briefe läuft dabei in Script - die so erstellten Dokumente verschiebe ich in einen Folder - über einen Formelagenten lasse ich diese markieren und ausdrucken - dieses Tool hat sogar noch die Features, das anhand bestimmter Schlüssel die angegebenen verantwortlichen Sachbearbeiter eingetragen und wenn gewünscht eine eingescannte Unterschrift in den Breif gelegt wird, schon bei der Brieferstellung kann über verschiedene Vorlagen entschieden und auch unterschiedliches Briefpapier gewählt werden...

ist auch mal Werbung in eigener Sache...
Wer nicht ständig besser wird, hört bald auf gut zu sein !
Schritt für Schritt geht's immer vorwärts...

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Serienbrief INNERHALB Notes ???
« Antwort #21 am: 22.07.03 - 10:56:25 »
... also ich poste das dann morgen im Laufe des Tages - vorher habe ich kaum Zeit...

ata
Grüßle Toni :)

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Serienbrief INNERHALB Notes ???
« Antwort #22 am: 24.07.03 - 00:31:25 »
... ein einfaches Konstrukt eines Notes-Internen Serienbriefes - einigermaßen stabil...

http://www.anton-tauscher.de/download/print.nsf

ata
Grüßle Toni :)

Offline notesnewbie

  • Aktives Mitglied
  • ***
  • Beiträge: 130
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Serienbrief INNERHALB Notes ???
« Antwort #23 am: 24.07.03 - 07:28:36 »
Hi,

ich hab das selbe Problem mit den Serienbriefen.  :(

@ata: Falls es Dir möglich ist, wäre ich Dir dankbar wenn du das Demo über die Lösung mit Word freigeben könntest. Natürlich nur
wenn es kein großer Aufwand für DIch ist.


N. Newbie

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Serienbrief INNERHALB Notes ???
« Antwort #24 am: 24.07.03 - 07:34:48 »
... ich bin dabei das in eine vernünftige Demo zu packen - ein paar Tage Geduld - dann wird die Demo etwas umfangreicher...

ata
Grüßle Toni :)

Offline cococo69

  • @Notes Preisträger
  • Senior Mitglied
  • ****
  • Beiträge: 286
  • Geschlecht: Männlich
  • Super dieses Forum!!!
    • Mein Hobby...
Re:Serienbrief INNERHALB Notes ???
« Antwort #25 am: 24.07.03 - 09:51:46 »
@ata,

na, hast Du wieder einmal mehr eine Nachtschicht eingelegt, um Deine Lösung ins Netz zu stellen???!!!!!!!
Ich sage einfach nur  DANKE!!!

Jetzt ist es bei mir aber so, dass ich nicht vom Briefdokument ausgehe und dazu die Adressen suche,
sondern ich habe eine Ansicht mit einer Auswahl von Kunden-Adressdokumenten an welche ich einen Brief senden möchte.

Für mich wäre es also besser, wenn ich aus der Anicht mit den Kunden-Adressdokumenten den gewünschten Brief auswählen könnte.

Ist das so auch denkbar???

cococo69

Offline cococo69

  • @Notes Preisträger
  • Senior Mitglied
  • ****
  • Beiträge: 286
  • Geschlecht: Männlich
  • Super dieses Forum!!!
    • Mein Hobby...
Re:Serienbrief INNERHALB Notes ???
« Antwort #26 am: 24.07.03 - 09:56:22 »
@Doc Torte

kannst Du vielleicht mal etwas genauer erklären wie bei Deiner Lösung der genaue Ablauf ist?

Wie ist  Dein Ansatz?
Hast Du eine Briefvorlage und wählst dazu die gewünschten Adressen (wie, und wo)?
Oder hast Du eine Ansicht mit Adressen und wählst dazu den gewünschten Brief?
Vielleicht kannst Du sogar ein paar Screenshots liefern?

cococo69

Offline Doc Torte

  • Aktives Mitglied
  • ***
  • Beiträge: 178
  • Geschlecht: Männlich
  • ...promovierter Bäcker... ;-)
    • ...that's me
Re:Serienbrief INNERHALB Notes ???
« Antwort #27 am: 24.07.03 - 10:18:22 »
@cococo69

also, hier mal ein Abriss.

Die "MailingDB" ist in einem CRM eingebettet, aber ohne sehr großen Aufwand in andere  einpflegbar. dort kann der User eins oder mehrere Dokumente selektieren und über eine Aktion ein Mailing auslösen, er bekommt dann die Abfrage, ob ein Serienmailing(bei mehr als einer Selektion) oder ein Einzelmailing, er wählt die Art aus (Brief/Fax/e-Mail) und eine hinterlegte Vorlage, bzw. erstellt auch gleich eine neue, dann sagt er nur noch okay und bekommt den Brief/Fax/E-Mail in der Vorschau angezeigt, hier kann er noch textliche Änderungen an der Vorlage vornehmen (Platzhalter einfügen usw. dann gibts nur noch den Button zum versenden, bzw. ausdrucken. Ist dieser gedrückt, rechnet ein Script im die Briefe/Faxe/E-Mails zusammen und erstellt Dokumente, diese sind über die eingefügten Platzhalter auch sehr Kundenorientiert, da ich so Daten aus den Kundendokumenten im Brieftext benutzen kann. Sind alle Dokumente errechnet, selectiert ein Agent die Dokumente anhand der Kennung für genau die jeweilige Session und druckt diese aus, bei Fax und E-Mail werden diese direkt aus dem Coding versendet - dadurch ist auch das Arbeiten von mehreren Usern zeitgleich möglch.

das ist so die grobe Beschreibung, gibt natürlich ne Menge zur Konfiguration, da es auch möglich ist, den Sachbearbeiter zuordnen zu lassen und eine eventuell hinterlegte Unterschrift in die Briefe einzubinden.

die Werteübernahme aus der "Stammdatenbank" der Kundendokumente in die "Mailing DB" war schon etwas aufwendiger, da sichergestellt werden sollte, daß egal wieviel Dokumente selektiert werden, die Performance nicht all zu dolle leiden soll. auch das rechnen der Briefe mit den Platzhaltern nimmt etwas Zeit in Anspruch, aber bei einem Test hier bei uns im Haus hatte ich 70000 Briefe innerhalb von 7- 10 min , da hätte nur der Drucker gekotzt. und vielleicht auch der, der für das Marken kleben verantwortlich wäre... ;-)
Wer nicht ständig besser wird, hört bald auf gut zu sein !
Schritt für Schritt geht's immer vorwärts...

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Serienbrief INNERHALB Notes ???
« Antwort #28 am: 24.07.03 - 10:58:23 »
@cococo69

... klar ist das machbar, dann dreht man eben den Ablauf...
... dann baut man eine Aktion in die Adressdatenbank und und wählt eben den Brief aus...

Code
Sub Click(Source As Button)   
' # Serienbrief-Ausdruck...
' # - die Aktion ist in einer Notes-Adressdatenbank, z.B. in der Ansicht "People"
' # - die Vorlagendatenbank heißt "Print.nsf" und liegt lokal
' # - ... die Vorlagendatenbank hat eine Ansicht "Briefvorlagen"
' # - ... die Felder in der Briefvorlage entsprechen den Feldern der Adressdokumente... 
' #########################################################
' # ... Adressen werden markiert ...
' # ... aus einer Picklist wird eine Briefvorlage gewählt
' # ... die Vorlage wird mit den Adressdaten initialisiert
' # ... das Dokument wird ins Frontend geholt und ausgedruckt
' # ... ... Print ohne Parameter = Druckdialog erscheint
' # ... ... Print mit Parameter = es erscheint kein Druckdialog
' # Der Ausdruck kann nur mit einem lokalen Rechner angestossen werden...
' # ############################################################   
' # ata  :-))
   
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim dbThis As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim docLetter As NotesDocument
   Dim dbBV As NotesDatabase ' BriefVorlage
   Dim docAddress As NotesDocument
   Dim FieldList( 0 To 4) As String
   Dim vValue As Variant
   Dim i As Long
   
   FieldList( 0 ) = "FirstName"
   FieldList( 1 ) = "LastName"
   FieldList( 2 ) = "StreetAddress"
   FieldList( 3 ) = "Zip"
   FieldList( 4 ) = "City"
   
   
   
   Set dbThis = session.CurrentDatabase
   Set dbBV = session.GetDatabase( "" , "print.nsf")
   If dbBV.IsOpen Then
      ' # Briefvorlage  auswählen
      Set dc = ws.PickListCollection( 1 , True ,  "" , "print.nsf" , "Briefvorlagen", "Auswahl einer Briefvorlage..." , "Wählen Sie die Briefvorlage des Serienbriefes aus der Liste" )
      ' # Es soll nur eine Vorlage akzeptiert werden
      If dc.Count = 0  Then
         Msgbox "Abbruch - es muß eine Briefvorlage ausgewählt werden..."
         Exit Sub
      Elseif dc.Count = 1 Then
         Set docLetter = dc.getFirstDocument
      Else
         Msgbox "Abbruch - es soll nur eine Briefvorlage ausgewählt werden..."
         Exit Sub
      End If
   Else
      Msgbox "Abbruch - die Datenbank mit den Briefvorlagen konnte nicht geöffnet werden..."
      Exit Sub
   End If   
   
   Set dc = dbThis.UnprocessedDocuments
   If dc.Count = 0 Then
      Msgbox "Abbruch - es müssen Adressen ausgewählt werden..."
      Exit Sub
   End If   
   
   If dc.Count >0 Then
      Set docAddress = dc.GetFirstDocument         
      While Not docAddress Is Nothing
            ' # ... Adressfelder übertragen...
         For i = 0 To Ubound( FieldList )
            vValue = docAddress.GetItemValue( FieldList( i ) )
            Call docLetter.ReplaceItemValue( FieldList( i ) , vValue(0) )
         Next
         Set uidoc = ws.EditDocument( False , docLetter )
         ' Call uidoc.Print( 1 ) ' # Druck ohne Chance Abbrechen zu können...
         Print "... Brief an " + docAddress.Firstname(0) + " " + docAddress.Lastname(0) + " wird ausgedruckt..."
         'Call uidoc.Print ' # Druck mit Druckdialog - bei Abbrechen wird das angezeigte Dokument nicht gedruckt
         Call uidoc.Close
         Set docAddress = dc.GetNextDocument( docAddress )
      Wend
   Else
      Msgbox "Abbruch - es wurden keine Empfänger ausgewählt..."      
      Exit Sub
   End If
   
   
End Sub

ata
Grüßle Toni :)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz