Discussion :

[flocla]

Bonjour a tous, je suis nouveau venu et je tiens a féliciter les Admin de ce forum pour ça tenue bravo.

Voila, j'ai un problème pour envoyé un Mail HTML en passant par l'API de Lotus Notes 6 "Notes.NotesSession". J'ai récupéré certaines fonctions qui me permettent de créer un message texte normal et la possibilité de joindre une pièce jointe, mais je n'ai pas la fonction ou la commande me permettant d'obliger Lotus Notes a interpreter le code HTML et a l'affiché, la fonction body me semble incapable de le faite et je me retrouve avec un message contenant l'intégralité des codes HTML non interprété.

Voici le petit programme en Foxpro 6 qui me permet d'envoyer des messages "texte" pour l'instant. Pouvez vous me venir en aide, je vous en remerci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure eMail 
	parameter VpcTitre, VpcAdresse, VpcTexte, VpcPieceJ
	*** Déclaration de l'objet
	oSess = createObject("Notes.NotesSession")
	oDB = oSess.GETDATABASE("","")
	oDB.OPENMAIL
	Flag = .T.
	oDB.OpenMail
	if !oDB.IsOpen
		Flag = oDB.Open("","")
	endif
	if Flag = .F.
		=messagebox("Impossible d'ouvrir Lotus Notes : " + oDB.Serveur + " " + oDB.Filepath)
		do exit_SendAttachement
	endif
	*** Ecriture du message
	oDoc = oDB.CREATEDOCUMENT
	oItem = oDoc.CREATERICHTEXTITEM("BODY")
	oDoc.form = "Memo"
	*oDoc.form = "Main topic"
	oDoc.Subject = VpcTitre
	oDoc.SendTo = VpcAdresse && exemple "adresse@adresse.fr"
	oDoc.Body = VpcTexte
	oDoc.PostDate = date()
	*** Attache de la pièce jointe
	if !empty(VpcPiecej)
		oItem.EmbedObject(1454,"",VpcPieceJ)
		oDoc.visable = .T.
	endif
	*** Envoie du message
	oDoc.Send(.F.)
	oSess = ""
	oDB = ""
	oDoc = ""
	oItem = ""
	*********************************************
	release oSess
endproc

[cgodefrw]

J'ai exactement le même problème. Cela semble très facile avec Outlook, mais avec lotus je n'arrive pas à trouver la solution.