Je n'avais jamais su si c'était possible.
Alors je sais pas si il y a déjà eu un sujet la-dessus mais comme j'ai trouvé comment faire je vous poste ça, on ne sait jamais ça peut servir :
- Code : Tout sélectionner
...
memo.Form="Memo"
...
Set iconmail = New NotesItem(memo, "_ViewIcon",119)
iconmail.IsSummary = True
...
Call memo.send(False,Destinataire)
...
La valeur 119 est ici l'identifiant de l'icone, vous pouvez la changer :
Voilou
PS : bien entendu, je suppose que ces icones ne sont visibles qu'avec un client lotus notes
