Lotus Notes / Domino Sonstiges > Tipps und Tricks

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

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite