Domino 9 und frühere Versionen > Entwicklung

Mailschablone aufbohren

(1/3) > >>

Don Pasquale:
Hallo Leute,
ich möchte die Mailschablone aufbohren.
Immer wenn ein neues Memo erstellt wird,
soll als erstes geprüft werden ob unter C:\TEMP
eine Datei names 1.txt existiert. Diese Datei
soll dann automatisch als Attachment an das
neue Memo angehängt werden.

Ich habe im Moment noch keine Idee wie ich das anpacken soll.
An welche Stelle soll ich den Code packen und verwende
ich dafür Script oder geht das auch mit Formelsprache ?

Gruß
Don Pasquale

Till_21:
hi,
im postopen der memo maske
- auf uidoc.isnew &
- existenz deines files in c:\temp  (Dir)
ueberpruefen...

ggfls. im body das attachment 'embedden'

gruss

Glombi:
Hi,
das klingt aber ziemlich speziell. Soll das ein generelles Feature in der Mailschablone sein oder brauchst Du das nur an einer bestimmten Stelle. Falls letzteres, könntest Du auch ein Mail per Script in der Maildatenbank erstellen, die Datei anhängen, speichern und als UI Dokument zur Weiterverarbeitung öffnen.

Andreas

Don Pasquale:
@Glombi
das ist in der Tat sehr speziell, deshalb möchte
ich es auch nur im WebClient ausführen lassen.

Das ist der aktuelle, aus dem Bauch geschrieben Code.

Sub Postopen(Source As Notesuidocument)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim obj As NotesEmbeddedObject
Dim rti As NotesRichTextItem
Set rti = New NotesRichTextItem

OCXREG$ = "C:\TEMP\001.txt"

Set uidoc = workspace.CurrentDocument
If uidoc.IsNewDoc Then
  If DoesFileExists ( OCXREG$ ) > 0 Then
    Set obj = rti.EmbedObject(EMBED_ATTACHMENT, "", OCXRERG$)
  End If
End Sub


 

Glombi:
"nur im WebClient" aaahhhh, eine kleine, nur unwesentliche Einschränkung  ;D

Mal sehen, ob mir was dazu später einfällt....

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite