Insertion image dans un champ rich text.

[jeanfrancois]

bonjour,

j'ai pu avancer un peu dans mon pb en ajoutant ce code dans la partie Querysend :

Sub Querysend(Source As Notesuidocument, Continue As Variant)
Call Source.GotoField("Body")
Call Source.Import("GIF Image", "C:\\address.gif")
End Sub

L'image est bien placée dans mon champs bdoy mais tout au début.
Y a t il un moyen pour se positionner à la fin ?

Merci bcp.

a+

[Stephane Maillard]

Salut,

Normal le curseur de la souris doit être considéré comme étant au début du champs, regarde dans l'aide BeginInsert, un truc du genre, de la classe NotesRichTextItem.

[Michael DELIQUE]

salut

regarde à "Call notesRichTextItem.EndInsert"

[jeanfrancois]

Bonjour,

quand j utilise ceci, j ai un type mismatch sur Body

Dim doc As NotesDocument
Dim body As NotesRichTextItem

Set doc = Source.Document
Set body = doc.GetFirstItem("Body")


donc je ne sais pas aller plus loin....suis perdu.....

[Michael DELIQUE]

salut

a la place de

Set body = doc.GetFirstItem("Body")

essais

Set Body = Doc.CreateRichTextItem("Body")

[jeanfrancois]

En faite, je n'arrive pas a agir sur mon champ body existant.
Je n'arrive pas à utiliser "Call notesRichTextItem.EndInsert"

comment puis je intégrer cela dans :

Sub Querysend(Source As Notesuidocument, Continue As Variant)
Call Source.GotoField("Body")
Call Source.Import("GIF Image", "C:\\address.gif")
End Sub

Y a t il un moyen simple d ajouter l image en fin du champs body ?

MErci

[roubech]

je ne suis pas allé vérifié, mais si on prend l'exemple des signatures, nle code n'est-il pas plutot dans le postOpen ? dans ce cas le boy est vide et donc inserer au debut ou a la fin, c'est la meme chose

[jeanfrancois]

salut merci de ta réponse.

Finalement, j ai inséré mon code dans le postopen et cela fonctionne comme je veux.

Par contre, quand on reçoit le mail, les images sont Embedded.

Y a t il un moyen pour faire afficher directement les images ?

Merci

[P1NP0N]

Bonjour

Avez -vous trouvé car je cherche aussi ?

merci