Hotspot eines Anhangs mit Script, danach Anhang löschen.

[Lancelot]

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.

[Skorpi]

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

[Lancelot]

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.

[Demian]

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

[Lancelot]

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.

[guesswho]

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

[Demian]

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