Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Lancelot am 02.10.07 - 14:52:38

Titel: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Lancelot am 02.10.07 - 14:52:38

Hy Leute,

ich habe folgendes Probelm das mich seit Tagen beschäftigt.

Ich muß aus einem Doc, den Anhang in ein festes Verzeichnis im Explorer legen.
Den Anhang aus dem Doc löschen und einen Hotspot auf die Datei im festen Verzeichnis legen.

Das Problem welches ich habe ist, dass Notes die Datei im Internetexplorer  öffnen möchte und das geht nicht.

Wie bringe ich Notes bei den Anhang mit dem jeweiligen Programm zu öffnen?
Ist ein URL Hotspot vielleicht nicht der richtige Weg?

Dank Euch schon mal.

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Skorpi am 02.10.07 - 15:02:14

Such mal in der Hilfe nach der Shell function...

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Lancelot am 02.10.07 - 15:16:38

So wie ich das sehe, kann man das nicht verwenden.

Ich weiß ja nciht welcher Dateityp angehängt ist.
Ausserdem bring ich den Shell mit dem Hotspot nicht zusammen.

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Demian am 02.10.07 - 17:43:27

Moin,moin,

bei shell musst du den ganzen Pfad eingeben und den brauchste auch zum extrahieren der Datei.

Den Namen kannst du mit .name der embeddedobject Klasse auslesen.

Code

	
Dim work As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesRichTextItem
	
Set uidoc = work.CurrentDocument
Set doc = uidoc.Document
Set item =doc.GetFirstItem("Dateianhang")
	
Forall o In item.EmbeddedObjects
   Msgbox o.name
End Forall

Gruß
Demian

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Lancelot am 02.10.07 - 17:52:27

Danke Euch, ich habe es gelöst.

Im Moment ghabe ich es geschafft, dass der Internetexplorer mir den Ordnerinhalt korrekt anzeigt.

Alles was im Ordner enthalten ist, geht zu öffenen und das reicht uns.

Vielen Dank nochmals.

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: guesswho am 02.10.07 - 17:57:09

Ich bin mir nicht ganz sicher, ob ich Lancelot richtig verstanden habe. Aber shell erwartet BAT, COM, PIF, or EXE plus optional den Dateinamen. Auf Dateiendung kann verzichtet werden.

aber z.B. "task% = shell(c:\dokument.doc")" wird wohl tatsächlich nicht funktionieren...

Jo

Titel: Re: Hotspot eines Anhangs mit Script, danach Anhang löschen.
Beitrag von: Demian am 04.10.07 - 11:19:51

Moin,moin,

in den Fällen gehts aber mit:

Code

Dim Datei
Set Datei = CreateObject("Wscript.Shell")
	
Datei.Run "C:\Test.doc"
	
Set Datei = Nothing

Gruß
Demian