Agent zum auslagern von Attachmants ins Filsystem

[sylli1908]

Hallo Notes - Könner,

ich bastle einen Agenten der nicht will wie er soll.
Er soll Bilder, die als Anhang an den Dokumenten hängen ins Filesystem speichern und aus der Datenbank löschen, da die Datenbank zu gross geworden ist. Anhang heisst das RTF in dem der Anhang steckt. Nach C:\ soll das ganze verschoben werden falls es ein jpg ist.

so sieht das ganze aus:

Sub Initialize
   Dim Pfad As String
   Dim doc As NotesDocument
   Dim obj As NotesEmbeddedObject   
   Dim rtitem As Variant
   
   Pfad = "C:\"
   Set rtitem = doc.GetFirstItem( "Anhang" )
   Forall o In rtitem.EmbeddedObjects
      If (o.Type = EMBED_ATTACHMENT) Then
         If Ucase(Right(o.Source, 4)) = Ucase(".jpg") Then
            Call o.ExtractFile(Pfad & o.Source)
         End If
      End If
   End Forall    
End Sub

Der Debugger sagt immer: "Object Variable not set? an der
Stelle mit dem Forall.
Wäre für eure Hilfe dankbar. Sylli

[flaite]

Das Dokument besitzt kein Item mit dem Namen "Anhang".
Im übrigen musst du rtItem schon als NotesRichTextItem und nicht als Variant deklarieren.

[sylli1908]

habe ich geändert.  Sieht jetzt so aus:

Sub Initialize
   Dim Pfad As String
   Pfad = "C:\"
   Dim doc As NotesDocument
   Dim obj As NotesEmbeddedObject   
   Dim rtitem As NotesRichTextItem
   
   Set rtitem = doc.GetFirstItem( "Body" )
   Forall o In rtitem.EmbeddedObjects
      If (o.Type = EMBED_ATTACHMENT) Then ' ist Dateianhang?
         If Ucase(Right(o.Source, 4)) = Ucase(".jpg") Then ' ist Dateiendung jpg?
            Call o.ExtractFile(Pfad & o.Source) ' abhängen
         End If
      End If
   End Forall    
End Sub


Fehlermeldung ist aber die gleiche. Mist.

[klaussal]

Doc ist nicht gesetzt.

[klaussal]

Code

Sub Initialize
	
	Dim Pfad As String 
	Pfad = "C:\" 
	Dim doc As NotesDocument
	Dim obj As NotesEmbeddedObject   
	Dim rtitem As NotesRichTextItem
	Dim collection As NotesDocumentCollection
	Dim db As NotesDatabase
	Dim session As New NotesSession
	
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set doc = collection.GetFirstDocument()
	While Not(doc Is Nothing)
		Set rtitem = doc.GetFirstItem( "Body" )
		Forall o In rtitem.EmbeddedObjects
			If (o.Type = EMBED_ATTACHMENT) Then ' ist Dateianhang? 
				If Ucase(Right(o.Source, 4)) = Ucase(".jpg") Then ' ist Dateiendung jpg? 
					Call o.ExtractFile(Pfad & o.Source) ' abhängen 
				End If 
			End If 
		End Forall    
		Set doc = collection.GetNextDocument(doc)
	Wend
	
End Sub

[Axel]

Der Debugger sagt immer: "Object Variable not set? an der
Stelle mit dem Forall.
Wäre für eure Hilfe dankbar. Sylli

Kann es sein, dass kein Anhang vorhanden ist?

Schau mal hier: http://atnotes.de/index.php?topic=40411.msg258521#msg258521

Da findest du eine einfache Möglichkeit, wie du prüfen kannst, ob ein Dokument Anhänge enthält oder nicht.

Axel

[sylli1908]

Nach langem Gehirnjogging hat diese Variante zum Erfolg geführt. Allerdings war ich als Notes-Anfänger darauf angewiesen viele Bausteine aus dem Forum zusammenzubasteln.
Danke Euch!

Sub Initialize
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim fileCount As Integer
   Dim session As New Notessession
   Dim db As Notesdatabase
   Dim view As NotesView
   
   
   Set db = session.CurrentDatabase
   Set zieldb=session.getdatabase("cn=servername","entwicklung/Anhang.nsf",False)
   Set view=zieldb.getview("Dokumente")
   
   Const MAX = 1
   fileCount = 0   
'...set value of doc...
   Set doc = view.GetFirstDocument
   While Not doc Is Nothing   
      Set rtitem = doc.GetFirstItem( "Anhang" )
      If ( rtitem.Type = RICHTEXT ) Then
         Forall o In rtitem.EmbeddedObjects
            If ( o.Type = EMBED_ATTACHMENT )   And ( o.FileSize > MAX ) Then
               fileCount = fileCount + 1
               Call o.ExtractFile ( "c:\temp\notes1" & Cstr(fileCount) )
               Call o.Remove
               Call doc.Save( True, True )
            End If
         End Forall
      End If   
      Set doc = view.getnextdocument(doc)
   Wend
   
End Sub

[Dr.Domino]

Hallo,

das ist ja schön und gut so (und ist auch in der Designerhilfe so zu finden), die Frage, die
ich dazu hätte ist, ob das bei Dir/Euch auch bei allen Mails funktioniert?
Erhalte ich eine Notes-Mail, dann ist das alles super, da der Anhang anscheinend ordentlich
im RTF-Feld drin ist, wie sieht es aber aus, wenn die Mail z.B. aus dem Internet oder lokal
per Blat oä kommt?
Dann habe ich da ein Multipart MIME mit base64 "Attachments" ... die werden zwar anständig
im Client angezeigt aber durch diese Code leider nicht "detached/kopiert".
Kennt jemand das Problem oder hat sogar eine Lösung zur Hand?

Vielen Dank im Voraus!

[Dr.Domino]

Anmerkung: wenn ich diese Mails dann nochmal an "den Agenten" weiterleite, dann wird
auch das Attachment ordentlich verwurstet ...

[Axel]

Ich glaube im Mail-Template von Openntf.org ist eine Exportfunktion für Mime enthalten.

http://www.openntf.org/Projects/pmt.nsf/ProjectLookup/OpenNTF%20Mail%20Experience


Axel

[m3]

Erhalte ich eine Notes-Mail, dann ist das alles super, da der Anhang anscheinend ordentlich
im RTF-Feld drin ist, wie sieht es aber aus, wenn die Mail z.B. aus dem Internet oder lokal
per Blat oä kommt?
Dann habe ich da ein Multipart MIME mit base64 "Attachments" ... die werden zwar anständig
im Client angezeigt aber durch diese Code leider nicht "detached/kopiert".
Kennt jemand das Problem oder hat sogar eine Lösung zur Hand?

Ja, nein.

Einstellen, dass Internet-Mails vom Router ins Notes-Format konvertiert werden. Hat halt ein paar Nebenwirkungen.
Code aufbohren, dass er auch mit MIME-Mails umgehen kann.

[Dr.Domino]

Schade ... eine "Stumpf ist Trumpf"-Wandlung MIME->RTF funzt ned :-(

Set doc = session.documentcontext
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type <> RICHTEXT ) Then
   Call rtitem.appendtext(" ")
   Call doc.save(True, True)
End If
Set doc = session.documentcontext

Da krieg ich nen kalten

06/23/2008 04:16:27 PM,
       MIME-CD failed at 06/23/2008 04:16:27 PM: Invalid or nonexistent document,

für zurück :-).