Mal wieder das Thema Export nach WORD

[C_T]

Ums nochmal zu verständlichen,
ich bin in den debugger gegangenund habe jeden einzelnen Schritt durchgehen lassen von dem teil mit dem extrahieren der attachments.
Dabei ist die aktive zeile natürlich auch auf die zeile mit der messagebox gekommen, jedoch wurde keine angezeigt. ausserdem habe ich auch keinen fehler bekommen.

[C_T]

HI Leute

Schande auf mein Haupt.....

Bei dem Errorhandling welches jetzt drin ist kann auch kein fehler kommen.

So nachdem ich das Errorhandling einmal etwas geändert habe, bekomme ich folgende Fehlermeldungen:

Type mismatch
FOR loop not initializied


Hier nochmal der Code

Code

						
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.GetFirstItem( "TEXT" )
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

Vielleciht könnt Ihr mir jetzt besser helfen

[m3]

1) Laut meiner Designerhilfe (V6.5) will Forall ein array, list, oder eine collection.

2) Ich würd mal überprüfen, ob rtitem.EmbeddedObjects überhaupt ein array oder nicht etwa empty zurückliefert, weil das Dokument keine Anhänge hat.

[Axel]

Kann es sein, das in dem entsprechenden Dokument einfach keine Anhänge gespeichert seind?


Axel

[klaussal]

@Axel,

es muss so sein, weil ich (wie geschrieben) diese Mimik getestet habe und es funzt.

[Axel]

Ich habe mir mal eine Funktion gebastelt mit der man abfragen kann, ob das Dokument überhaupt Anhänge beinhaltet.

Code

Function xHasDocAttachments(doc As NotesDocument) As Integer
	
	Dim vEval As Variant
	vEval = Evaluate("@Attachments", doc)
	If vEval(0) = 0 Then 
		xHasDocAttachments = False
	Else
		xHasDocAttachments = True
	End If
	
End Function

Axel

[C_T]

Hey Axel,

Super Vielen DAnk schonmal
wollte gerade danach fragen wie ich gucke ob ich anhänge habe....

kann man diese Prüfung auch irgendwie nur auf ein bestimmtes Feld beziehen???

[Axel]

kann man diese Prüfung auch irgendwie nur auf ein bestimmtes Feld beziehen???

Mit den mir bekannten Mittlen nicht.

Du kannst höchstens mal versuchen die Rückgabe von rtitem.EmbeddedObjects auf Empty zu prüfen.
...
If ( rtitem.Type = RICHTEXT ) Then
If Not IsEmpty(rtitem.EmbeddedObjects) Then
     Forall o In rtitem.EmbeddedObjects
       If ( o.Type = EMBED_ATTACHMENT ) Then
         Messagebox(Cstr(o.Name))
         Call o.ExtractFile( "c:\test\" & o.Name )
       End If
     End Forall
  End If
End If
...

Ob das allerdings so funktioniert kann ich dir nicht sagen. Ich hab's nicht probiert.


Axel

[ata]

... sollte eigentlich funktionieren...

Toni

[C_T]

So müsste eignetlich jetzt soweit alles laufen, jedoch habe ich jetzt beim feintuning ein kleines Problem....


Und zwar starte ich mein Word Export mit einer Wordvorlage

Code

Call WordApp.documents.add("c:\WORD.dot")

Kann ich die Datei irgendwie in die Datenbank selbst hinterlegen und abrufen oder kann ich einfahc nachfragne ob die Datei in dem Pfad liegt der angegeben wurde und dann dementsprechend eine Fehlermeldung und eine erneute Eingabeaufforderung starten?

Die Sachen mit dem hinterlegen der Datei wäre mir das liebste.... Kann mir da wer helfen?

VIELEN DANK

[MadMetzger]

Du kannst die Vorlage in einem Profildokument als Dateianhand hinterlegen und dann in einen bestimmten Pfad, zB das Temp-Verzeichnis des Rechners vor deiner Aktion lösen.

[C_T]

Kann du mir sagen wie ich das Temp verzeichnis des rechners anspreche?

und weißt du zufällig gerade aus dem FF einen Codeschnipsel um diese Vorlage anschließend aus dem Temp ordner zu löschen?

[MadMetzger]

Schau dir das hier mal an...

[C_T]

So erstmal vielen, vielen, vielen Dank an alle die mir geholfen haben.

Ich weiß ich manchmal zu wenig Input gegeben oder komische Fragen gestellt. Doch Ich habs nur durch eure Hilfe alles

soweit hingekriegt wie ichs wollte.

Nochmals Vielen Dank an alle und dieses Tolle Forum.

[C_T]

So liebe Notesgötter,

jetzt abe ich nochmal ne Frage und ich hoffe ihr könnt mir erneut so gut mit rat beiseite stehen.

Es geht darum  dass ich für eine Funktion 2 Datein innerhalb der DB brauche. Ich habe die beiden Datein in ein Profildokument gespeichert, kann aber nur eine ein Feld ansprechen, das eine wird immer als leer angezeigt...

Vielen DANK

Code

Dim RTVorlage As NotesRichTextItem
Dim RTF1 As NotesRichTextItem
Dim RTF2 As NotesRichTextItem
Dim NP As String
Dim Dat1 As String
Dim Dat2 As String
Dim ProfDoc As Variant

Set ProfDoc = db.GetProfileDocument("mProf")
Set RTF1= ProfDoc.getFirstitem("Dat1")
Set RTF2= ProfDoc.getFirstItem("Dat2")
NP = session.GetEnvironmentString("Directory",True)			

			
Forall D1 In Dat1.EmbeddedObjects
    Call D1.ExtractFile( NP& "\" & D1.source)
    Dat1 = cstr(D1.source)
End Forall
				
Forall D2 In Dat2.EmbeddedObjects
    Call D2.ExtractFile( NP& "\" & D2.source)
    Dat2 = cstr(D2.source)
End Forall

[Axel]

Es sind aber beides RTF-Felder und in beiden sind die Dateien definitiv vorhanden? Das Dokument wurde auch gespeichert?

Warum machst du die Variable profiledoc zu einem Variant-Typ und nicht zum Typ NotesDocument? Wo sind die DIM - Anweisungen für die beiden RTF-Felder?


Axel

[C_T]

Die DIm anweisugnen nachgepflegt! Waren voher auch vorhanden nur vergessen hier reinzukopieren....

Und ja definittiv ist in beiden feldern eine datei vorhanden zumindest habe ich sie halt eingefügt. und das Profildokument ist auch gespeichert.

Und ich definiere es als variant weil ich des öfteren Probleme hatte als ich es als NotesDocument deklariert habe... mag daran liegen das es ein "Profildokument" ist...

[Axel]

Hast du mal den Client neugestartet, nach dem du die Dateien angehängt hast? Profildokumente werden nämlich gecacht.

Ich persönlich würde das nicht mit Profildokumenten regeln sondern mit normalen Dokumenten, die nur von berechtigten Personen geändert werden dürfen.

Axel