Adressenseriendruck aus einer View mit Word

[tuxie]

Hallo leutz,

hat eventuell jemand einen Script in der Tasche mit dem Ich die Inhalte einer View an ein Seriendruckdokument an Word übergeben kann?.

Bsp. Habe eine DB mit Adressen (f_name, name1,strasse, plz, ort), möchte diese dann als Seriendruck Drucken, muß nicht mit Word sein wäre aber günstig.

Tschau Ingo

[Don Pasquale]

Hi tuxie,

ich arbeite gerade an derselben Sache, bin allerdings noch nicht fertig. Das hier ist das Steuerdokument mit den Datensätzen.
Kannst Du damit was anfangen ?

Code

'  Wohin kommt das SerienbriefDokument      
      Dim Pfad As String
      Pfad = "c:\\temp\\test1\\1.txt"
      Dim LISTE List As String                        
      Dim key  As String
      Set session = New notessession 
      Set db=session.currentdatabase 
      Set Collection=db.UnprocessedDocuments  
      Set doc=Collection.GetFirstDocument  
      key = doc.e4fldDokArt(0)
      
      Messagebox key
      Dim s As New NotesSession 
      Dim view As NotesView 
      
      Dim tmpdoc As NotesDocument
      Set view = s.Currentdatabase.GetView( "e4vwFallgruppen" )       
      Dim dc As NotesDocumentCollection
      
      Set dc = view.GetAllDocumentsByKey(key, True) 
      Set doc = dc.getfirstdocument 
      
      Dim temp As Integer
      temp=Freefile() 
      Open Pfad$ For Output  As temp
      
      Print #temp,"Identnummer,HR_Nummer,RegAbt,Regger,Name1,Name2,Name3,Name4,Strasse,Hausnummer,Postfach,Postleitzahl,Ort" 
      
      
      While Not (doc Is Nothing) 
            
            
            If Iselement(LISTE(doc.e4fldIdentnummer(0))) Then
                        ' NIX
            Else
                  I = I + 1
                  LISTE(I) = doc.e4fldIdentnummer(0)
                  
                  
                  Print #temp, doc.sf_Identnummer(0) +","+doc.sf_HR_Nummer(0)+","+doc.sf_regabt(0)+","+doc.sf_regger(0)+","+doc.sf_name1(0)+","+_
                  doc.sf_name2(0)+","+doc.sf_name3(0)+","+doc.sf_name4(0)+","+doc.sf_vorname(0)+","+doc.sf_nachname(0)+","+doc.sf_strasse(0)+","+_
                  doc.sf_hausnummer(0)+","+doc.sf_postfach(0)+","+doc.sf_Postleitzahl(0)+","+doc.sf_ort(0)
                  
            End If
            
            Set doc = dc.GetNextDocument(doc) 
      Wend      
      End
      Close temp      

[eknori]

Hab hier noch was für euch:

http://eknori.dyndns.org/knowledge/devidea.nsf/703257f00a483fb180256879002c0178/a9e86fa8382a1720c125698b00629910?OpenDocument&Highlight=0,word

(direkt aus der "Schatzkiste"   )

eknori

uups, nee, sorry, ist wohl nicht das was du wolltest

[eknori]

und hier hab ich noch was gefunden

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c58841ba70811b5685256a2a004b496c?OpenDocument&Highlight=0,mail,merge

eknori