title image


Smiley geht per Script: Per NotesDatabase.AllDocuments dokumente holen...
dann mit for i = 1 to dc.Count die Collection durchgehen



das jeweilige doc per set doc = dc.GetNthDocument( i ) setzen.

Das body- feld (Typ: NotesRichtextItem) per set body = doc.GetFirstItem( "Body" ) setzen.



Dann prüfen ob attachments vorhanden sind: if body.EmbeddedObjects is nothing then



Alle Embedded- Objects durchgehen:

Forall object in body.EmbeddedObjects



prüfen, ob es sich um ein Attachment, oder ein ole- Objekt handelt:

if object.Type = EMBED_ATTACHMENT then

prüfen, ob der Name / die Bedingung stimmt

if object.Name = "DeinName" (oder eben andere Bedingungen)



extrahieren

call object.ExtractFile( "C:\Temp" & object.Name )



Fertig



HTH

Tode

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: