Mal wieder das Thema Export nach WORD

[klaussal]

Von der Kombi LoNo <-> Word habe ich keine Ahnung. Deshalb halte ich mich da raus.

[C_T]

War ja nicht bös gemeint ich hoffe das kahm jetzt nicht so rüber...

[C_T]

So hi, da bin ich mal wieder....

Erstmal Frohe Ostern nochmal nachträglich an alle.

Aber jetzt mal wieder zum unschönen des Tages, Mein Problem...   

Ich habe vor aus einem Feld (TEST1) welches ich in meiner Maske(doc) habe alle Attachments zu extrahieren, zu speichern und per link in das aus meinen voherigen Posts einzufügen.

Leider habe ich schon beim extrahieren Probleme vielleciht kann mir einer (oder mehrere) von euch helfen??? *liebguck*

[MadMetzger]

Wo liegen denn deine Probleme?

[m3]

Leider habe ich schon beim extrahieren Probleme

Meine Kristallkugel ist ebenso noch nicht - im Gegensatz zu den Glocken - aus Rom zurück.

Bitte sei daher etwas spezifischer.

[ata]

... ich denke der Beitrag sollte nach Companions und OLE verschoben werden

Toni

[Axel]

Das Codeschnipsel sieht soweit mal ganz gut aus, aber eben nur das Schnipsel.

Leider habe ich schon beim extrahieren Probleme vielleciht kann mir einer (oder mehrere) von euch helfen??? *liebguck*

Leider kann ich nicht hellsehen und meine Kristallkugel ist im Osterurlaub eingeschneit, so dass du notgedrungen, wenn du Hilfe haben willst, mehr Infos geben musst.

*nochlieberguck*


Du kennst doch das hier oft strapazierte Sprichwort:

Mehr Input -> mehr Output.


Axel
 

[C_T]

HI

SO sry dachte es wär genug input, aber naja jeder kann sich irren....

Also nach meiner ansicht sollte ja der Code

Code

....CODE
 
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "TEST1" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall obj In rtitem.EmbeddedObjects
      Call obj.ExtractFile( "c:\test\" & obj.Name )
  End Forall
End If
 
....CODE

 die Attachments aus dem Feld ("TEST1") als Datei in den Ordner "c:\test" speichern. leider macht der das nicht.

Das Feld ist definitiv ein RichTextFeld und da drin steht text und sind folgende dateitypen hinterlegt:

*.txt
*.doc
*.xls

der debugger zeigt an das der code bis in die kleinste schleife reingeht, jedoch sehe ich auf meiner C Platte keine daten...

[Axel]

Ändere mal deine Dim - Anweisung ab.

....CODE

Dim rtitem As NotesRichtextItem

Set rtitem = doc.GetFirstItem( "Problem" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\test\" & o.Name )
    End If
  End Forall
End If

....CODE

Ansonsten kann ich keine Unstimmigkeiten entdecken.

Bekommst du eine Fehlermeldung?


Axel

[C_T]

Nein leider bringt das auch nciht mehr...

[klaussal]

Das Doc, das du da bearbeitest, ist schon abgespeichert ?

Was steht lt. Debugger in o.Name ?

[C_T]

Hm merkwürdig

im  debugger kann ich unter Variablen kein o finden, jedoch geht er bis zu der zeile

"     Call o.ExtractFile( "c:\test\" & o.Name )"

doch er geht nuir eimal in die Forall schleife, obwohl 4 dokumente in dem rtfeld eingefügt sind...

[Axel]

Füge mal in die Schleife die Zeile

Msgbox o.Name

ein.

Dann müsste er dir die Namen der Anhänge anzeigen.


Axel

[klaussal]

Folgender Code (nicht schön) funktioniert !

Code

Sub Click(Source As Button)
	Dim rtitem As NotesRichtextItem
	Dim doc As NotesDocument
	Dim ws As New NotesUIWorkSpace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.currentDocument
	
	
	Set doc = uidoc.document
	
	Set rtitem = doc.GetFirstItem( "rt" )
	If ( rtitem.Type = RICHTEXT ) Then
		Forall o In rtitem.EmbeddedObjects
			If ( o.Type = EMBED_ATTACHMENT ) Then
				Call o.ExtractFile( "c:\austausch\" & o.Name )
			End If
		End Forall
	End If
End Sub

Deshalb wiederhole ich meine Frage:
Ist das Dokument bereits gespeichert ?

[C_T]

So ich habe die Textbox eingefügt und diese wird laut debugger zwar ausgeführt, jedoch nicht angezeigt....


Des weiteren ja das DOkument ist gespeichert. Ich rufe diesen Code aus einer Ansicht auf und bearbeite alle markierten Dokumente... Siehe weiter oben...(immernoch selbes Projekt)

[klaussal]

Dann bitte mal den ganzen Code posten.

[ata]

... das hört sich mehr als dubios an - was heist:

So ich habe die Textbox eingefügt und diese wird laut debugger zwar ausgeführt, jedoch nicht angezeigt

Wenn sie ausgeführt wird, dann wird sie auch angezeigt - oder läuft das ganze als Background-Server-Agent - dann stehen die Namen im Log des Servers...

Toni

[klaussal]

dann stehen die Namen im Log des Servers...

... und dort würde man dann auch die Dateien finden...

[C_T]

Hier ein Code Ausschnitt

Code

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	
	Dim Ins As Variant
	
	Set db = session.CurrentDatabase
	
	On Error Resume Next
				
	Const wdStyleNormal = -1
	Const wdStyleHeading3 = -4	
			
				
	Set WordApp = CreateObject("Word.Application")  
	Call WordApp.documents.add("c:\TEST.dot")
	Set WordDoc = WordApp.activedocument	
				
	Set Ins =  WordApp.Selection
				
	Dim view As NotesView
	Set view = db.GetView("aView")
	Set doc = view.GetFirstDocument
				
	Do Until doc Is Nothing
	                Set uidoc = workspace.EditDocument(True, doc)
		uidoc.EditMode = True
		uidoc.AutoReload = False
						
		With Ins 
		                .Style = wdStyleHeading3
			.TypeText "TEST1: " 
			.TypeText doc.TEST1(0) + Chr$(10)
			.Style = wdStyleNormal
		End With
 
			
		Dim rtitem As NotesRichTextItem
'...set value of doc...
		Set rtitem = doc.GetFirstItem( "FELD" )
		If ( rtitem.Type = RICHTEXT ) Then
			Forall obj In rtitem.EmbeddedObjects
				Messagebox(Cstr(obj.Name))
				Call obj.ExtractFile( "c:\test\" & obj.Name )
			End Forall
		End If
						
		Err = 0
		Call uidoc.GotoField("FELD")
		Call uidoc.SelectAll
		Call uidoc.Copy
		If Not Err = 4407 Then
			With Ins 
				.Font.Bold = True
				.TypeText "FELD: "+ Chr$(10)
				.Font.Bold = False
				.Paste 
				.TypeText Chr$(10) + Chr$(10)
			End With
		End If
		Ins.TypeText Chr$(12)
											
		uidoc.Close(True)		
		Set doc = view.GetNextDocument(doc)
		
						
	Loop
					
					
									
	WordApp.Documents(1).saveas(flag3)				
					
	End Sub

also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....

[Axel]

also im debugger geht die "Aktive Zeile" auf die Messagebox, jedoch wird diese nicht angezeigt....

Was heisst das? Hast du dann auch noch mal einen Schritt ausgeführt?


Axel