LotusScript : envoi mail avec "mini-icone"
Publié: 05 Fév 2009 à 14:46Y a un moment je m'étais posé la question : est-ce possible d'intégrer une icone dans un mail, icone qui serait visible dans courrier en arrivée, comme c'est le cas lors d'une invitation à une réunion, vous savez quand elle acceptée vous recevez un mail avec une icone "pouce levé"...
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 :
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
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
