ENvoie de Mail HTML par programme avec "Notes.NotesSession" de Lotus Notes 6

Pas si facile que cela et vu que je n'ai pas Lotus notes sur mon systeme c'est encore plus difficile. Mais l'idée est de 'batir' le corps du message en utilisant le Stream de ta variable oSess. et en lui ajoutant un 'header' comme "text/html;charset=iso-8859-1",



Mike Gagnon

Que veux tu dire par utiliser le stream de oSess ?

				loSession = CREATEOBJECT( "Lotus.NotesSession" )

				loStream = loSession.CreateStream()
loStream.WriteText( lcBody )
				

		

Mike Gagnon

Merci je vais essayer

Non ça ne fonctionne pas, merci quand même.

Je ne comprends pas ton commentaire. Cette technique fonctionne pourtant. Peux-tu poster ton code pour voir ce qui ne va pas.

Mike Gagnon

Je n'avais pas vu correctement le code la dernière fois, je vais essayer lundi au travail, je n'ai pas lotus chez moi, encore merci de m'avoir mis sur la voix. Je laisserai un petit message pour la suite de l'essai.

Voici le nouveau code que j'ai essayé suite a tes conseils, les deux lignes de codes supplémentaire en bleu ne créent pas d'erreur, mais ça ne fonctionne toujours pas, j'ai toujours le texte du message non interprété.

procedure eMail 
   parameter VpcTitre, VpcAdresse, VpcTexte, VpcPieceJ
   *** Déclaration de l'objet
   oSess = createObject("Notes.NotesSession")
   loStream = oSess.CreateStream()
   loStream.WriteText("text/html;charset=iso-8859-1")
   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.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

Il te manque le Body qui doit aussi aller avec le Stream.

loMaildb = loSession.getdatabase(lcServer, lcMaildbName )
* create a document/email for the mail database
loMaildoc = loMaildb.CreateDocument()

* Who do we send it to
loMaildoc.ReplaceItemValue( "Form", "Memo" )
IF !EMPTY( laSendTo )
loMaildoc.ReplaceItemValue( "SendTo", @laSendTo )
ENDIF
IF !EMPTY( laCC )
loMaildoc.ReplaceItemValue( "CopyTo", @laCC )
ENDIF
IF !EMPTY( laBcc )
loMaildoc.ReplaceItemValue( "BlindCopyTo", @laBcc )
ENDIF

* The subject
loMaildoc.replaceitemValue( "Subject", lcSubject )

* The Body
loStream = loSession.CreateStream()
loStream.WriteText( lcBody )
* The Body MIME type
loBodyMime = loMailDoc.CreateMIMEEntity()
loBodyMime.SetContentFromText( loStream, "text/html;charset=iso-8859-1", .f. )


Mike Gagnon