Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

Link in Mail einfügen

(1/1)

Hemmi:
Hallo,

mit nachfolgendem Code kann ich eine Dateilink in eine Mail einfügen:

****************************************************
@If(@IsDocBeingEdited;
@Do(
theFile := @Prompt([LocalBrowse]; "Datei auswählen"; "Bitte wählen Sie die gewünschte Datei aus.");
theFile := @ReplaceSubstring( theFile; "\\" : " "; "/" : "%20");
@Command( [EditInsertText] ; "file:///" + theFile)
);
@Prompt([Ok]; "Hinweis"; "Sie müssen ein Dokument im Barbeitungsmodus geöffnet haben und den Cursor in einem Textfeld positionieren, um diese Funktion zu nutzen!")
)
****************************************************
Soweit so gut, aber bei der Dateiauswahl öffnet sich immer zuerst das Data-Verzeichnis von Lotus-Notes, in wie weit muss ich den Code
verändern, dass sich immer z.B. Dateiverzeichnis im Laufwerk G:\Austausch sofort öffnet. ???

Gruß Hemmi

RunRevilo:
Hallo,

mit LotusSkript kann man einen Pfad und sogar einen Filter für die Dateiauswahl vorgeben und zwar mit der openFileDialog Methode aus der NotesUiWorkspace. Mehr Information findet man in der Designer Hilfe.

Hier ein kurzer Beispielcode in der nur csv Dateien aus dem Verzeichnis c:\Test vorgeschlagen werden


--- Code: ---Dim ws As New NotesUIWorkspace
Dim pfad As String
pfad = "c:\Test"
Dim filter As String
filter="Microsoft Excel-CSV-Datei | *.csv"
Dim dateiname As Variant
dateiname=ws.OpenFileDialog(False,"Daei zum Importieren wählen",filter,pfad)

--- Ende Code ---


Hoffe geholfen zu haben

marbu:

--- Zitat von: RunRevilo am 24.02.15 - 11:07:45 ---Hallo,

...


--- Code: ---Dim ws As New NotesUIWorkspace
Dim pfad As String
pfad = "c:\Test"
Dim filter As String
filter="Microsoft Excel-CSV-Datei | *.csv"
Dim dateiname As Variant
dateiname=ws.OpenFileDialog(False,"Daei zum Importieren wählen",filter,pfad)

--- Ende Code ---


Hoffe geholfen zu haben



--- Ende Zitat ---

Danke, das Script hilft schon ganz gut - nur wie bekomme ich jetzt den Inhalt der Variable "dateiname" in den Mailbody geschrieben?

Danke für Tipps und Grüße aus dem Vogtland

pram:
Wenn das Dokument geöffnet ist, wird es schwierig, da ein rtItem.appendText nicht funktioniert.

Du musst dann über das UiDoc gehen z.B. uidoc.gotofield/insertText oder (undokumentiert) uidoc.importitem.

Gruß
Roland

marbu:
Danke für die Hilfe bis hierher.

Ich habe jetzt das ganze in Formelsprache gelöst, zwar starte ich dann immer im DATA-Pfad aber das kann ich verschmerzen.

Jetzt gibt es nur noch einen großen "Fehler" - die schrecklichen Ordner- und Dateinamen der User - aber den werde ich wohl nicht vollständig lösen können. :D

Navigation

[0] Themen-Index