Objekt öffnen

Stony · 16. Juni 2008

Hallo zusammen,

kann man ein attachment aus einem richtextitem per button öffnen und anzeigen lassen?
Wenn ja, wie??

Schonmal vielen Dank.

Gruß Stony

RockWilder · 16. Juni 2008

Siehe Hilfe: @Command( [AttachmentLaunch] )

[size=xx-small][color=ff0000]Bitte Themenpräfix beachten![/color][/size]

Diali · 16. Juni 2008

ja geht.
1. Abhängen (z.B. in Temp-Ordner)
- Temp-Ordnder bekommst Du mit:
windir$ = Environ("TEMP") und/oder windir$ = Environ("TMP")
- Abhängen geht mit NotesEmbeddedObject.ExtractFile(...)

2. per Shell und cmd.exe ausführen
- suche mal im Forum, da sind die Parameter beschrieben

Gruß
Dirk

Diali · 16. Juni 2008

Stimmt geht auch mit @Funktionen. Habe mich zu sehr von dem Beitrag verleiten lassen.

Gruß
Dirk

Stony · 16. Juni 2008

Hi,

ich muss wohl deine Variante nehmen Diali, da das Richtextfeld, wie du schon angenommen hast, versteckt ist.

Das wird mit Formel-Sprache nicht gehen, oder?

Gruß Stony

Stony · 16. Juni 2008

Hi,

habs jetzt so gelöst...

Code

windir = Environ("TEMP") 

	Set rtItem = doc.GetFirstItem("Image")
	If(rtItem.Type = RICHTEXT) Then
		Forall o In rtItem.EmbeddedObjects 
			If ( o.Type = EMBED_ATTACHMENT ) Then
				file = windir+"\"+o.Name
				Call o.ExtractFile(file)
				result = Shell("cmd.exe /c "+file, 1)
			End If
		End Forall
	End If

Alles anzeigen

Thanks!

Gruß Stony

Teilen