Domino 9 und frühere Versionen > ND7: Entwicklung

Agent zum auslagern von Attachmants ins Filsystem

<< < (2/3) > >>

Axel:

--- Zitat von: sylli1908 am 05.05.08 - 13:59:51 ---Der Debugger sagt immer: "Object Variable not set? an der
Stelle mit dem Forall.
Wäre für eure Hilfe dankbar. Sylli

--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete