Je cherchais à faire une copie d'un attachement (sans détacher / ré-attacher) après plusieurs tentatives et recherches je fais finalement ainsi:
- Code : Tout sélectionner
Sub CopyEmbeded( FromDoc As NotesDocument, ToDoc As NotesDocument)
If FromDoc.HasEmbedded Then
Forall i In FromDoc.items
If Not (i.name = "$FILE") Then
i.Remove
End If
End Forall
Call FromDoc.CopyAllItems( ToDoc )
End If
End Sub
Bien! L'attachement se trouve dans le docCible mais cette fois en bas du doc. Mes précédentes tentatives de copie dans un autre champ richtext plantaient.
Il me manque un petit truc là!
Merci de votre aide!
cdt
camille