Domino 9 und frühere Versionen > Entwicklung

Hilfe für Anänge aktualisieren

<< < (2/6) > >>

nyen:
Hat es leider nichts gebracht !

Axel:
In deiner Routine detachFiles fehlt mir so einiges, vor allem an Deklarationen.

Versuch das Ganze mal so:

Sub detachFiles( doc As NotesDocument )

Dim rtitem As NotesRichtextItem
Dim object As NotesEmbeddedObject
Dim strFilename As String

Const strPath = "D:\Temp\"


 
  Set rtitem = doc.GetFirstItem( "Body" )
   Forall o In rtitem.EmbeddedObjects
      If o.Type = EMBED_ATTACHMENT Then 
         strFilename = strPath & o.Source
         'Call o.ExtractFile(strFilename & o.Source )
         Call o.Remove
      End If
   End Forall
   'Anhängen der Datei
   Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", strFilename)
         Call doc.Save( True, True )   

End Sub


Noch ein Tipp am Rande: Trage überall, wo du Script verwendest in den (Options) - Abschnitt Option Declare ein. Dann kann dir das mit den vergessenen Deklaration zumindest nicht mehr passieren.

Axel

nyen:
Danke Axel,

jetzt funktioniert es soweit, allerdings sollen neue Dokumente (Anhänge) auch erstellt werden. Wie kann man am Einfachsten hinkriegen, wenn neue dazu kommen.

Für einen schnellen Tip wäre super.

Gruß
Nyen

Axel:
Was heisst wenn neue dazukommen?



Weitere Dokumente kannst du mit

     Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", strFilename)

anhängen


Axel

nyen:
Mit diesem Code werden nur in Dokumenten gefundene Anhänge aktualisiert (Anhänge erstetzt).  Da neue Dateien in Pfad C:\Temp  hinzukommen, können noch nicht importiert´werden. 

Er soll neue Dokumente erstellen, wenn er z. B.im Pfad C:\Temp neue Dateien findet, die in der NotesDB noch nicht existieren.

Nyen

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete