Name eines Attachments in Script suchen

[Gerhard]

Hallo zusammen !

Wie kann ich den Namen eines Attachments in Lotus Script heraussuchen ?

Ich möchte per Script abfragen ob Attachments Word oder Excel sind, alle anderen möchte ich verbieten !

Wie am Besten ?

Danke für die Hilfe !

[Glombi]

dim ret_eval as Variant
dim attachmentname as string

.... dim und set von doc = NotesDocument . ...
ret_eval = Evaluate( |@AttachmentNames|, doc )
if IsArray(ret_eval) then
attachmentname = ret_eval(0)
else
attachmentname = ""
end if


Andreas

[koehlerbv]

Sag mal ein bisschen näheres zu Deinem Kontext, Gerhard. Ich ahne derzeit nur, dass Du da etwas überhaupt nicht triviales machen willst. Aber bevor ich jetzt im Nebel stochere ...

So long,
Bernhard

[Gerhard]

@Glombi:
Danke !

@Bernhard:
Habe ein RichText-Feld,lasse eine Datei anhängen,möchte im PostSave der Maske den Namen der angehängten Datei(ha, das kann ich ja wahrscheinlich erst nachdem ich es abgespeichert habe?) in eine Variable tun und die Endung checken, nur wenn DOC oder XLS dann abspeichern erlauben, sonst Fehlermeldung und nicht abspeichern.

[Glombi]

Du kannst das im QueryClose checken und mit
Continue = False
das Schließen verhindern, sofern ein Excel Anhang da ist.

Andreas

[koehlerbv]

Na, ist ja doch nicht so schlimm wie befürchtet ;-)

PostSave ist richtig, denn Du hast nur Zugriff auf RTItems, wenn das Ding schon auf der Platte ist.
Andreas' Script musst Du noch so erweitern, dass Du auch mit mehreren Attachments dealen kannst - Du kriegst ja sowieso schon ein Array zurück, wenn Attachments drin sind.

Bernhard

[koehlerbv]

Du kannst das im QueryClose checken und mit
Continue = False
das Schließen verhindern, sofern ein Excel Anhang da ist.

Nicht ganz sicher, da das Kind ja bereits in den Brunnen gefallen ist. Wenn ich ein pöser Pupe wäre und meinen Dickschädel durchsetzen will und partout das mpg-File im Dokument haben möchte, dann schalte ich entweder bei der Fehlermeldung meine Kiste aus oder editiere das Dokument doch noch mal brav und beantworte dann die Frage "Möchten Sie Ihren Mist jetzt nochmal speichern ?" einfach mit nein.
Die Attachments müssen also nach der Fehlermeldung - und die sollte schon nur dann passieren, wenn "es" passiert ist, also PostSave - aus dem Dokument wieder entfernt werden.

Bernhard

[Glombi]

Klaro, PostSave ist besser.

Wg. mehreren Attachments würde ich es dann so machen

'KEIN Dim attachmentname as string !!!!
dim validierung as integer
validierung = true

if IsArray(ret_eval) then
forall attachmentname in ret_eval
if Instr(attachmentname,".xls") > 0 then
validierung = false
exit forall
end forall
end if

if validierung then
msgbox "Pöser Pursche!"
continue = false
exit sub
end if

[koehlerbv]

Und wenn ich "Pöser Pursche" lesen, beende ich Notes  

Ein
Call notesEmbeddedObject.Remove
Call NotesDocument.Save (True, False, true)
sollte schon noch stattfinden  

Bernhard