Domino 9 und frühere Versionen > Entwicklung

Adressenseriendruck aus einer View mit Word

(1/1)

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      


--- Ende Code ---

eknori (retired):
Hab hier noch was für euch:

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

(direkt aus der "Schatzkiste"  ;D )

eknori

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

eknori (retired):
und hier hab ich noch was gefunden

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

eknori

Navigation

[0] Themen-Index