Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (11/12) > >>

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

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete