Link in Mail einfügen

[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)

Hoffe geholfen zu haben

[marbu]

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)

Hoffe geholfen zu haben

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.