Anhänge lösen, löschen .....

[Pascal]

Hallo zusammen

ich beziehe mich auf diesen Eintrag
http://www.atnotes.de/index.php?topic=10524.0

wenn ich diesen Code per copy paste in meine Mailschablone kopiere und den Buton drücke, funktionirt alles bis nach der Ordnerauswahl, Fehler: Type mismatch.
Kann mir jemand weiterhelfen?

vielen Dank
Pascal

[koehlerbv]

In welcher Zeile fängt der Debugger an zu mecken ?

[Pascal]

Hallo

bei der in rot markierten Zeile und was ich noch festgestellt habe, nur wenn ich Dokumente markiere die keinen Anhang habe

Gruss
Pascal


Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
      If ( rtitem.Type = RICHTEXT ) Then
         Forall o In rtitem.EmbeddedObjects
            Call o.ExtractFile(  folder+"\"  & o.Name )
            Call o.Remove
         End Forall
         Call doc.Save (False, False)
      End If
      Set doc = collection.GetNextDocument(doc)
      
   Wend

[koehlerbv]

Jo, klar.
Du musst vorher noch mit NotesDocument.HasEmbedded abfragen, ob es was zum Lösen gibt.

HTH,
Bernhard

[Pascal]

Ok, und diesen Befehl kann ich einfach vor den roten Text setzen und dann müsste das gehen....

Sorry Bernhard, bin "nur" ein Admin

Gruss
Pascal

[koehlerbv]

Copy & paste ist kreuzgefährlich in der Entwicklung, wenn man nicht weiss, was man tut ...

Code

If ( rtitem.Type = RICHTEXT ) Then
         If doc.HasEmbedded = True then
            Forall o In rtitem.EmbeddedObjects
               Call o.ExtractFile(  folder+"\"  & o.Name )
               Call o.Remove
            End Forall
            Call doc.Save (False, False)
         End If
      End If

Bernhard

[Pascal]

Vielen Dank und ich gebe Dir zu 100% Recht, habe zum Glück nur mir selber "geschadet" .
Jetzt ists perfekt

Danke

Pascal