Das Notes Forum

Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: Hemmi am 24.02.15 - 06:18:36

Titel: Link in Mail einfügen
Beitrag von: Hemmi am 24.02.15 - 06:18:36

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

Titel: Re: Link in Mail einfügen
Beitrag von: RunRevilo am 24.02.15 - 11:07:45

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

Titel: Re: Link in Mail einfügen
Beitrag von: marbu am 16.04.15 - 07:25:38

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)

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

Titel: Re: Link in Mail einfügen
Beitrag von: pram am 16.04.15 - 09:04:46

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

Titel: Re: Link in Mail einfügen
Beitrag von: marbu am 27.04.15 - 15:43:01

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