Das Notes Forum

Lotus Notes / Domino Sonstiges => Tipps und Tricks => Thema gestartet von: Pascal am 20.10.05 - 16:20:27

Titel: Anhänge lösen, löschen .....
Beitrag von: Pascal am 20.10.05 - 16:20:27

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

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: koehlerbv am 20.10.05 - 16:23:28

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

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: Pascal am 20.10.05 - 16:35:03

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

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: koehlerbv am 20.10.05 - 16:37:34

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

HTH,
Bernhard

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: Pascal am 20.10.05 - 16:43:17

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

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: koehlerbv am 20.10.05 - 16:46:48

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

Titel: Re: Anhänge lösen, löschen .....
Beitrag von: Pascal am 20.10.05 - 16:52:53

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

Danke

Pascal