Domino 9 und frühere Versionen > ND6: Entwicklung

Mail mit Anhang aus Filesystem erstellen...

(1/3) > >>

reraru:
Hallo zusammen!

Ich muss folgendes Problem lösen:

Hintergrund:

Wir nutzen neuerdings eine Software welche den Paketversand per DPD managt.
Hier werden Paketscheine gedruckt und ggf. bei Nachnahme oder Expresspaketen je eine
Datei erstellt welche an eine bestimmte E-mail versandt werden muss.

Die nette Dame vom Versand geht auf die 60 zu und nutzt erst seit wenigen Tagen einen
PC. Das stellt unsere EDV vor die Entscheidung zu kündigen oder der Dame zu helfen.
Wir sind natürlich Gentleman und wollen helfen.


Meine Vorstellung:

Um das Anhängen der Dateien zu vereinfachen möchte ich versuchen per Aktions-Button eine neues Memo zu erstellen.

In dieses Memo sollen, wenn im Filesystem (Laufwerk "D:\DPD\Nachnahme" bzw. "D:\DPD\Express") vorhanden alle Dateien eingefügt werden. Nach dem Import könnten diese Dateien dann gelöscht werden.

Die Dateinamen sehen in etwa so aus "acraco_Express050823.001". Da in den Verzeichnissen keine anderen Dateien sind, könnte alle Dateien angehängt und auch gelöscht werden.



Ich habe selbstverständlich schon im Forum nach ähnlichen Projekten gesucht, konnte aber keins finden das mir weiterhelfen würde.

Ich würde mich über jede(n)  Idee / Vorschlag freuen!

Gruß René

diali:
Funktioniert mit LotusScript. Schau Dir in der Hilfe mal folgende Beispiele zu:
- Dir ... Dateien im Verzeichnisse auslesen
- Call NotesRichTextItem.embedObject(EMBED_ATTACHMENT,"",Pfad + Dateiname, "") ... Datei anhängen
- Kill ... Datei löschen
an

William Wallace:
Hallo,

der Code hat bei mir funktioniert - ist bestimmt noch verbesserungswürdig aber 'it works'  ;)


Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim object As NotesEmbeddedObject
   Dim RTItem As Variant
   Dim AItem As NotesRichTextItem
   Dim pathName As String
   Dim fileName As String
   
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   Set RTItem = doc.GetFirstItem("Body")
   Set newDoc = db.CreateDocument
   newDoc.Form = "Test"
   Set AItem = New NotesRichTextItem(newDoc,"Body")
   
   pathName$ = "c:\Upload\*.*"
   fileName$ = Dir$(pathName$, 0)
   
   Do 
     Call AItem.EmbedObject(EMBED_ATTACHMENT,"", "c:\Upload\" & fileName$ )
     Kill "c:\Upload\" & fileName$
     fileName$ = Dir$()
   Loop Until fileName$ = ""
   
   newDoc.Save True,False
   
End Sub


Das Script erstelle ein Neues Dokument (hier Test) und attached alle Dokument aus dem Pfad (hier C:\Upload) in das Body-Feld hinein. Zeitgleich wird die Datei auf Fileebene gelöscht.

Gruß,
William

reraru:
Hi zusammen!

Vielen Dank schonmal für die prompten Antworten!

@diali: Ich habe gerade noch ein wenig in der Hilfe gelesen.
            Hat mir auf jeden Fall schon mal ein Stück geholfen!
           
            Ich habe vorher einfach nicht das passende gefunden, da ich nicht
            so recht wusste wonach ich suchen soll.
 
@William: Habe gerade auch getestet. Scheint zu funktionieren. Werd noch mal kurz testen und mich danach noch einmal melden!

Danke!

René

reraru:
Hi William!

Bei mir wird das Memo als entwurf gespeichert.
Das ist eigentlich ein positiver Nebeneffeckt.

Aber wodurch geschieht das?

Evtl. durch das speichern:


--- Code: ---newDoc.Save True,False

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite